From 0a89ef50d657b56c2502eec9a64a8ddadd5ad338 Mon Sep 17 00:00:00 2001 From: Han Lin Date: Sun, 30 Jul 2017 21:43:57 +0200 Subject: [PATCH] 5 points needed from sudoku --- src/sudoku.clj | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/src/sudoku.clj b/src/sudoku.clj index 5254c46..5a537b2 100644 --- a/src/sudoku.clj +++ b/src/sudoku.clj @@ -4,19 +4,24 @@ (def board identity) (defn value-at [board coord] - nil) + (get-in board coord)) (defn has-value? [board coord] - nil) + (pos? (value-at board coord))) (defn row-values [board coord] - nil) + (let [[row-value col-value] coord] + (set (get board row-value)))) (defn col-values [board coord] - nil) + (let [[row-value col-value] coord + helper (fn [x] (get x col-value))] + (set (map helper board)))) (defn coord-pairs [coords] - nil) + (for [row-value coords + col-value coords] + [row-value col-value])) (defn block-values [board coord] nil)