Skip to content

Instantly share code, notes, and snippets.

@ajbeach2

ajbeach2/test.perl

Created October 22, 2014 17:29
Show Gist options
  • Save ajbeach2/369bfc5aeb1d8d615de3 to your computer and use it in GitHub Desktop.
Save ajbeach2/369bfc5aeb1d8d615de3 to your computer and use it in GitHub Desktop.
Download ZIP
does something
Raw
test.perl
@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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment