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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.