KiXgolf 2007: Taunt Generator - Public Round - KiXtart.org

You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Lounge » KiXgolf 2007: Taunt Generator - Public Round

Page 2 of 8

Last »

Topic Options

#183838 - 2007-12-18 11:50 AM Re: KiXgolf 2007: Taunt Generator - Public Round [Re: Jochen]
DrillSergeant DrillSergeant 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 Jochen 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 DrillSergeant 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 Jochen 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 Jochen 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 Lonkero 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 Jochen 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 DrillSergeant 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 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 DrillSergeant 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 Offline

KiX Supporter

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


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 Jochen 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 DrillSergeant 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 Jochen 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 Sealeopard 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 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 Jochen KiX Supporter Registered: 2000-03-17 Posts: 6380 Loc: Stuttgart, Germany	It's getting too wide for me here _________________________
Top

Page 2 of 8

Last »

Previous Topic View All Topics

Index Next Topic

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

Hop to:

Shout Box

Search the board with:
superb Board Search
or try with google:

	Web kixtart.org