for $b=0 to 100000 next

Mayan Number Converter passed all 60 tests (100% correct)

KiXtart
KiXtart Version  = 4.52
KiXGolf Script   = kixgolf_mnc.kix

Computer
OS               = Windows XP Professional
CPU              = Intel Pentium Model 13
Speed            = 800 MHz
Memory           = 760 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.0.3

KiXtart Golf Score
Tournament       = KiXtart Golf: Mayan Number Converter
Processing Start = 2006/07/25 19:59:54.241
Processing End   = 2006/07/25 19:59:56.054
Duration         = 0000/00/00 00:00:01.813
TimePenalty      = 5,2
KiXGolf Score    = 198 (193+5,2)

function TimePenalty(optional $in, $weight)
dim $,$h
 if vartype($in)
  for $h=0 to 100000 next
  $=ProcessorTime()
  for each $h in split("1 2 3")
   $h = "a" + (1 - (0.147 * $h)/27)
  next
  $TimePenalty=(ProcessorTime(,,$in)/ProcessorTime(,,$))/(0+$weight)
 else
  $TimePenalty = ProcessorTime()
 endif
endfunction

function TimePenalty(optional $in, $weight)
dim $,$h,$x
 if not vartype($in)
  $=ProcessorTime()
  do $x=$x+1 until 10000000<ProcessorTime(,,$)
  $=ProcessorTime()
  for each $h in split("1 2 3")
   for $x=0 to 70203 next
   $h = "a" + (1 - (0.147 * $h)/27)
  next
  $TimePenalty = ProcessorTime(),ProcessorTime(,,$)
 else
  $TimePenalty=(ProcessorTime(,,$in[0])/$in[1])/(0+$weight)
 endif
endfunction

Function m($)
Dim $a
 Do
  If $+0=$
   $m = iif($ mod 20, Split(' . : .: ::')[$ mod 5],'-') + Left('|||',$ mod 20/5)+$a+$m
   $a = ' '
   $ = $ / 20
  Else
   $a = InStr('-.:__|', Left($,1))
   $m = iif($a, $m+$a-1, $m*20)
   $ = Right($,~)
  Endif
 Until $ = 0
EndFunction

Function m($!)
 dim $,$b,$c

 for $b = 1 to 16
  $c = split("- . : .: :: " + $)
  $ = $ + "| " + $c[$b]
 next

 for each $ in split($!)
  $m = $m * 20 + ascan($c,$)
  if $m<0
   $m = $c[$ mod 20]
   $ = $!/20
   if $
    $m = m($) + ' ' + $m
EndFunction

Function m($)

 dim $a,$t[19]

 if $=$+0
  $m = iif($ mod 20,split(' . : .: ::')[$ mod 5],'-') + left('|||',$ mod 20/5)
  $=$/20
  if $
   $m = m($) + ' ' + $m
  endif
 else
  for $a = 0 to 19
   $t[$a] = m($a)
  next
  for each $a in split($)
   $m = $m * 20 + ascan($t,$a)
; next
;endif

EndFunction

;!
Function m($)

 dim $a

 if $=$+0
  $m = iif($ mod 20,split(' . : .: ::')[$ mod 5],'-') + left('|||',$ mod 20/5)
  $=$/20
  if $
   $m = m($) + ' ' + $m
  endif
 else
  for each $ in split($)
   $a = 0
   while m($a)<>$
    $a = $a + 1
   loop
   $m = $m * 20 + $a
 ;next
;endif

EndFunction
;!