#164901 - 2006-07-25 10:18 PM
Re: KiXgolf: Mayan Number Converter - Public Phase
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
well, here is 191 of your rogier-code:
Code:
Function m($)
dim $b
if $=$+0
$m = iif($ mod 20,split(' . : .: ::')[$ mod 5],'-') + left('|||',$ mod 20/5)
$=$/20
if $
$m = m($) + ' ' + $m
endif
else
for each $ in split($)
dim $a
while m($a)<>$
$a = $a + 1
loop
$m = $m * 20 + $a
EndFunction
|
|
Top
|
|
|
|
#164902 - 2006-07-25 10:19 PM
Re: KiXgolf: Mayan Number Converter - Public Phase
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Rogier 188
Code:
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 = -1
do
$a=$a+1
until m($a)=$
$m = $m * 20 + $a
;next
;endif
EndFunction
|
|
Top
|
|
|
|
|
#164903 - 2006-07-25 10:19 PM
Re: KiXgolf: Mayan Number Converter - Public Phase
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
wtf, here is 186:
Code:
Function m($)
if $=$+0
$m = iif($ mod 20,split(' . : .: ::')[$ mod 5],'-') + left('|||',$ mod 20/5)
$=$/20
if $
$m = m($) + ' ' + $m
endif
else
for each $ in split($)
dim $a
while m($a)<>$
$a = $a + 1
loop
$m = $m * 20 + $a
EndFunction
|
|
Top
|
|
|
|
|
#164905 - 2006-07-25 10:25 PM
Re: KiXgolf: Mayan Number Converter - Public Phase
|
Lonkero
KiX Master Guru
Registered: 2001-06-05
Posts: 22346
Loc: OK
|
185
Code:
Function m($)
if $<$+0
for each $ in split($)
dim $a
while m($a)<>$
$a = $a + 1
loop
$m = $m * 20 + $a
next
else
$m = iif($ mod 20,split(' . : .: ::')[$ mod 5],'-') + left('|||',$ mod 20/5)
$=$/20
if $
$m = m($) + ' ' + $m
EndFunction
|
|
Top
|
|
|
|
|
#164907 - 2006-07-25 10:46 PM
Re: KiXgolf: Mayan Number Converter - Public Phase
|
DrillSergeant
MM club member
Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
|
Hehehe, this isn't rogier-code. This is freaky jooel-shawn voodoo, and I'm not having any part of it! 
|
|
Top
|
|
|
|
|
#164908 - 2006-07-25 11:11 PM
Re: KiXgolf: Mayan Number Converter - Public Phase
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
Rogier and I can play this game, here is Jooel code 149  :
Code:
Function m($)
If $<$+0
$m=-1
Do
$m=$m+1
Until $=m($m)
Else
$m = IIf($ mod 20,Split(' . : .: ::')[$ mod 5],'-') + Left('|||',$ mod 20/5)
$=$/20
If $
$m = m($) + ' ' + $m
EndFunction
|
|
Top
|
|
|
|
|
#164911 - 2006-07-25 11:19 PM
Re: KiXgolf: Mayan Number Converter - Public Phase
|
Benny69
Moderator
Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
|
by my estimation it would take about 7 days to run, but it is all in good fun
|
|
Top
|
|
|
|
|
#164912 - 2006-07-26 04:23 AM
Re: KiXgolf: Mayan Number Converter - Public Phase - 170
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Arrrrr ... 170
Code:
Function m($b)
dim $,$a
for $ = 1 to 16
$a = split("- . : .: :: " + $m)
$m = $m + "| " + $a[$]
next
for each $ in split($b)
$m = ascan($a,$) + 20 * $m
if $m<0
$m = $a[$ mod 20]
$ = $b/20
if $
$m = m($) + " " + $m
;endif
;endif
;next
EndFunction
|
|
Top
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 530 anonymous users online.
|
|
|
