; begin Linear Pachinko
;!
function a($b)
dim $c,$d,$
$d=join(split($b,_),$)
$=1
while $d
$c=$d
$d=right($d,~)
$=$+($d<'/')
$a=$a+50*(2*($c<'/'|$*($c>='/'&$c<_))|$*($c>_))
$=$c<'/'
loop
$a=$a/($b^)
endfunction
;!
;!
; end Linear Pachinko
Running Test 1...Done 61
Running Test 2...Done 53
Running Test 3...Done 100
Running Test 4...Done 0
Running Test 5...Done 100
Running Test 6...Done 50
Running Test 7...Done 53
Running Test 8...Done 10
Running Test 9...Done 0
Running Test 10...Done 38
Your solution passed all tests
Your solution passed all tests
KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_lp.kix
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Linear Pachinko
Processing Start = 2007/10/15 11:21:28.187
Processing End = 2007/10/15 11:21:28.187
Duration = 0000/00/00 00:00:00.000
KiXGolf Score = 167
Thank you for participating in KiXtart Golf!
#181614 - 2007-10-1512:02 PMRe: KiXgolf: Linear Pachinko - Public Round
[Re: Lonkero]
DrillSergeantDrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
164
Code:
; begin Linear Pachinko
;
;!
function a($b)
dim $c,$d,$
$d=join(split($b,_),$)
while $d
$=$c<'/'
$c=$d
$d=right($d,~)
$=$+($d<'/')
$a=$a+50*(2*($c<'/'|$*($c>='/'&$c<_))|$*($c>_))
loop
$a=$a/($b^)
EndFunction
;!
;!
; end Linear Pachinko
I have no idea why this works
Edited by DrillSergeant (2007-10-1512:03 PM) Edit Reason: wait... now I get it :)
#181615 - 2007-10-1512:24 PMRe: KiXgolf: Linear Pachinko - Public Round
[Re: DrillSergeant]
DrillSergeantDrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
163 forgot Jooel's last change
Code:
; begin Linear Pachinko
;
;!
function a($b)
dim $c,$d,$
$d=join(split($b,_),$)
while $d
$=$c<'/'
$c=$d
$d=right($d,~)
$=$+($d<'/')
$a=$a+50*(2*($c<'/'|$*($c>'/'&$c<_))|$*($c>_))
loop
$a=$a/($b^)
EndFunction
;!
;!
; end Linear Pachinko
; begin Linear Pachinko
;!
function a($b)
dim $c,$,$d
$=join(split($b,_),$)
while $
$d=$c<'/'
$c=$
$=right($,~)
$d=$d+($<'/')
$a=$a+50*(2*($c<'/'|$d*($c>'/'&$c<_))|$d*($c>_))
loop
$a=$a/($b^)
endfunction
;!
;!
; end Linear Pachinko
Running Test 1...Done 61
Running Test 2...Done 53
Running Test 3...Done 100
Running Test 4...Done 0
Running Test 5...Done 100
Running Test 6...Done 50
Running Test 7...Done 53
Running Test 8...Done 10
Running Test 9...Done 0
Running Test 10...Done 38
Your solution passed all tests
Your solution passed all tests
KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_lp.kix
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Linear Pachinko
Processing Start = 2007/10/15 13:38:20.250
Processing End = 2007/10/15 13:38:20.250
Duration = 0000/00/00 00:00:00.000
KiXGolf Score = 162
Thank you for participating in KiXtart Golf!
; begin Linear Pachinko
;!
function a($b)
dim $c,$,$d
$=join(split($b,_),$)
while $
$d=$c<'/'
$c=$
$=right($,~)
$d=$d+($<'/')
$a=$a+2*($c<'/'|$d*($c>'/'&$c<_))+$d*($c>_)
loop
$a=$a*50/($b^)
endfunction
;!
;!
; end Linear Pachinko
Running Test 1...Done 61
Running Test 2...Done 53
Running Test 3...Done 100
Running Test 4...Done 0
Running Test 5...Done 100
Running Test 6...Done 50
Running Test 7...Done 53
Running Test 8...Done 10
Running Test 9...Done 0
Running Test 10...Done 38
Your solution passed all tests
Your solution passed all tests
KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_lp.kix
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Linear Pachinko
Processing Start = 2007/10/15 16:54:22.484
Processing End = 2007/10/15 16:54:22.484
Duration = 0000/00/00 00:00:00.000
KiXGolf Score = 160
explanation: if $c is either / or \ $d can be only 0 or 1, so instead of multiplying with the value of $d we can also make it conditional and spare another ()...
; begin Linear Pachinko
;!
function a($b)
dim $c,$,$d
$=join(split($b,_),$)
while $
$d=$c<'/'
$c=$
$=right($,~)
$d=$d+($<'/')
$a=$a+2*($c<'/'|$c>'/'&$c<_&$d)+$d*($c>_)
loop
$a=$a*50/($b^)
endfunction
;!
;!
; end Linear Pachinko
result:
Running Test 1...Done 61
Running Test 2...Done 53
Running Test 3...Done 100
Running Test 4...Done 0
Running Test 5...Done 100
Running Test 6...Done 50
Running Test 7...Done 53
Running Test 8...Done 10
Running Test 9...Done 0
Running Test 10...Done 38
Your solution passed all tests
Your solution passed all tests
KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_lp.kix
KiXGolf Scoring Engine
Scoring Engine = 3.3
KiXtart Golf Score
Tournament = Linear Pachinko
Processing Start = 2007/10/15 22:00:33.170
Processing End = 2007/10/15 22:00:33.170
Duration = 0000/00/00 00:00:00.000
KiXGolf Score = 158
Thank you for participating in KiXtart Golf!
function a($b)
dim $c,$,$d
$=join(split($b,_),$)
while $
$d=$c<'/'
$c=$
$=right($,~)
$d=$d+($<'/')
$a=$a+iif($c>_,$d,2*($c<'/'|$d*($c>'/')))
loop
$a=$a*50/($b^0)
endfunction
; begin Linear Pachinko
;!
function a($b)
dim $c,$,$d
$=join(split($b,_),$)
while $
$d=$c<'/'
$c=$
$=right($,~)
$d=$d+($<'/')
$a=$a+iif($c>_,$d,2*($c<'/'|$c>'/'&$d))
loop
$a=$a*50/($b^)
endfunction
;!
;!
; end Linear Pachinko
