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