Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!uunet!bfmny0!tneff
From: tneff@bfmny0.UU.NET (Tom Neff)
Newsgroups: comp.lang.perl
Subject: Re: Randal's one-liners
Message-ID: <15216@bfmny0.UU.NET>
Date: 28 Feb 90 22:45:45 GMT
References: <15214@bfmny0.UU.NET>
Reply-To: tneff@bfmny0.UU.NET (Tom Neff)
Lines: 10

This is three lines out of courtesy to newsreading software -- it
runs fine as one long line.. :-)

@a=split(//,'1111211111131223311361214223121412311341121111222123616111111122'.
'21233212615112114212321211121111222123321120');for$r(@a){for(1..$r){vec($s,$i,
1)=$v;$i++;}$v^=1;}print"$s\n";

-- 
War is like love; it always      \%\%\%   Tom Neff
finds a way. -- Bertold Brecht   %\%\%\   tneff@bfmny0.UU.NET