for $b = 1 to 15 $c = split("- . : .: :: | " + $a) $a = $a + $c[$b] + "| " next
if $+0=$ $m = $c[$ mod 20] if $/20 $m = m($/20) + " " + $m endif else $ = split($) $b = 1 for $a = -ubound($) to 0 $m = $m + $b * ascan($c,$[-$a]) $b = $b * 20 ;next ;endif
EndFunction
This is my new public coding submission for a score of 185
Code:
Function m($)
dim $a,$b,$c
for $b = 1 to 15 $c = split("- . : .: :: | " + $a) $a = $a + $c[$b] + "| " next
if $+0=$ $m = $c[$ mod 20] if $/20 $m = m($/20) + " " + $m endif else for each $ in split($) $m = $m * 20 + ascan($c,$) ;next ;endif
EndFunction
By the way - I am officially protesting Jooels submission of 182. Jens - your going to have to verify it - none of us have time to do it - and if he does win - I figure the public golfing of it would take - like - 100 years !
