From 9ae88c2c36c5a4b88a4c813079a818e4d02a6fb5 Mon Sep 17 00:00:00 2001 From: Luis Mochan Date: Mon, 19 Aug 2024 12:36:55 -0600 Subject: Solve PWC283 --- challenge-283/wlmb/blog.txt | 1 + challenge-283/wlmb/perl/ch-1.pl | 15 +++++++++++++++ challenge-283/wlmb/perl/ch-2.pl | 11 +++++++++++ 3 files changed, 27 insertions(+) create mode 100644 challenge-283/wlmb/blog.txt create mode 100755 challenge-283/wlmb/perl/ch-1.pl create mode 100755 challenge-283/wlmb/perl/ch-2.pl 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" -- cgit