Clojure - my-map en Continuation-Passing Style W83860

Statement

thehtml

Donada la funció:

(defn my-map [f s]
    (if (empty? s) '()
        (let [[cap & cua] s]
            (cons (f cap) (my-map f cua)))))

Feu una funció equivalent my-map-cps en Continuation-Passing Style.
Feu una funció equivalent my-map-cps-t per a ser usada amb la funció trampoline.

Public test cases

Input

(my-map-cps inc (range 5) identity)
(trampoline my-map-cps-t inc (range 5) identity)

Output

(1 2 3 4 5)
(1 2 3 4 5)

Information