Changes between Version 11 and Version 12 of Perl

Timestamp:

09/19/06 22:04:26 (18 years ago)

Author:

atzm

Comment:

--

Perl

@@ -410 +410 @@
 my $A="a";for(my $i=0;;$i++,$A++){printf'my $A="a";for(1..%d){$A++;}print"$A";%s',$i,"\n"and last if $A eq $ARGV[0];}
 }}}
+ * 高速バージョン from http://hori-uchi.com/archives/000243.html#comments
+{{{
+#!sh
+$ perl -e '@A=reverse split//,$ARGV[0];for(@A){$s+=(ord($_)-96)*(26**$i++)};print $s-1,"\n";' 
+}}}