[EMAIL PROTECTED] schreef op 21 februari 2002:
> Ton Hospel schreef op 21 februari 2002:
> >> $\=(30+ord lc)%39+36*$\.$/for pop=~/./g;print
> >>
> >> Hey, that's 45! Stephen, are you happy now?
> >> Ton, you are the best golf post-mortem analyst in the world. :)
> >>
> > You did all the hard work, I just moved some chars around.
>
> Eugene van der Pijll schreef op 3 februari 2002:
> > Beaten? I not understand! The Andrew-Ton collective: 90 Eugene: 89.
> > Besides, your solution fails for long files.
>
> I hope this 45 restores some credibility to the Andrew-Ton collective
> whose motto is: "If you can't win the game, win the post-mortem". :)
OK, OK, I have to admit that that is impressive.
Here are two of my attempts. Enjoy!
#!/usr/bin/perl -l
[pop=~/.(?{$a=$a*36-55+$&=~y#0-9##*7+ord$&})/g];print$a
(58)
#!/usr/bin/perl -l
$"=",";print~~grep$.gt$_,glob"{@{[0..9,A..Z]}}"x length($.=pop)
(66)
Eugene
