diff options
| -rw-r--r-- | challenge-192/luca-ferrari/raku/ch-1.p6 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/challenge-192/luca-ferrari/raku/ch-1.p6 b/challenge-192/luca-ferrari/raku/ch-1.p6 new file mode 100644 index 0000000000..cb7f1b6139 --- /dev/null +++ b/challenge-192/luca-ferrari/raku/ch-1.p6 @@ -0,0 +1,7 @@ +#!raku + +# Perl Weekly Challenge 192 + +sub MAIN( Int $n where { $n > 0 } ) { + $n.base(2).comb.map( { $_ == 0 ?? 1 !! 0 } ).join.parse-base(2).say; +} |