pairs.clj

Branches > main > 524e938 > 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))))