12 lines
205 B
Common Lisp
12 lines
205 B
Common Lisp
|
(letrec ((
|
||
|
|
map (lambda (f l)
|
||
|
|
(if (!= l '())
|
||
|
|
(cons (f (car l)) (map f (cdr l)))
|
||
|
|
'()))
|
||
|
|
))
|
||
|
|
(begin
|
||
|
|
(addPDFPage '())
|
||
|
|
(addPDFPage '())
|
||
|
|
(map (lambda (x) (+ x 2)) '(8 9 10))
|
||
|
|
|
||
|
|
))
|