Revision 343130363934 () - Diff

Link to this snippet: https://friendpaste.com/1Yti8jqQuUpdY8t8mKOg9
Embed:
1
2
3
4
5
6
7
(fn combine [c w] ; combine a word with a collection in every possible way
  (for [x (range (inc (count c)))]
    (let [[c1 c2] (split-at x c)]
          (concat c1 [w] c2))))

; usage
(reduce #(mapcat (fn [c] (combine c %2)) %) [[]] s)