11 lines
162 B
Plaintext
11 lines
162 B
Plaintext
(defun fac (x)
|
|
(match x
|
|
(0 1)
|
|
(1 1)
|
|
(_ (* x (fac (- x 1))))))
|
|
|
|
(defun mymap (f m)
|
|
(if (eq m nil)
|
|
nil
|
|
(cons (f (car m)) (mymap m f))))
|