diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-12 16:17:49 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-04-12 16:17:49 +0100 |
| commit | d24a293c623ca2b2e08f2ef506e032ce38c49015 (patch) | |
| tree | 3d49d938fb051c4e6c73ad191af05214f4600f11 | |
| parent | 7067beffb27487c8a99627564161452e093553c8 (diff) | |
| download | perlweeklychallenge-club-d24a293c623ca2b2e08f2ef506e032ce38c49015.tar.gz perlweeklychallenge-club-d24a293c623ca2b2e08f2ef506e032ce38c49015.tar.bz2 perlweeklychallenge-club-d24a293c623ca2b2e08f2ef506e032ce38c49015.zip | |
- Added default value to Flip Binary solution.
| -rw-r--r-- | challenge-055/mohammad-anwar/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-055/mohammad-anwar/perl/ch-1.pl b/challenge-055/mohammad-anwar/perl/ch-1.pl index 698f8ec222..62cd6d2986 100644 --- a/challenge-055/mohammad-anwar/perl/ch-1.pl +++ b/challenge-055/mohammad-anwar/perl/ch-1.pl @@ -3,7 +3,7 @@ use strict; use warnings; -my $binary_str = $ARGV[0]; +my $binary_str = $ARGV[0] // "101"; print "$binary_str => ", flip_binary($binary_str), "\n"; |