diff options
| -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'); + |