14 lines
367 B
Common Lisp
14 lines
367 B
Common Lisp
;; Project : Fibonacci sequence
|
|
|
|
(defun fibonacci (nr)
|
|
(cond ((= nr 0) 1)
|
|
((= nr 1) 1)
|
|
(t (+ (fibonacci (- nr 1))
|
|
(fibonacci (- nr 2))))))
|
|
(format t "~a" "First 10 Fibonacci numbers")
|
|
(dotimes (n 10)
|
|
(if (< n 1) (terpri))
|
|
(if (< n 9) (format t "~a" " "))
|
|
(write(+ n 1)) (format t "~a" ": ")
|
|
(write (fibonacci n)) (terpri))
|