Quote:

---

All provided test cases representing valid Mayan Numbers must be correctly solved in order to have the KiXgolf score count.

---

Quote:

---

The UDF is expected to finish in a reasonable time, e.g. if it gets started when the challenge opens, it's expected to be finished by the time the challenge closes even on a somewhat slow computer. The UDF has to be valid during the period that the challenge runs.

---

Quote:

---

6) In case of questions about a particular way to count the KiXtart Golf Challenge organizer has the last call.

---

Quote:

---

6) In case of questions about a particular way to count the KiXtart Golf Challenge organizer has the last call.

---

Well I guess that sums it up rather easy.

Okay, given a bit of a history lesson I'll agree with you on this one Jooel. However being that this was the first one where I even really attempted it and the Function($) EndFunction was supplied I did not think that one could or should modify it.
However since Jens sees fit to do so that's fine as well, but it should be clearly listed as a possible option in the rules for future games.

; begin Mayan Number Converter
;
;!
Function m($)
dim $a
	If $+0=$
		Do
			$m = iif($ mod 20, left('.',$ mod 5 mod 2)+ left('::',$ mod 5/2)+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

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 08:38:06.541
Processing End   = 2006/07/24 08:38:06.551
Duration         = 0000/00/00 00:00:00.009
KiXGolf Score    = 215
 
Thank you for participating in KiXtart Golf!

Function m($)
Dim $a
	If $+0=$
		Do
			$m = Split(" . : .: :: -")[IIf($ mod 20=0,5,$ mod 20 mod 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

; 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

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!

; begin Mayan Number Converter
;
;!
Function m($)
Dim $a
	If $+0=$
		Do
			$m = iif($ mod 20, Split(' . : .: ::')[$ mod 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

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 13:39:21.692
Processing End   = 2006/07/24 13:39:21.702
Duration         = 0000/00/00 00:00:00.009
KiXGolf Score    = 203
 
Thank you for participating in KiXtart Golf!

Function m($_)

 dim $,$b,$c

 for $b = 1 to 15
  $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

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

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

Computer
OS               = Windows XP Professional
CPU              = Intel Pentium Model 13
Speed            = 1866 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/24 18:52:45.171
Processing End   = 2006/07/24 18:52:45.359
Duration         = 0000/00/00 00:00:00.187
KiXGolf Score    = 175

Function m($a)

 dim $,$b,$c

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

 for each $ in split($a)
  $m = $m * 20 + ascan($c,$)
  if $m<0
   $m = $c[$ mod 20]
   $ = $a/20
   if $
    $m = m($) + " " + $m
  ;endif
 ;endif
;next

EndFunction

Quote:

---

3) Code can be constructed any way you like, as long as it is syntactically correct with KiXtart.

---