「やっぱりちがうな」記事へのコメント

手元では

[k3c (4386)]

そうなってますが…(汗

$ cat rowtonum2.pl
#!/usr/bin/perl -w

sub rowtonum2($) {
    my $row      = lc( shift @_ );
    my $base     = ord( "a" ) - 1;
    my $interval = ord( "z" ) - $base;
    my $num      = 0;
    foreach my $c ( split( //, $row ) ) {
        $num *= $interval;
        $num += ord( $c ) - $base;
    }
    return --$num;
}

print "aa=" . rowtonum2('aa') . "\n";
print "ab=" . rowtonum2('ab') . "\n";
print "ac=" . rowtonum2('ac') . "\n";

$ ./rowtonum2.pl
aa=26
ab=27
ac=28

なんとなく、
        $num += ord( $c ) - $base;
が
        $num *= ord( $c ) - $base;
となっていそうなヨカーン。

Re:手元では

[bravo (1225)]

と、手元を良く見返してみると、

foreach my $c (reverse(split //, $row )) {
          $num *= $interval;
          $num += ord( $c ) - $base;
}
return --$num;

なんでreverseが入ってたんだ(--; 早とちりすまんです。