pairs.clj

Branches > refactor/use-spec-1 > cdf8636 > files / src / dev / grahp / pairs.clj

(ns dev.grahp.pairs)

(defn pairs [schema]
  (if (empty? schema)
    ; (apply mapv vector []) will error
    [[] []]
    (apply mapv vector (partition 2 schema))))