diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-04-02 18:01:17 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-02 18:01:17 +0100 |
| commit | 803a90b3a4f4fc0b5513b4a07df4d204df98a93d (patch) | |
| tree | 26e740fd91822aa3cbde92bd7d7145871feea5eb /challenge-002 | |
| parent | 253327bfe96ba85cd8b9672b0eba8525b9e7396c (diff) | |
| parent | 5bc984c14147eacb7ad21a6bfe2fbe5393bba54f (diff) | |
| download | perlweeklychallenge-club-803a90b3a4f4fc0b5513b4a07df4d204df98a93d.tar.gz perlweeklychallenge-club-803a90b3a4f4fc0b5513b4a07df4d204df98a93d.tar.bz2 perlweeklychallenge-club-803a90b3a4f4fc0b5513b4a07df4d204df98a93d.zip | |
Merge pull request #2 from Rob4t/master
solutions to challenge-002
Diffstat (limited 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"; |