diff options
| author | Gratza <rg@ciphron.de> | 2019-04-01 16:15:26 +0200 |
|---|---|---|
| committer | Gratza <rg@ciphron.de> | 2019-04-01 16:15:26 +0200 |
| commit | 5bc984c14147eacb7ad21a6bfe2fbe5393bba54f (patch) | |
| tree | 63f8fd7ce8a50e9d6e9b3d916aa142d75d063cb9 | |
| parent | fd1bb3088c5d777a9a52fd98ac6eac82a55e6b25 (diff) | |
| download | perlweeklychallenge-club-5bc984c14147eacb7ad21a6bfe2fbe5393bba54f.tar.gz perlweeklychallenge-club-5bc984c14147eacb7ad21a6bfe2fbe5393bba54f.tar.bz2 perlweeklychallenge-club-5bc984c14147eacb7ad21a6bfe2fbe5393bba54f.zip | |
solutions to challenge-002
| -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"; |