repos
/
sicp
/
tree
/ ex1-11.lisp~
Blob
Date:
Fri Aug 4 04:57:27 2023 UTC
Message:
Import sources
Actions:
History
|
Blame
|
Raw File
1
(defun Fr (n)
2
(cond ((< n 3) n)
3
(t (+ Fr (- n 1))
4
(* 2 (Fr (- n 2)))
5
(* 3 (Fr (- n 3))))))