Re: Collaborative golf.
[email protected] (Eugene van der Pijll)
| Newsgroups | perl.golf |
|---|---|
| Message-ID | <[email protected]> |
En op 14 september 2002 sprak Mtv Europe:
> Since it's impossible to compete seriously with such dashing achievement,
> i show my cards. Here is a codegenerator for 175:
Blegh. A codegenerator.
> printf "eval lc pack u,'%s'", unpack u, uc <<'__END__'
> mm;printf"%d%02d%02d\n",$y=pop,$p=3+(($I=($H=(($m=0^$y/100)-$
> m/4-(0^(8*$m+13)/25)+$y%19*19+15)%30)-($z=0^$H/28)*(1-(0^29/(
> mm+1+$H))*$z*(21-$y%19/11^0)))-($J=($y*5/+4+$I+2-$m+($m>>2))%
> 7)+40)/44,$I-$J+28-31*($p>>2)#
> __END__
$==(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.
(-ugene
--
'Forty-two, Master |_egolas!' he cried ... 'How is it with you?'
'You have passed my score by one,' answered |_egolas. 'But I do not
grudge you the game, so glad am I to see you on your legs!'
-- Lord of the Rings III.8