Two Simple Lisp Programs

First Program

(defun fact (n)

(if (zerop n)

1

(* n (fact (1- n)))

))

(defun fib (n)

(if (< n 3)

1

(+ (fib (- n 1))(fib (- n 2)))

))

(defun simp-prog ()

(print "Input a number")

(do ((num (read)(read)))

((< num 0)'done)

(if (oddp num)

(print (fact num))

(print (fib num)))

(print "Input another number")

))

Second Program

Under Construction