diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-24 17:56:21 +0000 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-02-24 17:56:21 +0000 |
| commit | 35e87b4c3469fbb4ec8cf42e57a7f26217e85313 (patch) | |
| tree | 6a22aebdbf1ed1143e02879fbdc866db1f023625 /challenge-049 | |
| parent | b794f36b29be553e1b6dc1e790c5d0bf331a9bc3 (diff) | |
| download | perlweeklychallenge-club-35e87b4c3469fbb4ec8cf42e57a7f26217e85313.tar.gz perlweeklychallenge-club-35e87b4c3469fbb4ec8cf42e57a7f26217e85313.tar.bz2 perlweeklychallenge-club-35e87b4c3469fbb4ec8cf42e57a7f26217e85313.zip | |
- Added my solution to Task #1 in Perl.
Diffstat (limited to 'challenge-049')
| -rw-r--r-- | challenge-049/mohammad-anwar/perl/ch-1.pl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/challenge-049/mohammad-anwar/perl/ch-1.pl b/challenge-049/mohammad-anwar/perl/ch-1.pl new file mode 100644 index 0000000000..7c2a30215f --- /dev/null +++ b/challenge-049/mohammad-anwar/perl/ch-1.pl @@ -0,0 +1,11 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +my $num = $ARGV[0]; +die "Missing number.\n" unless defined $num; + +my ($res, $i); +do { $res = $num * ++$i; } until ($res =~ /^[01]+$/); +print "$num => $res\n"; |