diff options
| -rwxr-xr-x | challenge-148/luca-ferrari/raku/ch-1.p6 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-148/luca-ferrari/raku/ch-1.p6 b/challenge-148/luca-ferrari/raku/ch-1.p6 new file mode 100755 index 0000000000..615f92f91f --- /dev/null +++ b/challenge-148/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,17 @@ +#!raku + + + + + +sub MAIN() { + + my @eban-units = 2, 4, 6; + my @eban-teens = 12; + my @eban-tens = 3, 4, 5, 6; + + $_.say if @eban-units.grep( $_ ) for 1 .. 10; + $_.say if @eban-teens.grep( $_ ) for 11 .. 19; + $_.say if @eban-tens.grep( ( $_ / 10 ).Int ) && @eban-units.grep( $_ % 10 ) for 20 .. 100; + +} |
