diff options
| -rw-r--r-- | challenge-283/wlmb/blog.txt | 1 | ||||
| -rwxr-xr-x | challenge-283/wlmb/perl/ch-1.pl | 15 | ||||
| -rwxr-xr-x | challenge-283/wlmb/perl/ch-2.pl | 11 |
3 files changed, 27 insertions, 0 deletions
diff --git a/challenge-283/wlmb/blog.txt b/challenge-283/wlmb/blog.txt new file mode 100644 index 0000000000..3be0e53a5f --- /dev/null +++ b/challenge-283/wlmb/blog.txt @@ -0,0 +1 @@ +https://wlmb.github.io/2024/08/19/PWC283/ diff --git a/challenge-283/wlmb/perl/ch-1.pl b/challenge-283/wlmb/perl/ch-1.pl new file mode 100755 index 0000000000..07dbc8b8be --- /dev/null +++ b/challenge-283/wlmb/perl/ch-1.pl @@ -0,0 +1,15 @@ +#!/usr/bin/env perl +# Perl weekly challenge 283 +# Task 1: Unique Number +# +# See https://wlmb.github.io/2024/08/19/PWC283/#task-1-unique-number +use v5.36; +die <<~"FIN" unless @ARGV; + Usage: $0 N1 N2... + to find which of the numbers N1 N2... appears only once. + FIN +my %count; +$count{$_}++ for @ARGV; +my @unique; +$count{$_}==1 && push @unique, $_ for keys %count; +say "@ARGV -> @unique"; diff --git a/challenge-283/wlmb/perl/ch-2.pl b/challenge-283/wlmb/perl/ch-2.pl new file mode 100755 index 0000000000..2f4d48c618 --- /dev/null +++ b/challenge-283/wlmb/perl/ch-2.pl @@ -0,0 +1,11 @@ +#!/usr/bin/env perl +# Perl weekly challenge 283 +# Task 2: Digit Count Value +# +# See https://wlmb.github.io/2024/08/19/PWC283/#task-2-digit-count-value +use v5.36; +my %count; +$count{$_}++ for @ARGV; +my $result="True"; +(($count{$_}//0)==$ARGV[$_]) || ($result="False") for 0..@ARGV-1; +say "@ARGV -> $result" |