1 665c255d 2023-08-04 jrmu (defun Fr (n)
 2 665c255d 2023-08-04 jrmu   (cond ((< n 3) n)
 3 665c255d 2023-08-04 jrmu 	(t (+ Fr (- n 1))
 4 665c255d 2023-08-04 jrmu 	   (* 2 (Fr (- n 2)))
 5 665c255d 2023-08-04 jrmu 	   (* 3 (Fr (- n 3))))))
 6 665c255d 2023-08-04 jrmu (defun F-iter (n)
 7 665c255d 2023-08-04 jrmu   (if (< n 3)
 8 665c255d 2023-08-04 jrmu       n
 9 665c255d 2023-08-04 jrmu     (F-iter-aux 2 1 0 n)))
10 665c255d 2023-08-04 jrmu (defun F-iter-aux (a b c count)
11 665c255d 2023-08-04 jrmu   (if (= count 2)
12 665c255d 2023-08-04 jrmu       a
13 665c255d 2023-08-04 jrmu     (F-iter-aux (+ a (* 2 b) (* 3 c))
14 665c255d 2023-08-04 jrmu 		a
15 665c255d 2023-08-04 jrmu 		b
16 665c255d 2023-08-04 jrmu 		(- count 1))))