Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
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??

Help for this page

Select Code to Download


  1. or download this
    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}
    
  2. or download this
    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}
    
  3. or download this
    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}
    
  4. or download this
    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
    
  5. or download this
    s//123
    456
    7890147,258,369,159,357/;$?=/(.)\1\1/?die$1:/\d/?<>:die(Tie)while!s/$?
    +/$:/g||print$`x/-/,$:=$:^h?X:O
    

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 contemplating the Monastery: (4)
As of 2014-08-21 04:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (127 votes), past polls