Data commit

Task/Sudoku/Clojure/sudoku-1.clj

@@ -0,0 +1,24 @@
+(ns rosettacode.sudoku
+  (:use [clojure.pprint :only (cl-format)]))
+
+(defn- compatible? [m x y n]
+  (let [n= #(= n (get-in m [%1 %2]))]
+    (or (n= y x)
+      (let [c (count m)]
+        (and (zero? (get-in m [y x]))
+             (not-any? #(or (n= y %) (n= % x)) (range c))
+             (let [zx (* c (quot x c)), zy (* c (quot y c))]
+               (every? false?
+                 (map n= (range zy (+ zy c)) (range zx (+ zx c))))))))))
+
+(defn solve [m]
+  (let [c (count m)]
+    (loop [m m, x 0, y 0]
+      (if (= y c) m
+        (let [ng (->> (range 1 c)
+                      (filter #(compatible? m x y %))
+                      first
+                      (assoc-in m [y x]))]
+          (if (= x (dec c))
+            (recur ng 0 (inc y))
+            (recur ng (inc x) y)))))))

Task/Sudoku/Clojure/sudoku-2.clj

@@ -0,0 +1,21 @@
+sudoku>(cl-format true "~{~{~a~^ ~}~%~}"
+ (solve [[3 9 4 0 0 2 6 7 0]
+         [0 0 0 3 0 0 4 0 0]
+         [5 0 0 6 9 0 0 2 0]
+         [0 4 5 0 0 0 9 0 0]
+         [6 0 0 0 0 0 0 0 7]
+         [0 0 7 0 0 0 5 8 0]
+         [0 1 0 0 6 7 0 0 8]
+         [0 0 9 0 0 8 0 0 0]
+         [0 2 6 4 0 0 7 3 5]])
+3  9  4  8  5  2  6  7  1
+2  6  8  3  7  1  4  5  9
+5  7  1  6  9  4  8  2  3
+1  4  5  7  8  3  9  6  2
+6  8  2  9  4  5  3  1  7
+9  3  7  1  2  6  5  8  4
+4  1  3  5  6  7  2  9  8
+7  5  9  2  3  8  1  4  6
+8  2  6  4  1  9  7  3  5
+
+nil