diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2021-06-07 08:59:28 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2021-06-07 08:59:28 +0200 |
| commit | 8024a172efcd9ea08cd827c680427f7183771c2d (patch) | |
| tree | d0d5c2f0d626dad30e75fcf86a8ef271e9a2cc0d /challenge-116 | |
| parent | f908da839c70d44131ac8036bbc99d7f46dc1e2c (diff) | |
| download | perlweeklychallenge-club-8024a172efcd9ea08cd827c680427f7183771c2d.tar.gz perlweeklychallenge-club-8024a172efcd9ea08cd827c680427f7183771c2d.tar.bz2 perlweeklychallenge-club-8024a172efcd9ea08cd827c680427f7183771c2d.zip | |
More compact implementation of task 2
Diffstat (limited to 'challenge-116')
| -rw-r--r-- | challenge-116/luca-ferrari/raku/ch-2.p6 | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/challenge-116/luca-ferrari/raku/ch-2.p6 b/challenge-116/luca-ferrari/raku/ch-2.p6 index 56a5daa3b0..5de7b02120 100644 --- a/challenge-116/luca-ferrari/raku/ch-2.p6 +++ b/challenge-116/luca-ferrari/raku/ch-2.p6 @@ -1,7 +1,8 @@ #!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; + + my $sum = $N.split( '' ).map( { $_ * $_ } ).sum; + say 1 and exit if $sum.sqrt == $sum.sqrt.Int; + say 0; } |