diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2021-10-20 06:16:54 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-10-20 06:16:54 +0100 |
| commit | f61b5b93213e2dd56415d3999cf88ecdb0970e70 (patch) | |
| tree | 3d40350c46014e599e772d65e127f3433877360e | |
| parent | 29820ba264fd2cde0de22f6d74338c5ec331de61 (diff) | |
| parent | 53862a4f0db0207a0dd72f6043c6ecac5d6a3a96 (diff) | |
| download | perlweeklychallenge-club-f61b5b93213e2dd56415d3999cf88ecdb0970e70.tar.gz perlweeklychallenge-club-f61b5b93213e2dd56415d3999cf88ecdb0970e70.tar.bz2 perlweeklychallenge-club-f61b5b93213e2dd56415d3999cf88ecdb0970e70.zip | |
Merge pull request #5056 from fluca1978/pwc135b
Pwc135b
| -rw-r--r-- | challenge-135/luca-ferrari/blog-1.txt | 1 | ||||
| -rw-r--r-- | challenge-135/luca-ferrari/blog-2.txt | 1 | ||||
| -rw-r--r-- | challenge-135/luca-ferrari/raku/ch-1.p6 | 6 | ||||
| -rw-r--r-- | challenge-135/luca-ferrari/raku/ch-2.p6 | 14 |
4 files changed, 22 insertions, 0 deletions
diff --git a/challenge-135/luca-ferrari/blog-1.txt b/challenge-135/luca-ferrari/blog-1.txt new file mode 100644 index 0000000000..5fe22c52e6 --- /dev/null +++ b/challenge-135/luca-ferrari/blog-1.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/10/18/PerlWeeklyChallenge135.html#task1 diff --git a/challenge-135/luca-ferrari/blog-2.txt b/challenge-135/luca-ferrari/blog-2.txt new file mode 100644 index 0000000000..619252cd86 --- /dev/null +++ b/challenge-135/luca-ferrari/blog-2.txt @@ -0,0 +1 @@ +https://fluca1978.github.io/2021/10/18/PerlWeeklyChallenge135.html#task2 diff --git a/challenge-135/luca-ferrari/raku/ch-1.p6 b/challenge-135/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..38ce821d1b --- /dev/null +++ b/challenge-135/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,6 @@ +#!raku + +sub MAIN( Int $N = 5, Int $K = 248832 ) { + "Computing $N root of $K".say; + "%.2f".sprintf( .re ).say given $K.roots( $N ).grep( { ! .im.Int } )[ 0 ]; +} diff --git a/challenge-135/luca-ferrari/raku/ch-2.p6 b/challenge-135/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..c1457065f6 --- /dev/null +++ b/challenge-135/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,14 @@ +#!raku + +sub MAIN( Str $name = 'Katie' ) { + my $first-char = $name.substr( 0, 1 ).lc; + my $mangled-name = qw< a e i o u >.grep( * ~~ $first-char ) ?? $name !! $name.substr( 1, $name.chars ).lc; + my @special-chars = qw< b f m >.map: { $_ !~~ $first-char ?? $_ !! '' }; + + say qq:to/SONG/; + $name, $name bo-{ @special-chars[ 0 ] ~ $mangled-name.lc } + Bonana-fanna fo-{ @special-chars[ 1 ] ~ $mangled-name.lc } + Fee fi mo-{ @special-chars[ 2 ] ~ $mangled-name.lc } + $name ! +SONG +} |