Fatvat

(defn append-prefix [prefix lst-elements]
 (mapcat (fn [x] (list (concat prefix (list x)))) lst-elements))

(defn combination [n lst]
 (if (> n (count lst))
   nil
   (let [elem-list (split lst (dec n)) rlist (nthrest lst (dec n))]
     (concat (append-prefix (first elem-list) rlist) (combination n (rest lst))))))

Labels: clojure

# posted by Jeff Foster : 13:40