Create a gist now

Instantly share code, notes, and snippets.

@MayDaniel /all-pairs.clj Secret
Created Oct 29, 2010

(defn all-pairs [coll]
(let [x (first coll) xs (next coll)]
(when xs
(lazy-cat
(map (fn [y] [x y]) xs)
(all-pairs xs)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment