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.
Autoria: Gerard Escudero / Jordi Delgado
Generació: 2026-01-25T13:20:43.030Z
© Jutge.org, 2006–2026.
https://jutge.org