grids.clj

(ns play.grids)

(defprotocol Grid
  (select-by-row [x r])
  (select-by-col [x c])
  (print [x]))

(defrecord GridSize [vvs]
  Grid
  (select-by-row [x r]
    (nth vvs r))
  (select-by-col [x c]
    (map #(nth % c) vvs))
  (print [x]
    (doseq [x vvs] (println x))))

(-> [[1 2 3] [4 5 6] [7 8 9]]
    GridSize. 
    (select-by-col 0))

(-> [[1 2 3] [4 5 6] [7 8 9]]
    GridSize. 
    (select-by-row 0))

(-> [[1 2 3] [4 5 6] [7 8 9]]
    GridSize. 
    print)