diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2022-03-28 16:31:27 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2022-03-28 16:31:27 +0200 |
| commit | 31b458c49075ae12848a0ab63654af17b10669d2 (patch) | |
| tree | 7b1fd408b958d8d94b1eddbf8ee1201f3ad5fae3 /challenge-158/luca-ferrari | |
| parent | 5a952a7cb1b710ab5dc62f06e9c196f10972effd (diff) | |
| download | perlweeklychallenge-club-31b458c49075ae12848a0ab63654af17b10669d2.tar.gz perlweeklychallenge-club-31b458c49075ae12848a0ab63654af17b10669d2.tar.bz2 perlweeklychallenge-club-31b458c49075ae12848a0ab63654af17b10669d2.zip | |
Task 1 done
Diffstat (limited to 'challenge-158/luca-ferrari')
| -rwxr-xr-x | challenge-158/luca-ferrari/raku/ch-1.p6 | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/challenge-158/luca-ferrari/raku/ch-1.p6 b/challenge-158/luca-ferrari/raku/ch-1.p6 new file mode 100755 index 0000000000..5434fc6ecc --- /dev/null +++ b/challenge-158/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,4 @@ +#!raku +sub MAIN( Int $limit where { $limit > 0 } = 100 ) { + ( 1 .. $limit ).grep( *.is-prime ).grep( *.comb.sum.is-prime ).say; +} |