diff options
| author | deadmarshal <adeadmarshal@gmail.com> | 2024-02-02 11:45:49 -0500 |
|---|---|---|
| committer | deadmarshal <adeadmarshal@gmail.com> | 2024-02-02 11:45:49 -0500 |
| commit | a5129a1dbb83fd41ef8e8bfb8beffc9f8cf4f1f5 (patch) | |
| tree | bb60503698ce09f2e28fffe525be040061c665bb | |
| parent | 89a7611a540473d18a9ccec182bec61c2909ce01 (diff) | |
| download | perlweeklychallenge-club-a5129a1dbb83fd41ef8e8bfb8beffc9f8cf4f1f5.tar.gz perlweeklychallenge-club-a5129a1dbb83fd41ef8e8bfb8beffc9f8cf4f1f5.tar.bz2 perlweeklychallenge-club-a5129a1dbb83fd41ef8e8bfb8beffc9f8cf4f1f5.zip | |
TWC254
| -rw-r--r-- | challenge-254/deadmarshal/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-254/deadmarshal/perl/ch-1.pl | 12 | ||||
| -rw-r--r-- | challenge-254/deadmarshal/perl/ch-2.pl | 16 |
3 files changed, 29 insertions, 0 deletions
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'); + |