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