From 64b4b73e872dfef967196351db7b5b3afd57eebf Mon Sep 17 00:00:00 2001 From: Luis Mochan Date: Mon, 1 Jan 2024 12:14:43 -0600 Subject: Solve PWC250 --- challenge-250/wlmb/blog.txt | 1 + challenge-250/wlmb/perl/ch-1.pl | 12 ++++++++++++ challenge-250/wlmb/perl/ch-2.pl | 12 ++++++++++++ 3 files changed, 25 insertions(+) create mode 100644 challenge-250/wlmb/blog.txt create mode 100755 challenge-250/wlmb/perl/ch-1.pl create mode 100755 challenge-250/wlmb/perl/ch-2.pl diff --git a/challenge-250/wlmb/blog.txt b/challenge-250/wlmb/blog.txt new file mode 100644 index 0000000000..2e410449a5 --- /dev/null +++ b/challenge-250/wlmb/blog.txt @@ -0,0 +1 @@ +https://wlmb.github.io/2024/01/01/PWC250/ diff --git a/challenge-250/wlmb/perl/ch-1.pl b/challenge-250/wlmb/perl/ch-1.pl new file mode 100755 index 0000000000..426478d74b --- /dev/null +++ b/challenge-250/wlmb/perl/ch-1.pl @@ -0,0 +1,12 @@ +#!/usr/bin/env perl +# Perl weekly challenge 250 +# Task 1: Smallest Index +# +# See https://wlmb.github.io/2024/01/01/PWC250/#task-1-smallest-index +use v5.36; +use List::Util qw(first); +die <<~"FIN" unless @ARGV; + Usage: $0 N0 [N1...] + to find first index i for which N_i%10==i + FIN +say "@ARGV -> ", (first {$ARGV[$_]%10==$_} @ARGV)//-1; diff --git a/challenge-250/wlmb/perl/ch-2.pl b/challenge-250/wlmb/perl/ch-2.pl new file mode 100755 index 0000000000..125b609d47 --- /dev/null +++ b/challenge-250/wlmb/perl/ch-2.pl @@ -0,0 +1,12 @@ +#!/usr/bin/env perl +# Perl weekly challenge 250 +# Task 2: Alphanumeric String Value +# +# See https://wlmb.github.io/2024/01/01/PWC250/#task-2-alphanumeric-string-value +use v5.36; +use List::Util qw(max); +die <<~"FIN" unless @ARGV; + Usage: $0 S0 [S1...] + to find the maximum \"value\" of the strings S0 S1... + FIN +say "@ARGV -> ", max map {/^[+-]?\d+$/?0+$_:length $_} @ARGV; -- cgit