From: mjd@... (Mark-Jason Dominus) Date: 2000-12-12T04:40:01+09:00 Subject: [ruby-talk:7051] Re: Why isn't Perl highly orthogonal? In article <910ig2$qqs$1@boomer.cs.utexas.edu>, Logan Shaw wrote: >No, but an array is a string. It most certainly is not. -- @P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{ @p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f|ord ($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&& close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print