diff options
| -rw-r--r-- | challenge-105/polettix/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-105/polettix/blog1.txt | 1 | ||||
| -rw-r--r-- | challenge-105/polettix/perl/ch-1.pl | 11 | ||||
| -rw-r--r-- | challenge-105/polettix/perl/ch-2.pl | 18 |
4 files changed, 31 insertions, 0 deletions
diff --git a/challenge-105/polettix/blog.txt b/challenge-105/polettix/blog.txt new file mode 100644 index 0000000000..700e30f4f9 --- /dev/null +++ b/challenge-105/polettix/blog.txt @@ -0,0 +1 @@ +https://github.polettix.it/ETOOBUSY/2021/03/24/pwc105-nth-root/ diff --git a/challenge-105/polettix/blog1.txt b/challenge-105/polettix/blog1.txt new file mode 100644 index 0000000000..4aa4c4a455 --- /dev/null +++ b/challenge-105/polettix/blog1.txt @@ -0,0 +1 @@ +https://github.polettix.it/ETOOBUSY/2021/03/25/pwc105-the-name-game/ diff --git a/challenge-105/polettix/perl/ch-1.pl b/challenge-105/polettix/perl/ch-1.pl new file mode 100644 index 0000000000..e4d3b61ef3 --- /dev/null +++ b/challenge-105/polettix/perl/ch-1.pl @@ -0,0 +1,11 @@ +#!/usr/bin/env perl +use 5.024; +use warnings; +use experimental 'signatures'; +no warnings 'experimental::signatures'; + +sub nth_root ($N, $k) { return $N ** $k ** -1 } + +my $N_ = shift || 34; +my $k_ = shift || 5; +say nth_root($N_, $k_); diff --git a/challenge-105/polettix/perl/ch-2.pl b/challenge-105/polettix/perl/ch-2.pl new file mode 100644 index 0000000000..031dc43ed7 --- /dev/null +++ b/challenge-105/polettix/perl/ch-2.pl @@ -0,0 +1,18 @@ +#!/usr/bin/env perl +use 5.024; +use warnings; +use experimental qw< postderef signatures >; +no warnings qw< experimental::postderef experimental::signatures >; + +sub the_name_game ($name) { + my ($first, $Y) = $name =~ m{\A([^aeiouy]?)(.*)}mxs; + $first = lc $first; + return join "\n", + "$name, $name, bo-" . ($first eq 'b' ? $Y : "b$Y"), + "Bonana-fanna fo-" . ($first eq 'f' ? $Y : "f$Y"), + "Fee fi mo-" . ($first eq 'm' ? $Y : "m$Y"), + "$name!"; +} + +my $n = shift || 'Katie'; +say the_name_game($n); |