diff options
| author | Dave Cross <dave@dave.org.uk> | 2020-02-26 10:35:34 +0000 |
|---|---|---|
| committer | Dave Cross <dave@dave.org.uk> | 2020-03-02 08:52:36 +0000 |
| commit | 7cfaf7baeedbbebe7fb861d3984306949dd3dd53 (patch) | |
| tree | 4e6a1e57bddf5d16e7deb9573145393bfb37988b /challenge-049 | |
| parent | 16116626d45bf678a0209a92d27478423fbcfab3 (diff) | |
| download | perlweeklychallenge-club-7cfaf7baeedbbebe7fb861d3984306949dd3dd53.tar.gz perlweeklychallenge-club-7cfaf7baeedbbebe7fb861d3984306949dd3dd53.tar.bz2 perlweeklychallenge-club-7cfaf7baeedbbebe7fb861d3984306949dd3dd53.zip | |
Challenge #49 Task #1
Diffstat (limited to 'challenge-049')
| -rw-r--r-- | challenge-049/dave-cross/perl/ch-01.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/challenge-049/dave-cross/perl/ch-01.pl b/challenge-049/dave-cross/perl/ch-01.pl new file mode 100644 index 0000000000..1a56b856bb --- /dev/null +++ b/challenge-049/dave-cross/perl/ch-01.pl @@ -0,0 +1,19 @@ +#!/usr/bin/perl + +use strict; +use warnings; +use feature 'say'; + +# Input checking +# * We've got an argument +# * It only contains digits +# * It's not zero +die "I need a positive integer\n" + if !@ARGV or $ARGV[0] =~ /\D/ or $ARGV[0] < 1; + +my $num = shift; +my $x = 1; + +$x++ while ($num * $x) =~ /[^01]/; + +say "$num x $x = ", $num * $x; |