On Friday, February 15, 2002, at 06:47 PM, Stephen Turner wrote: >>> #!perl -l >>> use POSIX;print~~strtol pop,36
> Well, I repeat my challenge. Can anyone beat Karsten's 46 without using > POSIX? Hmm, maybe not... I can get to 55 or so... But here is an expanded solution - #!perl while (<DATA>) { chomp; s/^\s+//; # Delete whitespace... s/\s+$//; split //; # Create an array of characters for (@_) { # Walking thru we get position Power s#\D#-55+ord$&#e; # If we have Letters then make Numbers $z=36*$z+$_; # Make the Base Conversion to Base 10 } print"$z "; $z = 0; # Reset the char to 0 } =pod Test Data results in: 375 159 625047 718501 respectively... =cut __END__ AF 4F DEAF FEED Obviously A LOT of room for shortening! Which, of course, is left to those interested in such matters :) Cheers! :] _Sx____________________ ('> -Sx- IUDICIUM //\ Have Computer - v_/_ Will Hack...