Commits

John Chandler committed eecb83e

removed unused column replacement code

Comments (0)

Files changed (2)

src/pseudohkoo/core.clj

   ; return a column with non-definite values refined, where possible
   (refine-line column))
 
-(defn replace-column [grid column-index new-column]
-  ; returns a copy of the grid with the given column replaced by the new one
-  (map
-   (fn [index]
-     (update-row (get-row grid index) column-index (nth new-column index)))
-   (range (count new-column))))
-
 ;; grid functions
 (defn refine [grid]
   ; returns vector of refined columns

test/pseudohkoo/test/core.clj

     (is (= expected (get-columns grid)))))
 
 
-;; replace-column
-(deftest test-replace-column
-  ; replace a given column with a new one
-  (let [grid     [[1 1 1]
-	          [1 1 1]
-	          [1 1 1]]
-	expected [[2 1 1]
-		  [3 1 1]
-		  [4 1 1]]
-       ]
-    (is (= expected (replace-column grid 0 [2 3 4])))))
-
-
 ;; get-row
 (deftest test-get-row
   ; retrieve a row from the grid