in reply to RE: Tic Tac Chop
in thread Tic Tac Chop

Mine is a hair shorter. 167 chars with newlines, 163 without them, and none of them are needed. The only whitespace is in the grid string. 
$_="1 2 3\n4 5 6\n7 8 9\n";$m="XOXOXOXOX";
{print;<>=~/^\d$/until$&&&s/$&/$p=chop$m/e;
/^($p.){3}|($p.{5}){2}$p|^.(...$p){3}|($p.{7}){2}$p/ms||$m&&redo}
y/0-9/-/,print

[download]


japhy -- Perl and Regex Hacker

Replies are listed 'Best First'.
Re: Re: RE: Tic Tac Chop
by 2501 (Pilgrim) on Dec 12, 2000 at 07:16 UTC
    you can trim a couple more off the $m assignment to:
    $_="1 2 3\n4 5 6\n7 8 9\n";$m="XO"x5;
{print;<>=~/^\d$/until$&&&s/$&/$p=chop$m/e;
/^($p.){3}|($p.{5}){2}$p|^.(...$p){3}|($p{7}){2}$p/ms||$m&&redo}
y/0-9/-/,print

    [download]
    I am still trying to grok a way to trim that regex down. a definite ++
[reply]
[d/l]
      No, you can't, since $m's length is used to stop the looping of the program. It has to have length of 9. 
      chop($m="XO"x5);  # 16
$m="XOXOXOXOX";   # 15
$x="X"."OX"x4;    # 14

      [download]
      There's a one character optimization. Oh, and I left out a . from my code (and thus, it shows above in yours) at the $p{7}. It should be $p.{7}.

      japhy -- Perl and Regex Hacker
[reply]
[d/l]

In Section Obfuscated Code