Cartesian Product

Cartesian Product

(defn cartesianProduct [a b]
  (clojure.set/union
    (map 
      #(into [] 
           (list* 
             (first b) 
             (if (coll? %) 
                % 
                (list %)
              )
           )
        ) 
        a
    )
    (if (empty? (rest b)) 
     '() 
     (cartesianProduct a (rest b))
    )
  )
)

(defn genProduct [& args] 
  (if (empty? (rest (rest args))) 
    (cartesianProduct (first (rest args)) (first args))
    (cartesianProduct (apply genProduct (rest args)) (first args))
  )
)