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-09-04T11:42:40.130Z
© Jutge.org, 2006–2026.
https://jutge.org