diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-06-07 08:56:29 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-06-07 08:56:29 +0200 |
| commit | f908da839c70d44131ac8036bbc99d7f46dc1e2c (patch) | |
| tree | 003415fc2a1092a0235aef7bf26262fd6cc2c512 /challenge-116 | |
| parent | 4830b1d50fd610eb2424fe284cb48a2795e0478c (diff) | |
| download | perlweeklychallenge-club-f908da839c70d44131ac8036bbc99d7f46dc1e2c.tar.gz perlweeklychallenge-club-f908da839c70d44131ac8036bbc99d7f46dc1e2c.tar.bz2 perlweeklychallenge-club-f908da839c70d44131ac8036bbc99d7f46dc1e2c.zip | |
Task 2 done
Diffstat (limited to 'challenge-116')
| -rw-r--r-- | challenge-116/luca-ferrari/raku/ch-2.p6 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-116/luca-ferrari/raku/ch-2.p6 b/challenge-116/luca-ferrari/raku/ch-2.p6 new file mode 100644 index 0000000000..56a5daa3b0 --- /dev/null +++ b/challenge-116/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,7 @@ +#!raku + +sub MAIN( Int $N where { $N >= 10 } ) { + my @digits = $N.split( '' ); + my @squares = @digits.map: { $_ * $_ }; + say 1 if @squares.sum.sqrt == @squares.sum.sqrt.Int; +} |