pairs.clj

Branches > client-handling-rewrite > 73b711f > 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))))