Help for this page
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}
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}
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}
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
s//123 456 7890147,258,369,159,357/;$?=/(.)\1\1/?die$1:/\d/?<>:die(Tie)while!s/$? +/$:/g||print$`x/-/,$:=$:^h?X:O
regular expressions shiny regexes and rules offered by Perl 6 XML::Simple other CPAN module by looking at it on my monitor I print it and I read it in spare time first I convert it into $FORMAT, then I parse it I hire someone to do it using my custom module I write a brand new language to do the task on the server where I play as human, XML is forbidden what is XML? I speak XML natively I write a new grammar for Perl 6 some other way
Results (438 votes), past polls
