Cartesian Product

cartesian_product.clj

(def data [[1 2] [11 22] [111 222]])

(defn combine [a b]
  (mapcat
   (fn [x]
     (map
      (fn [y]
        (flatten [x y]))
      b))
   a))

(defn cartesian-product [sets]
  (reduce
   (fn [r set]
     (combine r set))
   (first sets)
   (rest sets)))
   
(cartesian-product data)

cartesian_product_mori.js

var data = [[1,2], [11,22], [111,222]];

var combine = function (a, b) {
  return mori.mapcat(
    function(x) {
      return mori.map(
        function (y) {
          return mori.flatten([x,y]);}, b);
    }, a);
};

var cartesian_product = function (sets) {
  return mori.reduce(
    function(r, set) {
      return combine(r,set);
    }, sets[0], mori.rest(sets));
}

console.log(mori.toJs(cartesian_product(
  data)));

http://jsbin.com/layiyugute/1/edit?html,js,output