Page 1 of 5 12345>
Topic Options
#202149 - 2011-05-08 06:02 PM Kixgolf - Four Is Magic - Public Round
Allen Administrator Offline
KiX Supporter
*****

Registered: 2003-04-19
Posts: 4545
Loc: USA
Post your codes...

Private Round Final Scores
Jooel	283
Jochen	308
Maciep	316
Glenn	637
Citrix	660
Brad	1085



Top
#202150 - 2011-05-08 06:11 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
my 308:

 Code:
function a($)
    dim $s
    $s = 4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelve
    while 1
        $a = "" + $a + $ + " is "
        if four=$ | 4=$
            $a = $a + magic.
            exit
        else
            if $>99
                $ = $s[($^)+25-(($^)>7&instr($,y)>)]
            else
                $ = $s[iif($<20,$,$/10+18)] + $s[$ mod 10]*($>19&$ mod 10>)
            endif
            $a = $a + $ + ". "
endfunction
_________________________



Top
#202151 - 2011-05-08 06:13 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]
Allen Administrator Offline
KiX Supporter
*****

Registered: 2003-04-19
Posts: 4545
Loc: USA
Eric's 316

 Code:
function a($)
	dim $b
	$b = three,four,five,six,seven,eight,nine,ten,eleven,twelve
	$a = '' + $ + ' is '
	if four = $ or $ = 4
		$a = $a + magic.
	else
		if $ > 99
			$=$b[($^) -3 - (instr($,' ') or instr($,'-'))]
		else
			$b = 0,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6
			$ = iif($<20,$b[$ mod 20] + 4*($=0),$b[$/10+20] + $b[$ mod 10])
		
		endif
		$a = $a + $ + '. ' + a($)

endfunction

Top
#202152 - 2011-05-08 06:16 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
almost similar..
_________________________



Top
#202153 - 2011-05-08 06:26 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Modifying Eric's with parts of mine for 307:

 Code:
function a($)
	dim $b
	$b = 0,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelve
	$a = '' + $ + ' is '
	if four = $ or $ = 4
		$a = $a + magic.
	else
		if $ > 99
			$=$b[($^)+27-(($^)>7&instr($,y)>)]
		else
			$ = iif($<20,$b[$ mod 20] + 4*($=0),$b[$/10+20] + $b[$ mod 10])
		endif
		$a = $a + $ + '. ' + a($)
endfunction
_________________________



Top
#202154 - 2011-05-08 06:30 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Mine with Eric's recursion also 307:

 Code:
function a($)
    dim $s
    $s = 4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelve
    $a = "" + $a + $ + " is "
    if four=$ | 4=$
        $a = $a + magic.
        exit
    else
        if $>99
            $ = $s[($^)+25-(($^)>7&instr($,y)>)]
        else
            $ = $s[iif($<20,$,$/10+18)] + $s[$ mod 10]*($>19&$ mod 10>)
        endif
        $a = $a + $ + ". " + a($)
endfunction


very similar indeed
_________________________



Top
#202155 - 2011-05-08 06:45 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Ah well, haven't thought of that exit now being superfluos..

303:

 Code:
function a($)
    dim $s
    $s = 4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelve
    $a = "" + $a + $ + " is "
    if four=$ | 4=$
        $a = $a + magic.
    else
        if $>99
            $ = $s[($^)+25-(($^)>7&instr($,y)>)]
        else
            $ = $s[iif($<20,$,$/10+18)] + $s[$ mod 10]*($>19&$ mod 10>)
        endif
        $a = $a + $ + ". " + a($)
endfunction


Edited by Jochen (2011-05-08 07:05 PM)
_________________________



Top
#202156 - 2011-05-08 10:18 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
sorry guys. have been driving back home for the past 3 hours.
here is mine:
 Code:
function a($)

	$a=($=)*4,one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6
	if 0<$+1
		$a=($a[$ mod (20-10*($>19))]^)+$a[20+$/10]
	else
		$a=$a[($^)-(($^)>8+(seventeen=$))]
	endif
	if four=$ ^ $=4
		$a=""+$+" is magic."
	else
		$a=""+$+" is " + $a +". "+a($a)
endfunction
_________________________
!

download KiXnet

Top
#202157 - 2011-05-08 10:24 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Lonkero]
Allen Administrator Offline
KiX Supporter
*****

Registered: 2003-04-19
Posts: 4545
Loc: USA
No DIM... nice \:\)
Top
#202158 - 2011-05-08 10:27 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
I like that too \:\)
I was actually able to get one other code to 283 too and it had a dim but I prefer this one. oh and that seventeen in there. there is another way to determine with as low strokes, but I thought it was darn funny so I left it like this. \:\)
_________________________
!

download KiXnet

Top
#202159 - 2011-05-08 10:31 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
oops. 282.
 Code:
function a($)

	$a=($=)*4,one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6
	if $>99
		$a=$a[($^)-(($^)>8+(seventeen=$))]
	else
		$a=($a[$ mod (20-10*($>19))]^)+$a[20+$/10]
	endif
	if four=$ ^ $=4
		$a=""+$+" is magic."
	else
		$a=""+$+" is " + $a +". "+a($a)
endfunction
_________________________
!

download KiXnet

Top
#202160 - 2011-05-08 10:34 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Lonkero]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
oops 2: 278
 Code:
function a($)

	$a=($=)*4,3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6
	if $>99
		$a=$a[($^)-(($^)>8+(seventeen=$))]
	else
		$a=($a[$ mod (20-10*($>19))]^)+$a[20+$/10]
	endif
	if four=$ ^ $=4
		$a=""+$+" is magic."
	else
		$a=""+$+" is " + $a +". "+a($a)
endfunction
_________________________
!

download KiXnet

Top
#202161 - 2011-05-09 01:06 AM Re: Kixgolf - Four Is Magic - Public Round [Re: Lonkero]
maciep Offline
Korg Regular
*****

Registered: 2002-06-14
Posts: 947
Loc: Pittsburgh
Nice work guys!!
_________________________
Eric

Top
#202162 - 2011-05-09 01:48 AM Re: Kixgolf - Four Is Magic - Public Round [Re: maciep]
Allen Administrator Offline
KiX Supporter
*****

Registered: 2003-04-19
Posts: 4545
Loc: USA
Honestly guys, these codes are so wicked. I kinda see how you only used 3-12 words, but how you got the lengths with the bigger ones is truly artistic.
Top
#202163 - 2011-05-09 07:20 AM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Wow, amazing Jooel,

but I can't ignore this present..

276:

 Code:
function a($)
	$a=($=)*4,3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6
	if $>99
		$a=$a[($^)-(($^)>7&instr($,y)>)]
	else
		$a=($a[$ mod (20-10*($>19))]^)+$a[20+$/10]
	endif
	if four=$ ^ $=4
		$a=""+$+" is magic."
	else
		$a=""+$+" is " + $a +". "+a($a)
endfunction
_________________________



Top
#202164 - 2011-05-09 07:37 AM Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]
Allen Administrator Offline
KiX Supporter
*****

Registered: 2003-04-19
Posts: 4545
Loc: USA
oooo!!! I wish I could play, I'd be taking the lead right now.
Top
#202165 - 2011-05-09 07:54 AM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
mmmm... something I overlooked?
_________________________



Top
#202166 - 2011-05-09 08:02 AM Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]
Allen Administrator Offline
KiX Supporter
*****

Registered: 2003-04-19
Posts: 4545
Loc: USA
I probably shouldn't have said what I did say...



Edited by Allen (2011-05-09 08:05 AM)

Top
#202167 - 2011-05-09 08:07 AM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
well, as I can't see what you meant, there's no danger atm..
_________________________



Top
#202168 - 2011-05-09 03:34 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
 Originally Posted By: Allen
Post your codes...



Private Round Final Scores
Jooel 283
Jochen 308
Maciep 316
Glenn 637
Citrix 660
Brad 1085







Still 3 of 6 codes missing \:o
_________________________



Top
Page 1 of 5 12345>


Moderator:  Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 346 anonymous users online.
Newest Members
gespanntleuchten, DaveatAdvanced, Paulo_Alves, UsTaaa, xxJJxx
17864 Registered Users

Generated in 0.075 seconds in which 0.026 seconds were spent on a total of 14 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org