changed:
IIf($ mod 20=0,5,$ mod 20 mod 5)
to

IIf($ mod 20, $ mod 20 mod 5,5)


[edit]I saw that benny's solution came looks a lot like Jooel's code, so it's[/edit]

for a 208 Benny/Jooel/Sarge score.


Code:
; begin Mayan Number Converter
;
;!
Function m($)
Dim $a
	If $+0=$
		Do
			$m = Split(" . : .: :: -")[IIf($ mod 20,$ mod 20 mod 5,5)] + Left('|||',$ mod 20/5)+$a+$m
			$a = ' '
			$ = $ / 20
		Until $ = 0
	Else
		While $
			$a = InStr('-.:__|', Left($,1))
			$m = IIf($a, $m+$a-1, $m*20)
			$ = Right($,~)
EndFunction

;!
;!
; end Mayan Number Converter



Code:

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

KiXtart
KiXtart Version  = 4.52 Release Candidate 2
KiXGolf Script   = kixgolf_mnc.kix

Computer
OS               = Windows XP Professional
CPU              = Intel Pentium Model 13
Speed            = 1595 MHz
Memory           = 478 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.0.3

KiXtart Golf Score
Tournament       = KiXtart Golf: Mayan Number Converter
Processing Start = 2006/07/24 09:21:06.781
Processing End   = 2006/07/24 09:21:06.791
Duration         = 0000/00/00 00:00:00.009
KiXGolf Score    = 208
 
Thank you for participating in KiXtart Golf!

Edited by DrillSergeant (2006-07-24 09:44 AM)