Re: Alpha base-26 to base-10...


Syntactic Confectionery Delight
	PerlMonks

Re: Alpha base-26 to base-10...

by Aristotle (Chancellor)

on Jul 01, 2003 at 00:06 UTC ( [id://270365]=note: print w/replies, xml )

Need Help??

in reply to Alpha base-26 to base-10...

use strict;
use warnings;
use List::Util qw(sum);
use constant OFFS => 1 - ord 'a';
use constant BASE => ord("z") - ord("a") + 1;

sub alphabetic_to_base10 {
    local $_ = reverse shift;
    my $fac = 1;
    sum map +( (OFFS+ord $_)*$fac, $fac*=BASE )[0], /./g;
}

printf "$_: %d\n", alphabetic_to_base10($_) for qw[a z aa az ba zz aaa
+ zba];
__END__
a: 1
z: 26
aa: 27
az: 52
ba: 53
zz: 702
aaa: 703
zba: 17629
[download]

Update: OFFS has to be 1 - ord 'a', not - ord 'a', of course.

Makeshifts last the longest.