diff options
| -rw-r--r-- | challenge-002/rob4t/perl5/ch-1.sh | 1 | ||||
| -rw-r--r-- | challenge-002/rob4t/perl5/ch-2.pl | 19 |
2 files changed, 20 insertions, 0 deletions
diff --git a/challenge-002/rob4t/perl5/ch-1.sh b/challenge-002/rob4t/perl5/ch-1.sh new file mode 100644 index 0000000000..97787b238f --- /dev/null +++ b/challenge-002/rob4t/perl5/ch-1.sh @@ -0,0 +1 @@ +echo "0002345" | perl -pE 's/(?<![-0])0*([\d.,]+)/$1/g' diff --git a/challenge-002/rob4t/perl5/ch-2.pl b/challenge-002/rob4t/perl5/ch-2.pl new file mode 100644 index 0000000000..eddf1c0a26 --- /dev/null +++ b/challenge-002/rob4t/perl5/ch-2.pl @@ -0,0 +1,19 @@ +my $number = $ARGV[0]; +die "supply a valid integer number" if($number ne int($number)); + +my @b35 = ( 0 .. 9, 'A' .. 'Y' ); +my @res = (); + +sub calc { + my $num = shift; + return if ( !$num ); + + push @res, $b35[ $num % 35 ]; + calc( int( $num / 35 ) ); +} + +calc($number); + +my $res = join( '', reverse @res ); + +print $res . "\n"; |