blob: dc56e885f6972fcf8afffef56671bd4e5978e8ef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/env perl
use v5.012;
use warnings;
use integer;
use List::Util qw(reduce all);
# PWC 060, TASK #1 : Excel Column
my ( @alpha, %trans ) = ( 'A' .. 'Z', );
@trans{ @alpha, keys @alpha } = ( keys(@alpha), @alpha, );
sub num_to_col {
my ( $num, @col ) = ( $_[0], );
push @col, ( $num - 1 ) % 26 and $num = ( $num - 1 ) / 26 while $num;
return join( '', reverse @trans{@col} );
}
sub col_to_num {
return 1 + reduce { 26 * ( $a + 1 ) + $b } @trans{ split( '', $_[0] ) };
}
my @inargs = map { s/\b 0+ \B//xms; uc($_) } @ARGV;
die "Input is not a list consisting of "
. "either alphabetic strings or positive integers."
unless all { /\A [0-9A-Z]+ \Z/xms and $_ ne '0' } @inargs;
for my $inarg (@inargs) {
my $type = $inarg =~ /\d/ ? 'Number' : 'Column Name';
my $output = $type eq 'Number' ? num_to_col $inarg : col_to_num $inarg;
say "\nInput $type: $inarg\nOutput: $output";
}
|
