Skip to content

Instantly share code, notes, and snippets.

View sneilan's full-sized avatar

Sean Neilan sneilan

View GitHub Profile
@sneilan
sneilan / gist:3218201
Created July 31, 2012 16:16 — forked from swannodette/gist:3217582
sudoku_compact.clj
(ns sudoku
(:refer-clojure :exclude [==])
(:use clojure.core.logic))
(defn get-square [grid x y]
(for [x (range x (+ x 3))
y (range y (+ y 3))]
(get-in grid [x y])))
(defn init [grid [pos value]]