Page 2 of 8 <12345>Last »
Topic Options
#183838 - 2007-12-18 11:50 AM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
I realize now that I shouldn't have posted it

I say: Jooel can make an official post with that trick incorporated and we go from there?
_________________________
The Code is out there

Top
#183839 - 2007-12-18 11:51 AM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Oh well, you're right.
It might cost me the 2nd place in tournament, but who cares anyway!

Go ahead dude, take the lead!
_________________________



Top
#183840 - 2007-12-18 12:03 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
Well, if it's reason for disqualification for me, you're back in the #2 spot, Jochen ;\)
_________________________
The Code is out there

Top
#183841 - 2007-12-18 12:04 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
lol.
Mate, I would never demand that!
_________________________



Top
#183843 - 2007-12-18 01:09 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
So, what If I optimized your code a bit beyond Remcos trick... I can't wait to post that new score, but on the other side Jooel would take advantage If I post it without Remcos trick.
_________________________



Top
#183845 - 2007-12-18 01:30 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
jochen, doesn't matter, I will always win ;\)

anyhow, I didn't have the remco trick... I was talking about that silly (=0) stroke.
_________________________
!

download KiXnet

Top
#183846 - 2007-12-18 01:32 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Dang!

What now ?
_________________________



Top
#183847 - 2007-12-18 01:35 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
Jochen, can you incorporate the C$ trick in your score? It wasn't the solution that Jooel talked about so it can be attributed to Remco.

But since you're below that again too, it's not important any more...



Edited by DrillSergeant (2007-12-18 01:43 PM)
_________________________
The Code is out there

Top
#183848 - 2007-12-18 01:38 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
Ah crap, if you win anyways and I shall not hold back score posts:


function a($)
    dim $!, $c, $t, $s[9], $g, $w, $h
    $c= '1{5! 1{1', 'Your 4ther 7 a 2{Your 3 6 a 2{Your 4ther 7 a 5',
        '5{8 5{5{9 8 5','steed{king{first-born','mo{fa{grandmo{grandfa{godfa',
        'Hamster{Coconut{Duck{Herring{Newt{Peril{Chicken{Vole{Parrot{Mouse{Twit',
        'is{masquerades as', 'was{personified',
        'silly{wicked{sordid{naughty{repulsive{malodorous{ill-tempered',
        'conspicuously{categorically{positively{cruelly{incontrovertibly'
    for each $t in $
        dim $d
        $g = 'theholygrail'
        for $ = 0 to 36
            $t = join(split($t,'  '))
        next
        for each $ in split($t)
            $w=0
            while $
                $w = $w+($>'@')
                $g = substr($g,(left($,1) = left($g,1))+1)
                $  = right($, ~)
            loop
            $d = $d + ($w>)
        next
        $! = $! + '}Knight: ' + $t + iif($g,},'}Taunter: (A childish hand gesture).}')
        $d = $d - 3*($g=)
        while $d>0
            $w = 0
            for $ = 0 to 9
                while instr($w, $)
                    $d = $d - 3*($=5)
                    $g = instr($w, $)
                    $t = split($c[$],{)
                    $h = $t[$s[$]]
                    if $=5 & $g>1 $h=lcase($h) endif
                    $w = left($w, $g-1) + $h + right($w, -$g)
                    $s[$] = ($s[$]+1) mod (ubound($t)+1)
                loop
            next
            $! = $! + 'Taunter: ' + $w + '.}'
            $a = split(right($!,~),})
endfunction



Your solution passed all tests

KiXtart
KiXtart Version  = 4.53
KiXGolf Script   = kixgolf_tg.kix

Computer
OS               = Windows 2000 Professional
CPU              =               Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed            = 2793 MHz
Memory           = 504 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Taunt Generator
Processing Start = 2007/12/18 13:36:45.546
Processing End   = 2007/12/18 13:36:45.609
Duration         = 0000/00/00 00:00:00.062
KiXGolf Score    = 929

Thank you for participating in KiXtart Golf!


I don't like closing keywords anyway! ;\)
_________________________



Top
#183849 - 2007-12-18 01:38 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
This was a wrong post, so I deleted the content.

It's also my 1000th post so it's too bad I didn't use it for something more spectacular ;\)


Edited by DrillSergeant (2007-12-20 02:46 PM)
_________________________
The Code is out there

Top
#183850 - 2007-12-18 01:50 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Jochen Administrator Offline
KiX Supporter
*****

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

function a($)
    dim $!, $c, $t, $s[9], $g, $w, $h
    $c= '1{5! 1{1', 'Your 4ther 7 a 2{Your 3 6 a 2{Your 4ther 7 a 5',
        '5{8 5{5{9ly 8 5','steed{king{first-born','mo{fa{grandmo{grandfa{godfa',
        'Hamster{Coconut{Duck{Herring{Newt{Peril{Chicken{Vole{Parrot{Mouse{Twit',
        'is{masquerades as', 'was{personified',
        'silly{wicked{sordid{naughty{repulsive{malodorous{ill-tempered',
        'conspicuous{categorical{positive{cruel{incontrovertib'
    for each $t in $
        dim $d
        $g = 'theholygrail'
        for $ = 0 to 36
            $t = join(split($t,'  '))
        next
        for each $ in split($t)
            $w=0
            while $
                $w = $w+($>'@')
                $g = substr($g,(left($,1) = left($g,1))+1)
                $  = right($, ~)
            loop
            $d = $d + ($w>)
        next
        $! = $! + '}Knight: ' + $t + iif($g,},'}Taunter: (A childish hand gesture).}')
        $d = $d - 3*($g=)
        while $d>0
            $w = 0
            for $ = 0 to 9
                while instr($w, $)
                    $d = $d - 3*($=5)
                    $g = instr($w, $)
                    $t = split($c[$],{)
                    $h = $t[$s[$]]
                    if $=5 & $g>1 $h=lcase($h) endif
                    $w = left($w, $g-1) + $h + right($w, -$g)
                    $s[$] = ($s[$]+1) mod (ubound($t)+1)
                loop
            next
            $! = $! + 'Taunter: ' + $w + '.}'
            $a = split(right($!,~),})
endfunction




Your solution passed all tests

KiXtart
KiXtart Version  = 4.53
KiXGolf Script   = kixgolf_tg.kix

Computer
OS               = Windows 2000 Professional
CPU              =               Intel(R) Pentium(R) 4 CPU 2.80GHz
Speed            = 2793 MHz
Memory           = 504 MB

KiXGolf Scoring Engine
Scoring Engine   = 3.3

KiXtart Golf Score
Tournament       = Taunt Generator
Processing Start = 2007/12/18 13:49:31.531
Processing End   = 2007/12/18 13:49:31.593
Duration         = 0000/00/00 00:00:00.061
KiXGolf Score    = 921

Thank you for participating in KiXtart Golf!

_________________________



Top
#183851 - 2007-12-18 01:53 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
So from now on, everybody holds their beak about tricks they heard on phone, or on home shopping europe, or from god, mkay?
_________________________



Top
#183852 - 2007-12-18 01:59 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
 Originally Posted By: Jochen
So from now on, everybody holds their beak about tricks they heard on phone, or on home shopping europe, or from god, mkay?


LOL \:D

Yes, mastah!
_________________________
The Code is out there

Top
#183853 - 2007-12-18 02:16 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
You have to join C$ to a single line before testing it, but I didn't want to break the board layout:


begin a Generator
;
;!
function a($)
dim $!, $c, $t, $s[9], $g, $w, $h
$c= split('1{5! 1{1}Your 4ther 7 a 2{Your 3 6 a 2{Your 4ther 7 a 5}5{8 5{5{9ly 8 5}steed{king{first-born}
mo{fa{grandmo{grandfa{godfa}Hamster{Coconut{Duck{Herring{Newt{Peril{Chicken{Vole{Parrot{Mouse{Twit}
is{masquerades as}was{personified}silly{wicked{sordid{naughty{repulsive{malodorous{ill-tempered}
conspicuous{categorical{positive{cruel{incontrovertib',})
for each $t in $
dim $d
$g = 'theholygrail'
for $ = 0 to 36
$t = join(split($t,' '))
next
for each $ in split($t)
$w=0
while $
$w = $w+($>'@')
$g = substr($g,(left($,1) = left($g,1))+1)
$ = right($, ~)
loop
$d = $d + ($w>)
next
$! = $! + '}Knight: ' + $t + iif($g,},'}Taunter: (A childish hand gesture).}')
$d = $d - 3*($g=)
while $d>0
$w = 0
for $ = 0 to 9
while instr($w, $)
$d = $d - 3*($=5)
$g = instr($w, $)
$t = split($c[$],{)
$h = $t[$s[$]]
if $=5 & $g>1 $h=lcase($h) endif
$w = left($w, $g-1) + $h + right($w, -$g)
$s[$] = ($s[$]+1) mod (ubound($t)+1)
loop
next
$! = $! + 'Taunter: ' + $w + '.}'
$a = split(right($!,~),})
endfunction
;!
;!
; end a Generator



Your solution passed all tests.

KiXtart
KiXtart Version = 4.60
KiXGolf Script = kixgolf_tg.KIX

Computer
OS = Windows XP Professional
CPU = Intel(R) Pentium(R) 4 CPU 2.40GHz
Speed = 2392 MHz
Memory = 1016 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 14:15:33.677
Processing End = 2007/12/18 14:15:34.058
Duration = 0000/00/00 00:00:00.380
KiXGolf Score = 912

Thank you for participating in KiXtart Golf!



Why I didn't come up with this during private round? I guess I was busy staring blindly at other parts....


Edited by DrillSergeant (2007-12-18 02:20 PM)
_________________________
The Code is out there

Top
#183854 - 2007-12-18 02:18 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
You dirty basta

You even made it impossible to copy your code \:\)


Edited by Jochen (2007-12-18 02:20 PM)
_________________________



Top
#183855 - 2007-12-18 02:22 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
I am going to be out of town most of the day so i will check back in later, mine doesn't stand up to your codes but here is my 1054:

 Code:
Function a($)
  Dim $c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m
  
  $c = 'silly#wicked#sordid#naughty#repulsive#malodorous#ill-tempered'
  $d = conspicuously#categorically#positively#cruelly#incontrovertibly
  $e = was#personified
  $f = 'is#masquerades as'
  $g = Hamster#Coconut#Duck#Herring#Newt#Peril#Chicken#Vole#Parrot#Mouse#Twit
  $h = mother#father#grandmother#grandfather#godfather
  $i = 'steed#king#first-born'
  $j = theholygrail
  $k = #s#
  
  For Each $ in $
    Dim $n,$o,$p
    For Each $n in Split($)
      Dim $r
      For $o = 1 to $n ^ 0
        If SubStr($n,$o) > 'A'
          $r = 1
        EndIf
      Next
      $p = $p + $r
      $=Join(Split($,'  '))
    Next
    $n = $
    Do
      Dim $r
      While $n
        $o = Left($n,1)
        If SubStr($j,($r^)+1,1) = $o
          $r = $r + $o
        EndIf
        $n = Right($n,~)
      Loop
      $ = $+\Taunter:#
      If $r = $j
        $ = $+'(A childish hand gesture).'
      Else
        If z($k)
          $ = $+z($g)+!#Your#+z($i)+#+z($f)+#a#
          If $m
            $ = $+z($d)+#
            $d = y($d)
          EndIf
          $m = ~ $m
          $ = $+z($c)
          $c = y($c)
          $g = y($g)
          $i = y($i)
          $f = y($f)
          $p = $p - 3
        Else
          $ = $+Your#+z($h)+#+z($e)+#a
          $h = y($h)
          $e = y($e)
        EndIf
        $ = $+#+LCase(z($g))+'.'
        $k = y($k)
        $g = y($g)
      EndIf
      $p = $p - 3
    Until $p < 1
    $l = Join(Split($l+\Knight:#+$+\,#))
;  Next
  $a=Split(Right($l,~),\)
EndFunction
Function y($)
  $y=Right($,($^)-(#+z($)^))+#+z($)
EndFunction
Function z($)
  $z=Split($,#)[0]
EndFunction


Running Test 1...Result... Passed... Done
Running Test 2...Result... Passed... Done
Running Test 3...Result... Passed... Done
Running Test 4...Result... Passed... Done
Running Test 5...Result... Passed... Done

Your solution passed all tests

KiXtart
KiXtart Version = 4.53
KiXGolf Script = kixgolf_tg.kix

Computer
OS = Windows XP Professional
CPU = Intel(R) Pentium(R) D CPU 3.20GHz
Speed = 3200 MHz
Memory = 2048 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 07:20:56.048
Processing End = 2007/12/18 07:20:56.142
Duration = 0000/00/00 00:00:00.094
KiXGolf Score = 1054

Thank you for participating in KiXtart Golf!
Press any key to continue...
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#183856 - 2007-12-18 02:24 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
DrillSergeant Offline
MM club member
*****

Registered: 2004-07-09
Posts: 1164
Loc: Eijsden, the Netherlands
How's this for readability? ;\) :

 Code:
; begin Taunt Generator
;
;!
function a($)
    dim $!, $t, $s[9], $g, $w, $h
    for each $t in $
        dim $d
        $g = 'theholygrail'
        for $ = 0 to 36
            $t = join(split($t,'  '))
        next
        for each $ in split($t)
            $w=0
            while $
                $w = $w+($>'@')
                $g = substr($g,(left($,1) = left($g,1))+1)
                $  = right($, ~)
            loop
            $d = $d + ($w>)
        next
        $! = $! + '}Knight: ' + $t + iif($g,},'}Taunter: (A childish hand gesture).}')
        $d = $d - 3*($g=)
        while $d>0
            $w = 0
            for $ = 0 to 9
                while instr($w, $)
                    $d = $d - 3*($=5)
                    $g = instr($w, $)
                    $t = split(split('1{5! 1{1}Your 4ther 7 a 2{Your 3 6 a 2{Your 4ther 7 a 5}5{8 5{5{9ly 8 5}steed{king{first-born}mo{fa{grandmo{grandfa{godfa}Hamster{Coconut{Duck{Herring{Newt{Peril{Chicken{Vole{Parrot{Mouse{Twit}is{masquerades as}was{personified}silly{wicked{sordid{naughty{repulsive{malodorous{ill-tempered}conspicuous{categorical{positive{cruel{incontrovertib',})[$],{)
                    $h = $t[$s[$]]
                    if $=5 & $g>1 $h=lcase($h) endif
                    $w = left($w, $g-1) + $h + right($w, -$g)
                    $s[$] = ($s[$]+1) mod (ubound($t)+1)
                loop
            next
            $! = $! + 'Taunter: ' + $w + '.}'
            $a = split(right($!,~),})
endfunction
;!
;!
; end Taunt Generator


Your solution passed all tests

KiXtart
KiXtart Version = 4.60
KiXGolf Script = kixgolf_tg.KIX

Computer
OS = Windows XP Professional
CPU = Intel(R) Pentium(R) 4 CPU 2.40GHz
Speed = 2392 MHz
Memory = 1016 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 14:24:07.646
Processing End = 2007/12/18 14:24:07.806
Duration = 0000/00/00 00:00:00.159
KiXGolf Score = 904

Thank you for participating in KiXtart Golf!
_________________________
The Code is out there

Top
#183857 - 2007-12-18 02:27 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11164
Loc: Boston, MA, USA
Here's my take on it. The phone conversation is akin to the IM conversations that happened in the past during public rounds. Thus, the optimization that RemcovC came up with and conveyed to DrillSargent is official as DrillSargent posted it. RemcovC also potentially had the opportunity to send to code to either me or DrillSargent for posting.

So, go for it. In the long run it will most likely not even change the final results as the trick would have been posted anyway.
_________________________
There are two types of vessels, submarines and targets.

Top
#183859 - 2007-12-18 02:33 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: DrillSergeant]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
 Code:
function a($)
    dim $!, $t, $s[9], $g, $w, $h
    for each $t in $
        dim $d
        $g = 'theholygrail'
        for $ = 0 to 36
            $t = join(split($t,'  '))
        next
        for each $ in split($t)
            $w=0
            while $
                $w = $w+($>'@')
                $g = substr($g,(left($,1) = left($g,1))+1)
                $  = right($, ~)
            loop
            $d = $d + ($w>)
        next
        $! = $! + '}Knight: ' + $t + iif($g,},'}Taunter: (A childish hand gesture).}')
        $d = $d - 3*($g=)
        while $d>0
            $w = 0
            for $ = 0 to 9
                while instr($w, $)
                    $d = $d - 3*($=5)
                    $g = instr($w, $)
                    $t = split(split('1{5! 1{1}Your 4ther 7 a 2{Your 3 6 a 2{Your 4ther 7 a 5}5{8 5{5{9ly 8 5}steed{king{first-born}mo{fa{grandmo{grandfa{godfa}Hamster{Coconut{Duck{Herring{Newt{Peril{Chicken{Vole{Parrot{Mouse{Twit}is{masquerades as}was{personified}silly{wicked{sordid{naughty{repulsive{malodorous{ill-tempered}conspicuous{categorical{positive{cruel{incontrovertib',})[$],{)
                    $h = $t[$s[$]]
                    $w = left($w, $g-1) + iif($=5 & $g>1,lcase($h),$h) + right($w, -$g)
                    $s[$] = ($s[$]+1) mod (ubound($t)+1)
                loop
            next
            $! = $! + 'Taunter: ' + $w + '.}'
            $a = split(right($!,~),})
endfunction



Your solution passed all tests

KiXtart
KiXtart Version = 4.60 Beta 1
KiXGolf Script = kixgolf_tg.kix

Computer
OS = Windows XP Professional
CPU = Intel Pentium Model 13
Speed = 798 MHz
Memory = 1014 MB

KiXGolf Scoring Engine
Scoring Engine = 3.3

KiXtart Golf Score
Tournament = Taunt Generator
Processing Start = 2007/12/18 15:33:25.234
Processing End = 2007/12/18 15:33:25.421
Duration = 0000/00/00 00:00:00.187
KiXGolf Score = 901
_________________________
!

download KiXnet

Top
#183860 - 2007-12-18 02:39 PM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Lonkero]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
It's getting too wide for me here
_________________________



Top
Page 2 of 8 <12345>Last »


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

Who's Online
1 registered (Allen) and 466 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 13 queries. Zlib compression enabled.

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