Task 1 done

1 files changed, 10 insertions, 0 deletions

diff --git a/challenge-193/luca-ferrari/raku/ch-1.p6 b/challenge-193/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..d2abb1a1f4
--- /dev/null
+++ b/challenge-193/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,10 @@
+#!raku
+
+# Perl Weekly Challenge 193
+
+sub MAIN( Int $n where { $n > 0 } ) {
+
+    my @bins = ( 0 .. 2 ** $n - 1 ).map( { sprintf "%b", $_ } ).map( { '0' x ( $n - $_.chars ) ~ $_ } );
+
+    @bins.join( ', ' ).say;
+}