Kixgolf - Four Is Magic - Public Round - KiXtart.org - official site

You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Lounge » Kixgolf - Four Is Magic - Public Round

Page 1 of 5

1

Topic Options

#202149 - 2011-05-08 06:02 PM Kixgolf - Four Is Magic - Public Round
Allen Allen KiX Supporter Registered: 2003-04-19 Posts: 4572 Loc: USA	Post your codes... Private Round Final Scores Jooel 283 Jochen 308 Maciep 316 Glenn 637 Citrix 660 Brad 1085 _________________________ (... better days ahead)
Top

#202150 - 2011-05-08 06:11 PM

Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]

Jochen Offline

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

_________________________

#202151 - 2011-05-08 06:13 PM

Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]

Allen

Offline

KiX Supporter

Registered: 2003-04-19
Posts: 4572
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

_________________________
(... better days ahead)

#202152 - 2011-05-08 06:16 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Jochen Jochen 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 Offline

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

_________________________

#202154 - 2011-05-08 06:30 PM

Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]

Jochen Offline

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

_________________________

#202155 - 2011-05-08 06:45 PM

Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]

Jochen Offline

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)

_________________________

#202156 - 2011-05-08 10:18 PM

Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]

Lonkero Offline

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

#202157 - 2011-05-08 10:24 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Lonkero]
Allen Allen KiX Supporter Registered: 2003-04-19 Posts: 4572 Loc: USA	No DIM... nice $\:\)$ _________________________ (... better days ahead)
Top

#202158 - 2011-05-08 10:27 PM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Lonkero Lonkero 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 Offline

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

#202160 - 2011-05-08 10:34 PM

Re: Kixgolf - Four Is Magic - Public Round [Re: Lonkero]

Lonkero Offline

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

#202161 - 2011-05-09 01:06 AM Re: Kixgolf - Four Is Magic - Public Round [Re: Lonkero]
maciep maciep 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 Allen KiX Supporter Registered: 2003-04-19 Posts: 4572 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. _________________________ (... better days ahead)
Top

#202163 - 2011-05-09 07:20 AM

Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]

Jochen Offline

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

_________________________

#202164 - 2011-05-09 07:37 AM Re: Kixgolf - Four Is Magic - Public Round [Re: Jochen]
Allen Allen KiX Supporter Registered: 2003-04-19 Posts: 4572 Loc: USA	oooo!!! I wish I could play, I'd be taking the lead right now. _________________________ (... better days ahead)
Top

#202165 - 2011-05-09 07:54 AM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Jochen Jochen 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 Allen KiX Supporter Registered: 2003-04-19 Posts: 4572 Loc: USA	I probably shouldn't have said what I did say... Edited by Allen (2011-05-09 08:05 AM) _________________________ (... better days ahead)
Top

#202167 - 2011-05-09 08:07 AM Re: Kixgolf - Four Is Magic - Public Round [Re: Allen]
Jochen Jochen 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 Jochen 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

1

Previous Topic

Previous Topic View All Topics

View All Topics

Index Next Topic

Next Topic

Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart

Hop to:

Shout Box

Who's Online

0 registered and 251 anonymous users online.

Newest Members

Viginette, ManuvdWielNL, Sir_Barrington, batdk82, StuTheCoder
17888 Registered Users

Generated in 0.079 seconds in which 0.028 seconds were spent on a total of 13 queries. Zlib compression enabled.

click tracking