Slashdot

Log In

Nickname Password Public Terminal

[ Create a new account ]

recursiv
  (email not shown publicly)
http://www.tomtheisen.com/
AOL IM: recursiv (Add Buddy, Send Message)

---

$_='$n=2101){if(!scalar grep$n%$_==0,2..$n-1){($l+=$n/2+6)>77?($l=$n/2, ~\x0c"):4;$r=0@i[map(w($r,$_,$n),1..$n-1)]=1..$n;f oreac h$e(1..$n>>1){$o=$e+($n>>1);~ $eZ",w($r,$e,$n),"Z${i[$e]} $oZ",w($r,$o,$n),"Z",$i[$o]}}}sub o{my$qforeach(1..$_[1]){$w=$w*$_[0]%$_[2]}return$ w}'; s/Z/ | /g;s/~/print"/g;s/until(/g;eval