Merge pull request #10663 from wlmb/challenges

Solve PWC283

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"