On Fri, Feb 15, 2002 at 11:47:27PM +0000, Stephen Turner wrote: > Well, I repeat my challenge. Can anyone beat Karsten's 46 without using > POSIX?
I think my entries must have been late, but here's a 41. #!/usr/bin/perl -l $_=pop;print/A/?360:/B/?47:/Z/?46655:1 __END__ It passes the test program, and the rules say "Any program that passes the test program can be submitted." -- Paul Johnson - [EMAIL PROTECTED] http://www.pjcj.net