Eugene van der Pijll schreef op 22 februari 2002: > #!/usr/bin/perl -l > [pop=~/.(?{$a=$a*36-55+$&=~y#0-9##*7+ord$&})/g];print$a > (58)
I don't recall seeing a single entry in any of the 4 golf games that successfully used this technique. In the Get Even post mortem, Ton suggested to try to find a variant of: -p /[aeiouy]?(?{$_ x=1&~$.&split$&})/ that doesn't coredump, but did not provide a working solution. For cheap thrills, I whittled Eugene's 58 to 52. #!/usr/bin/perl -l [pop=~/.(?{$a=$a*36+(ord(lc$&)-9)%39})/g];print$a There is at least one person on this list (Japhy) who truly understands all the intricacies of (?{...}) but I certainly don't. For example, why do you need the [] ? Curiously, Eugene's 58-er works on Perl 5.6.1 but fails on 5.6.0, while my whittled 52-er passes both versions. I don't know why. /-\ndrew