Task 1 done

1 files changed, 10 insertions, 0 deletions

diff --git a/challenge-113/luca-ferrari/raku/ch-1.p6 b/challenge-113/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..f47a511d54
--- /dev/null
+++ b/challenge-113/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,10 @@
+#!raku
+
+sub MAIN( Int $N where { $N > 0 },
+          Int $D where { $D >= 0 && $D.Str.chars == 1 } ) {
+    given (1 ..^ $N).grep( * ~~ / $D /).sum {
+        when $N { '1'.say }
+        default { '0'.say }
+    }
+    
+}