8 lines
240 B
Scheme
8 lines
240 B
Scheme
(letrec ((my-map (λ (f l)
|
|
(if (pair? l)
|
|
(cons (f (car l))
|
|
(my-map f (cdr l)))
|
|
(list)))))
|
|
(my-map (λ (x) (* x x))
|
|
(list 0 1 2 3 4)))
|