Re: Collaborative golf.
[email protected] (Mtv Europe)
| Newsgroups | perl.golf |
|---|---|
| Message-ID | <[email protected]> |
Hello Eugene! [email protected] (Eugene Van Der Pijll) wrote: > > Blegh. A codegenerator. "don't underestimate the power of brute force" > $==(15-(.32*($C=($y=pop)*.01|0)+.52|0)+($C*=.75)+$y%19*19)%30;print$y,0, > 401-/-/*69+$_,$/for($=+=(-1,20-$y%19/11)[29-$=])-((5/4*$y|0)+$=+2-$C)%7-4 > > should do the job. down to 132 :) printf "eval lc pack u,'%s'", unpack u, uc <<'__END__' mm;$==(15-(.32*($C=($y=pop)*.01^0)+.52^0)+($C*=.75)+$y%19*19- mm)%30;print$y,0,401-/-/*69+$_,$/for($=+=(-1,20-$y%19/11)[37- 8-$=])-((5/4*$y^0)+$=+2-$C)%7-4# __END__ --- Mtv Europe