diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-10-18 18:56:26 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-10-18 18:56:26 +0200 |
| commit | d23ddd5a272d5519faf02afb447e60ad6afcc9c0 (patch) | |
| tree | 69616fdec0a5aa82534cc90342c3e360f3894207 | |
| parent | 402866100f60f1c742cb1151fbbe1aeb5f6cac6b (diff) | |
| download | perlweeklychallenge-club-d23ddd5a272d5519faf02afb447e60ad6afcc9c0.tar.gz perlweeklychallenge-club-d23ddd5a272d5519faf02afb447e60ad6afcc9c0.tar.bz2 perlweeklychallenge-club-d23ddd5a272d5519faf02afb447e60ad6afcc9c0.zip | |
Task 1 and 2.
| -rw-r--r-- | challenge-135/luca-ferrari/raku/ch-1.p6 | 6 | ||||
| -rw-r--r-- | challenge-135/luca-ferrari/raku/ch-2.p6 | 14 |
2 files changed, 20 insertions, 0 deletions
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 +} |