Merge pull request #1933 from andemark/branch-for-challenge-068

ch-1.raku

1 files changed, 26 insertions, 4 deletions

diff --git a/challenge-068/mark-anderson/raku/ch-1.raku b/challenge-068/mark-anderson/raku/ch-1.raku
index f21ac426f5..6a7423663a 100644
--- a/challenge-068/mark-anderson/raku/ch-1.raku
+++ b/challenge-068/mark-anderson/raku/ch-1.raku
@@ -1,6 +1,29 @@
 #!/usr/bin/env raku
 
-# a naive solution :-(
+# Task #1 Zero Matrix
+# Submitted by: Mohammad S Anwar
+
+# You are given a matrix of size M x N having only 0s and 1s.
+
+# Write a script to set the entire row and column to 0 if an element is 0.
+
+# Example 1
+# Input: [1, 0, 1]
+#        [1, 1, 1]
+#        [1, 1, 1]
+
+# Output: [0, 0, 0]
+#         [1, 0, 1]
+#         [1, 0, 1]
+
+# Example 2
+# Input: [1, 0, 1]
+#        [1, 1, 1]
+#        [1, 0, 1]
+
+# Output: [0, 0, 0]
+#         [1, 0, 1]
+#         [0, 0, 0]
 
 my @matrix = [1 xx 11] xx 11;
 
@@ -18,8 +41,7 @@ for @matrix.keys -> $r {
     }
 }
 
-@matrix[$_] = [0 xx @matrix[0]] for keys %rows;
-
-@matrix.map(-> $r {$r[$_] = 0}) for keys %cols;
+@matrix[$_] = [0 xx @matrix[0]] for %rows.keys;
+@matrix.map(-> $r {$r[$_] = 0}) for %cols.keys;
 
 say @matrix.join("\n");