Skip to content
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
(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
Something went wrong with that request. Please try again.