Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re^2: (Golf) Tic Tac Toe

by thospel (Hermit)
on Jun 07, 2004 at 16:17 UTC ( #362033=note: print w/ replies, xml ) Need Help??


in reply to Re: (Golf) Tic Tac Toe
in thread (Golf) Tic Tac Toe

(parent node was me too, just forgot to log in)

The sub isn't useful either. 124:

s//123 456 789 z147,258,369,159,357/;$p=O;{/$p{3}/?die$p:/\d/?$p^=O^X:die Tie;/z/;pri +nt$`.$p;1until<>=~/\d/&&s/$&/$p/g;redo}
update (shortcircuiting the self reply chain) Currently at 119:
s//123 456 789 z147,258,369,159,357/;$p=O;{/z/;print$`,$p^=O^X;/(.)\1\1/?die$1:/\d/|| +die Tie;$?=<>until s/$?/$p/g;redo}
And 118:
s//123 456 789 z147,258,369,159,357/;{/z/;print$`,$p=$p^h?X:O;/(.)\1\1/?die$1:/\d/||d +ie Tie;$?=<>until s/$?/$p/g;redo}
Followed by 113:
s//123 456 789 z147,258,369,159,3570/;$?=/(.)\1\1/?die$1:/\d/?<>:die(Tie)while!s/$?/$ +p/g||print$`x/z/,$p=$p^h?X:O
Sneakily add a space in the output to get 111:
s//123 456 7890147,258,369,159,357/;$?=/(.)\1\1/?die$1:/\d/?<>:die(Tie)while!s/$? +/$:/g||print$`x/-/,$:=$:^h?X:O


Comment on Re^2: (Golf) Tic Tac Toe
Select or Download Code
Re^3: (Golf) Tic Tac Toe
by thospel (Hermit) on Jun 07, 2004 at 16:24 UTC
    Forgot to do the final situation print in that 124, but now it prints the person whose turn is WAS.
    s//123 456 789 z147,258,369,159,357/;$p=O;{/z/;print$`.$p;/$p{3}/?die$p:/\d/?$p^=O^X: +die Tie;1until<>=~/\d/&&s/$&/$p/g;redo}
      Printing flaw fixed, and to 119:
      s//123 456 789 z147,258,369,159,357/;$p=O;{/z/;print$`,$p^=O^X;/(.)\1\1/?die$1:/\d/|| +die Tie;$?=<>until s/$?/$p/g;redo}
      Re^5:
      by Jasper (Chaplain) on Jun 17, 2004 at 16:22 UTC
        CORRECTION: I am stupid, after all.

        The OPs method of checking the verticals and diagonals was pretty clever.
Re^3: (Golf) Tic Tac Toe
by delirium (Chaplain) on Jun 08, 2004 at 11:52 UTC
    Great Hera!

    That's a work of art. Nice job.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://362033]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (17)
As of 2014-12-18 14:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (54 votes), past polls