Tehee

sudoku.lispbm

@@ -8,5 +8,19 @@
           (foldr (lambda (y z) (if (<= y 1) z nil))
                  t
                  (map (lambda (y) (amount y x)) nums))
-          nil
+          nil))
-      ))
+
+(defun getRow (grid x) (ix grid x))
+
+(defun transpose (grid)
+  (match grid
+         (((? x))
+            (map (lambda (y) (list y)) x))
+         (((? x) . (? xs))
+            (zipWith
+               cons
+               x
+               (transpose xs)))
+         (nil nil)))
+
+(defun getCol (grid x) (getRow (transpose grid) x))