diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-12-04 11:21:01 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-04 11:21:01 +0000 |
| commit | c86f2aaba3666a4f4dfca96791a9f204a46e0656 (patch) | |
| tree | c131c3e55274a28b8d4a595a5a70b29d634809e1 | |
| parent | eac12b06e86f6b5cf74c079b21401a521085b979 (diff) | |
| parent | 03e025417bd9e9ec9659d96c94bcc9f661069b8e (diff) | |
| download | perlweeklychallenge-club-c86f2aaba3666a4f4dfca96791a9f204a46e0656.tar.gz perlweeklychallenge-club-c86f2aaba3666a4f4dfca96791a9f204a46e0656.tar.bz2 perlweeklychallenge-club-c86f2aaba3666a4f4dfca96791a9f204a46e0656.zip | |
Merge pull request #7198 from southpawgeek/southpawgeek193
task 1
| -rw-r--r-- | challenge-193/southpawgeek/perl/ch-1.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/challenge-193/southpawgeek/perl/ch-1.pl b/challenge-193/southpawgeek/perl/ch-1.pl new file mode 100644 index 0000000000..8baf8a0a11 --- /dev/null +++ b/challenge-193/southpawgeek/perl/ch-1.pl @@ -0,0 +1,12 @@ +use feature qw/say/; +use strict; + +my ($bits) = @ARGV; + +die "positive integers only\n" unless $bits =~ /^-?\d+\z/ && $bits > 0; + +my $count = 0; +while ($count < 2 ** $bits) { + say sprintf('%0'.$bits.'b', $count); + $count++; +}
\ No newline at end of file |