From a5129a1dbb83fd41ef8e8bfb8beffc9f8cf4f1f5 Mon Sep 17 00:00:00 2001 From: deadmarshal Date: Fri, 2 Feb 2024 11:45:49 -0500 Subject: TWC254 --- challenge-254/deadmarshal/blog.txt | 1 + challenge-254/deadmarshal/perl/ch-1.pl | 12 ++++++++++++ challenge-254/deadmarshal/perl/ch-2.pl | 16 ++++++++++++++++ 3 files changed, 29 insertions(+) create mode 100644 challenge-254/deadmarshal/blog.txt create mode 100644 challenge-254/deadmarshal/perl/ch-1.pl create mode 100644 challenge-254/deadmarshal/perl/ch-2.pl diff --git a/challenge-254/deadmarshal/blog.txt b/challenge-254/deadmarshal/blog.txt new file mode 100644 index 0000000000..b43f2d04af --- /dev/null +++ b/challenge-254/deadmarshal/blog.txt @@ -0,0 +1 @@ +https://deadmarshal.blogspot.com/2024/02/twc254.html diff --git a/challenge-254/deadmarshal/perl/ch-1.pl b/challenge-254/deadmarshal/perl/ch-1.pl new file mode 100644 index 0000000000..80ecf498c6 --- /dev/null +++ b/challenge-254/deadmarshal/perl/ch-1.pl @@ -0,0 +1,12 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +sub three_power{ + $_[0] == int($_[0]**(1/3))**3 +} + +printf "%d\n",three_power(27); +printf "%d\n",three_power(0); +printf "%d\n",three_power(6); + diff --git a/challenge-254/deadmarshal/perl/ch-2.pl b/challenge-254/deadmarshal/perl/ch-2.pl new file mode 100644 index 0000000000..48da550338 --- /dev/null +++ b/challenge-254/deadmarshal/perl/ch-2.pl @@ -0,0 +1,16 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +sub reverse_vowels{ + my ($str) = @_; + my @vowels = $str =~ /[aeiou]/gi; + $str =~ s/([aeiou])/pop @vowels/egi; + ucfirst $str +} + +printf "%s\n",reverse_vowels('Raku'); +printf "%s\n",reverse_vowels('Perl'); +printf "%s\n",reverse_vowels('Julia'); +printf "%s\n",reverse_vowels('Uiua'); + -- cgit