From 6efd4810e5af11d41c108feafa9447ccd459f4ff Mon Sep 17 00:00:00 2001 From: "Jaldhar H. Vyas" Date: Tue, 23 Jul 2024 23:54:56 -0400 Subject: Challenge 279 by Jaldhar H. Vyas. --- challenge-279/jaldhar-h-vyas/blog.txt | 1 + challenge-279/jaldhar-h-vyas/perl/ch-1.pl | 12 ++++++++++++ challenge-279/jaldhar-h-vyas/perl/ch-2.sh | 3 +++ challenge-279/jaldhar-h-vyas/raku/ch-1.sh | 3 +++ challenge-279/jaldhar-h-vyas/raku/ch-2.sh | 3 +++ 5 files changed, 22 insertions(+) create mode 100644 challenge-279/jaldhar-h-vyas/blog.txt create mode 100755 challenge-279/jaldhar-h-vyas/perl/ch-1.pl create mode 100755 challenge-279/jaldhar-h-vyas/perl/ch-2.sh create mode 100755 challenge-279/jaldhar-h-vyas/raku/ch-1.sh create mode 100755 challenge-279/jaldhar-h-vyas/raku/ch-2.sh diff --git a/challenge-279/jaldhar-h-vyas/blog.txt b/challenge-279/jaldhar-h-vyas/blog.txt new file mode 100644 index 0000000000..6a5a37e5f9 --- /dev/null +++ b/challenge-279/jaldhar-h-vyas/blog.txt @@ -0,0 +1 @@ +https://www.braincells.com/perl/2024/07/perl_weekly_challenge_week_279.html diff --git a/challenge-279/jaldhar-h-vyas/perl/ch-1.pl b/challenge-279/jaldhar-h-vyas/perl/ch-1.pl new file mode 100755 index 0000000000..d9ce317708 --- /dev/null +++ b/challenge-279/jaldhar-h-vyas/perl/ch-1.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl +use v5.38; + +my @letters = split /\s+/, $ARGV[0]; +my @weights = split /\s+/, $ARGV[1]; +my %h; + +for my $key (keys @weights) { + $h{$weights[$key]} = $letters[$key ]; +} + +say join q{}, map { $h{$_} } sort { $a <=> $b } keys %h; \ No newline at end of file diff --git a/challenge-279/jaldhar-h-vyas/perl/ch-2.sh b/challenge-279/jaldhar-h-vyas/perl/ch-2.sh new file mode 100755 index 0000000000..333c9ab690 --- /dev/null +++ b/challenge-279/jaldhar-h-vyas/perl/ch-2.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +perl -E 'say $ARGV[0]=~y/aeiou//%2?"false":"true"' "$@" diff --git a/challenge-279/jaldhar-h-vyas/raku/ch-1.sh b/challenge-279/jaldhar-h-vyas/raku/ch-1.sh new file mode 100755 index 0000000000..54c7037abe --- /dev/null +++ b/challenge-279/jaldhar-h-vyas/raku/ch-1.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +raku -e '%(@*ARGS[1].words Z=>@*ARGS[0].words).sort.map({$_.value}).join.say' "$@" diff --git a/challenge-279/jaldhar-h-vyas/raku/ch-2.sh b/challenge-279/jaldhar-h-vyas/raku/ch-2.sh new file mode 100755 index 0000000000..0920f74d94 --- /dev/null +++ b/challenge-279/jaldhar-h-vyas/raku/ch-2.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +raku -e 'say @*ARGS[0].match(/(<[aeiou]>)/,:g).elems%%2' "$@" -- cgit