From 270a0c7dfb1bde453e34237e9b8c2c18b35baf78 Mon Sep 17 00:00:00 2001 From: "Jaldhar H. Vyas" Date: Mon, 3 Jun 2024 23:29:43 -0400 Subject: Challenge 272 by Jaldhar H. Vyas. --- challenge-272/jaldhar-h-vyas/blog.txt | 1 + challenge-272/jaldhar-h-vyas/perl/ch-1.sh | 3 +++ challenge-272/jaldhar-h-vyas/perl/ch-2.pl | 12 ++++++++++++ challenge-272/jaldhar-h-vyas/raku/ch-1.sh | 3 +++ challenge-272/jaldhar-h-vyas/raku/ch-2.raku | 14 ++++++++++++++ 5 files changed, 33 insertions(+) create mode 100644 challenge-272/jaldhar-h-vyas/blog.txt create mode 100755 challenge-272/jaldhar-h-vyas/perl/ch-1.sh create mode 100755 challenge-272/jaldhar-h-vyas/perl/ch-2.pl create mode 100755 challenge-272/jaldhar-h-vyas/raku/ch-1.sh create mode 100755 challenge-272/jaldhar-h-vyas/raku/ch-2.raku diff --git a/challenge-272/jaldhar-h-vyas/blog.txt b/challenge-272/jaldhar-h-vyas/blog.txt new file mode 100644 index 0000000000..71371aa4bb --- /dev/null +++ b/challenge-272/jaldhar-h-vyas/blog.txt @@ -0,0 +1 @@ +https://www.braincells.com/perl/2024/06/perl_weekly_challenge_week_272.html diff --git a/challenge-272/jaldhar-h-vyas/perl/ch-1.sh b/challenge-272/jaldhar-h-vyas/perl/ch-1.sh new file mode 100755 index 0000000000..9ded32b637 --- /dev/null +++ b/challenge-272/jaldhar-h-vyas/perl/ch-1.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +perl -E '$_=shift;s/\./[.]/g;say' "$@" diff --git a/challenge-272/jaldhar-h-vyas/perl/ch-2.pl b/challenge-272/jaldhar-h-vyas/perl/ch-2.pl new file mode 100755 index 0000000000..331c6174e8 --- /dev/null +++ b/challenge-272/jaldhar-h-vyas/perl/ch-2.pl @@ -0,0 +1,12 @@ +#!/usr/bin/perl +use v5.38; + +my $str = shift; +my @chars = split //, $str; +my $score; + +for my $i (0 .. scalar @chars - 2) { + $score += abs(ord($chars[$i]) - ord($chars[$i + 1])); +} + +say $score; diff --git a/challenge-272/jaldhar-h-vyas/raku/ch-1.sh b/challenge-272/jaldhar-h-vyas/raku/ch-1.sh new file mode 100755 index 0000000000..ea29eb6c03 --- /dev/null +++ b/challenge-272/jaldhar-h-vyas/raku/ch-1.sh @@ -0,0 +1,3 @@ +#!/bin/sh + +raku -e 'say @*ARGS[0].subst(".", "[.]",:g)' "$@" diff --git a/challenge-272/jaldhar-h-vyas/raku/ch-2.raku b/challenge-272/jaldhar-h-vyas/raku/ch-2.raku new file mode 100755 index 0000000000..16618ecccd --- /dev/null +++ b/challenge-272/jaldhar-h-vyas/raku/ch-2.raku @@ -0,0 +1,14 @@ +#!/usr/bin/raku + +sub MAIN( + $str +) { + my @chars = $str.comb; + my $score; + + for @chars.skip(1).keys -> $i { + $score += (@chars[$i].ord - @chars[$i + 1].ord).abs; + } + + say $score; +} \ No newline at end of file -- cgit