Chouser · June 24, 2010 18:15
diff --git a/cartesian-product.clj b/cartesian-product.clj
 (defn cartes4 [a b & [c & cs :as more]]
  (let [so-far (for [x a, y b] [x y])]
    (if more
      (recur so-far c cs)
      (map flatten so-far))))

 (cartes4 [1 2 3] [9] [4 5] [6 7 8])
	(defn cartes4 [a b & [c & cs :as more]]
	(let [so-far (for [x a, y b] [x y])]
	(if more
	(recur so-far c cs)
	(map flatten so-far))))

	(cartes4 [1 2 3] [9] [4 5] [6 7 8])