From cd1acd494defc0c19cf871db879955b52a7780b0 Mon Sep 17 00:00:00 2001 From: Luis Mochan Date: Mon, 13 May 2024 10:18:03 -0600 Subject: Solve PWC269 --- challenge-269/wlmb/blog.txt | 1 + challenge-269/wlmb/perl/ch-1.pl | 12 ++++++++++++ challenge-269/wlmb/perl/ch-2.pl | 18 ++++++++++++++++++ 3 files changed, 31 insertions(+) create mode 100644 challenge-269/wlmb/blog.txt create mode 100755 challenge-269/wlmb/perl/ch-1.pl create mode 100755 challenge-269/wlmb/perl/ch-2.pl diff --git a/challenge-269/wlmb/blog.txt b/challenge-269/wlmb/blog.txt new file mode 100644 index 0000000000..dcaf7bd21d --- /dev/null +++ b/challenge-269/wlmb/blog.txt @@ -0,0 +1 @@ +https://wlmb.github.io/2024/05/13/PWC269/ diff --git a/challenge-269/wlmb/perl/ch-1.pl b/challenge-269/wlmb/perl/ch-1.pl new file mode 100755 index 0000000000..25017d7253 --- /dev/null +++ b/challenge-269/wlmb/perl/ch-1.pl @@ -0,0 +1,12 @@ +#!/usr/bin/env perl +# Perl weekly challenge 269 +# Task 1: Bitwise OR +# +# See https://wlmb.github.io/2024/05/13/PWC269/#task-1-bitwise-or +use v5.36; +die <<~"FIN" unless @ARGV; + Usage: $0 N1 N2... + to find if there are two or more numbers Ni whose bitwise + or has the zeroth bit turned off. + FIN +say "@ARGV -> ", (my @x=grep {($_&1)==0} @ARGV)>=2?"True":"False"; diff --git a/challenge-269/wlmb/perl/ch-2.pl b/challenge-269/wlmb/perl/ch-2.pl new file mode 100755 index 0000000000..124e96c179 --- /dev/null +++ b/challenge-269/wlmb/perl/ch-2.pl @@ -0,0 +1,18 @@ +#!/usr/bin/env perl +# Perl weekly challenge 269 +# Task 2: Distribute Elements +# +# See https://wlmb.github.io/2024/05/13/PWC269/#task-2-distribute-elements +use v5.36; +die <<~"FIN" unless @ARGV>=2; + Usage: $0 N1 N2... + to redistribute the numbers N1 N2... + FIN +my @in=@ARGV; +my @y=(shift); +my @z=(shift); +for(@ARGV){ + my $which=$y[-1]>$z[-1]?\@y:\@z; + push @$which,$_; +} +say "@in->@y @z"; -- cgit