Page 7 of 8 « First<45678>
Topic Options
#167958 - 2006-09-22 01:08 AM Re: KiXgolf: Shuttle Puzzle - Public Round
Witto Offline
MM club member
*****

Registered: 2004-09-29
Posts: 1828
Loc: Belgium
Bravo. Really, I am impressed.
Top
#167959 - 2006-09-22 01:09 AM Re: KiXgolf: Shuttle Puzzle - Public Round
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11603
Loc: CA
Stop Witto Stop... His head is growing so large he's starting to force others out of the room
Top
#167960 - 2006-09-22 02:10 AM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
well there is my original code 652. A description of how the code works can be found here.
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i

$b=' '
$c=$z
$d=$c
For $a=1 to $z
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$c=$c-1
$h=$h+'2 '
Next
$d=Split($d)

$c=$z-1
For $a=1 to $z
$h='1 '+$h+'1 '
For $f = 1 to $c
$h='2 '+$h+'2 '
Next
$c=$c-1
Next
$h=Split(Trim($h))

$a=1
For Each $c in $d
For $f = 1 to $c
$e=IIf($a mod 2,'B','W')
$g=$g+$e+$h[$i]+' '
$i=$i+1
Next
$a=$a+1
Next

$d=Split(Trim($g))
ReDim $g[UBound($d)+1]

$g[0]=$b
$a=1
For Each $c in $d
$f=Split($b)[0]
$h=Split($b)[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,SubStr($f,1,Len($f)-1)+' W',SubStr($f,1,Len($f)-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+SubStr($h,2,Len($h)-1),'B'+Left($h,1)
+' '+SubStr($h,3,Len($h)-2)))
$g[$a]=$b
$a=$a+1
;Next

$s=$g

EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167961 - 2006-09-22 06:24 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
well...
here is 640
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$d=Split($d)

For $c=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $c
$h='2 '+$h+'2 '
Next
Next
$h=Split(Trim($h))

$a=1
For Each $c in $d
For $z = 1 to $c
$e=IIf($a mod 2,'B','W')
$g=$g+$e+$h[$i]+' '
$i=$i+1
Next
$a=$a+1
Next

$d=Split(Trim($g))
ReDim $g[UBound($d)+1]

$g[0]=$b
$a=1
For Each $c in $d
$f=Split($b)[0]
$h=Split($b)[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,SubStr($f,1,Len($f)-1)+' W',SubStr($f,1,Len($f)-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+SubStr($h,2,Len($h)-1),'B'+Left($h,1)
+' '+SubStr($h,3,Len($h)-2)))
$g[$a]=$b
$a=$a+1
;Next

$s=$g

EndFunction


Top
#167962 - 2006-09-22 06:27 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
show off
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167963 - 2006-09-22 06:29 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
hey, is there some private round in minigolf?
I understood it was public from start...

Top
#167964 - 2006-09-22 06:31 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
i think your right, public only.
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167965 - 2006-09-22 06:34 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
636
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$d=Split($d)

For $a=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $a
$h='2 '+$h+'2 '
Next
Next
$h=Split(Trim($h))

For Each $c in $d
For $z = 1 to $c
$e=IIf($a mod 2,'B','W')
$g=$g+$e+$h[$i]+' '
$i=$i+1
Next
$a=$a+1
Next

$d=Split(Trim($g))
ReDim $g[UBound($d)+1]

$g[0]=$b
$a=1
For Each $c in $d
$f=Split($b)[0]
$h=Split($b)[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,SubStr($f,1,Len($f)-1)+' W',SubStr($f,1,Len($f)-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+SubStr($h,2,Len($h)-1),'B'+Left($h,1)
+' '+SubStr($h,3,Len($h)-2)))
$g[$a]=$b
$a=$a+1
;Next

$s=$g

EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167966 - 2006-09-22 06:46 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
well...
592:
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$d=Split($d)

For $a=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $a
$h='2 '+$h+'2 '
Next
Next
$h=Split(Trim($h))

For Each $c in $d
For $z = 1 to $c
$e=IIf($a mod 2,'B','W')
$g=$g+$e+$h[$i]+' '
$i=$i+1
Next
$a=$a+1
Next

$d=Split(Trim($g))
ReDim $g[UBound($d)+1]

$g[0]=$b
$a=1
For Each $c in $d
$h=Split($b)
$f=$h[0]
$h=$h[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,left($f,-1)+' W',left($f,-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+right($h,-1),'B'+Left($h,1)
+' '+right($h,-2)))
$g[$a]=$b
$a=$a+1
$s=$g
EndFunction


Top
#167967 - 2006-09-22 06:47 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
633
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$d=Split($d)

For $a=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $a
$h='2 '+$h+'2 '
Next
Next
$h=Split(Trim($h))

For Each $c in $d
For $f = 1 to $c
$e=IIf($a mod 2,'B','W')
$g=$g+$e+$h[$i]+' '
$i=$i+1
Next
$a=$a+1
Next

$d=Split(Trim($g))
ReDim $g[$z*($z+2)]

$g[0]=$b
$a=1
For Each $c in $d
$f=Split($b)[0]
$h=Split($b)[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,SubStr($f,1,Len($f)-1)+' W',SubStr($f,1,Len($f)-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+SubStr($h,2,Len($h)-1),'B'+Left($h,1)
+' '+SubStr($h,3,Len($h)-2)))
$g[$a]=$b
$a=$a+1
;Next

$s=$g

EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167968 - 2006-09-22 06:48 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
lol.
Top
#167969 - 2006-09-22 06:50 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
booger, you snuck that in
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167970 - 2006-09-22 06:52 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
584 ;p
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i
ReDim $s[$z*($z+2)]

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$d=Split($d)

For $a=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $a
$h='2 '+$h+'2 '
Next
Next
$h=Split(Trim($h))

For Each $c in $d
For $z = 1 to $c
$e=IIf($a mod 2,'B','W')
$g=$g+$e+$h[$i]+' '
$i=$i+1
Next
$a=$a+1
Next

$d=Split(Trim($g))

$s[0]=$b
$a=1
For Each $c in $d
$h=Split($b)
$f=$h[0]
$h=$h[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,Left($f,-1)+' W',Left($f,-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+Right($h,-1),'B'+Left($h,1)
+' '+Right($h,-2)))
$s[$a]=$b
$a=$a+1
EndFunction



Edited by benny69 (2006-09-22 06:53 PM)

Top
#167971 - 2006-09-22 06:59 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
579
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i
ReDim $s[$z*($z+2)]

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$d=Split($d)

For $a=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $a
$h='2 '+$h+'2 '
Next
Next
$h=Split(Trim($h))

For Each $c in $d
For $z = 1 to $c
$g=$g+IIf($a mod 2,'B','W')+$h[$i]+' '
$i=$i+1
Next
$a=$a+1
Next

$d=Split(Trim($g))

$s[0]=$b
$a=1
For Each $c in $d
$h=Split($b)
$f=$h[0]
$h=$h[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,Left($f,-1)+' W',Left($f,-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+Right($h,-1),'B'+Left($h,1)
+' '+Right($h,-2)))
$s[$a]=$b
$a=$a+1
EndFunction


Top
#167972 - 2006-09-22 07:05 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
nice!
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167973 - 2006-09-22 07:16 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
575
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i
ReDim $s[$z*($z+2)]

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$d=Split($d)
$s[0]=$b

For $e=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $e
$h='2 '+$h+'2 '
Next
Next
$h=Split(Trim($h))

For Each $c in $d
For $z = 1 to $c
$g=$g+IIf($e mod 2,'B','W')+$h[$i]+' '
$i=$i+1
Next
$e=$e+1
Next

$d=Split(Trim($g))

For Each $c in $d
$a=$a+1
$h=Split($b)
$f=$h[0]
$h=$h[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,Left($f,-1)+' W',Left($f,-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+Right($h,-1),'B'+Left($h,1)
+' '+Right($h,-2)))
$s[$a]=$b
EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167974 - 2006-09-22 07:18 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
570
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i
ReDim $s[$z*($z+2)]

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$d=Split($d)
$s[0]=$b

For $e=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $e
$h='2 '+$h+'2 '
Next
Next
$h=Split(Trim($h))

For Each $c in $d
For $z = 1 to $c
$g=$g+IIf($e mod 2,'B','W')+$h[$i]+' '
$i=$i+1
Next
$e=$e+1
Next

For Each $c in Split(Trim($g))
$a=$a+1
$h=Split($b)
$f=$h[0]
$h=$h[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,Left($f,-1)+' W',Left($f,-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+Right($h,-1),'B'+Left($h,1)
+' '+Right($h,-2)))
$s[$a]=$b
EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167975 - 2006-09-22 07:19 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
565
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i
ReDim $s[$z*($z+2)]

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$d=Split($d)
$s[0]=$b

For $e=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $e
$h='2 '+$h+'2 '
Next
Next

For Each $c in $d
For $z = 1 to $c
$g=$g+IIf($e mod 2,'B','W')+Split(Trim($h))[$i]+' '
$i=$i+1
Next
$e=$e+1
Next

For Each $c in Split(Trim($g))
$a=$a+1
$h=Split($b)
$f=$h[0]
$h=$h[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,Left($f,-1)+' W',Left($f,-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+Right($h,-1),'B'+Left($h,1)
+' '+Right($h,-2)))
$s[$a]=$b
EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167976 - 2006-09-22 07:20 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
560
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i
ReDim $s[$z*($z+2)]

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$s[0]=$b

For $e=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $e
$h='2 '+$h+'2 '
Next
Next

For Each $c in Split($d)
For $z = 1 to $c
$g=$g+IIf($e mod 2,'B','W')+Split(Trim($h))[$i]+' '
$i=$i+1
Next
$e=$e+1
Next

For Each $c in Split(Trim($g))
$a=$a+1
$h=Split($b)
$f=$h[0]
$h=$h[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,Left($f,-1)+' W',Left($f,-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+Right($h,-1),'B'+Left($h,1)
+' '+Right($h,-2)))
$s[$a]=$b
EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#167977 - 2006-09-23 02:25 PM Re: KiXgolf: Shuttle Puzzle - Public Round
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11162
Loc: Boston, MA, USA
The public round is now closed. I will post the final results later today.

Thanks to all participants and lurkers.
_________________________
There are two types of vessels, submarines and targets.

Top
Page 7 of 8 « First<45678>


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

Who's Online
1 registered (ShaneEP) and 237 anonymous users online.
Newest Members
dimi575, Drecksnacken, Nlill, webtools321, multiman
17734 Registered Users

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

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