12 lines
No EOL
205 B
Common Lisp
12 lines
No EOL
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))
|
|
|
|
)) |