amb implementation with delimc

gistfile1.clj

(require '[delimc.core :as d])

(defmacro amb [xs]
  `(d/shift k# (doseq [x# ~xs]
                 (k# x#))))

(d/reset
  (let [a (amb [1 2 3])
        b (amb ["a" "b" "c"])]
    (println a b)))
; 1 a
; 1 b
; 1 c
; 2 a
; 2 b
; 2 c
; 3 a
; 3 b
; 3 c
;=> nil