Sudoku Check

sudoku.clj

(defn sudokuCheck [rows]
  (let [digits      (set (range 1 10))
        all-digits? (fn [col]
                      (every? (comp empty? #(clojure.set/difference digits (set %)))
                              col))
        columns     (for [index (range 0 9)]
                      (for [row rows]
                        (get row index)))
        squares     (for [gx (partition 3 (range 0 9))
                          gy (partition 3 (range 0 9))]
                      (for [x gx
                            y gy]
                        (get-in rows [x y])))]
    (and (all-digits? rows)
         (all-digits? columns)
         (all-digits? squares))))