Re: Collaborative golf.

[email protected] (Mtv Europe)
Newsgroups perl.golf
Message-ID <[email protected]>
Hello Eugene!

[email protected] (Eugene Van Der Pijll) wrote:
> 
> Is anyone still golfing this, or should we all post our solutions? Mine
> is a 145.

Since it's impossible to compete seriously with such dashing achievement,
i show my cards.  Here is a codegenerator for 175:

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__

---
Mtv Europe
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.