NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
use Perl Log In
z0d (1340)
Friday February 15, 2002
12:09 PM
Golf
Finally the TPR0 competition ended.
My entry was:
#!/usr/bin/perl -l
for(reverse+split//,pop){$_=ord()-55if/\D/;$q+=$_*36**$i++}print$q
__END__
because that's exactly how much difference there is. :-)
--Larry Wall in <10209@jpl-devvax.JPL.NASA.GOV>
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
Golf 0 Comments More | Login | Reply /