CMSC 471 - Fall '02
LECTURE NOTES FOR 9/4/01
Prof. Marie desJardins


2:30 - 2:40	  Admin
2:40 - 3:10	  Lisp mini-tutorial (slides and Fibonacci example)
3:10 - 3:45	  Agents


STARTING CLISP ON WINDOWS

[details correct for Marie's laptop only - your mileage may vary...]

start MS-DOS prompt
cd c:\windows\clisp-2.27
lisp.exe -M lispinit.mem -B .
(cd "c:\\my documents\\umbc\\471\\")
    - create and load fib.lisp in this directory


SIMPLE LISP EXAMPLE

(setf x '(1 2 3))
(car x)
(setf (car x) 'a)
x
(length x)
(append x '(4 5))
(length x)
(mapcar #'incf x)
(mapcar #'incf (cdr x))
x
(setf x (mapcar #'incf (cdr x)))
(cons 'a x)
x
(append x '(a))
x
(setf x (append x '(a)))
(nconc x '(b))
x


BASIC LISP PROGRAMMING AND DEBUGGING
      - FIBONACCI SEQUENCE EXAMPLE

-- FIBONACCI SEQUENCE
   0 1 1 2 3 5 8 13 21 34 55 ...
     (each Fibonacci number is the sum of the previous two Fibonacci numbers)
   Fib (0) = 0
   Fib (1) = 1
   Fib (n) = Fib (n-1) + Fib (n-2),  n in Integers, n > 1


-- VERSION 1 (just plain wrong)

(defun fib (n) (+ n (decf n)))


-- VERSION 2 (at least it's recursive... infinitely recursive!)

(defun fib (n) (+ n (fib (decf n))))


-- VERSION 3 (recursion is getting better... how about a base case??
			try tracing the function!)

(defun fib (n) (+ (fib (decf n)) (fib (decf n))))


-- VERSION 4 (now we've got a base case, but there are these cond and
		  decf problem that need to be fixed)

(defun fib (n)
  (cond ((eql n 0) 0)
	(eql n 1) 1
	(t (+ (fib (decf n)) (fib (decf (decf n)))))))


-- VERSION 5 (pretty good, but how about some documentation and
		     error checking?)

(defun fib (n)
  (cond ((eql n 0) 0)
	((eql n 1) 1)
	(t (+ (fib (- n 1)) (fib (- n 2))))))


-- VERSION 6 (perfect! correct, indented, elegant, commented, and
		       error checked)

(defun fib (n)
  "Computes the nth Fibonacci number"
  (cond ((or (not (numberp n)) (< n 0))  ;; error case
	 (error "~s is not a legal value for n!~&" n))
	((eql n 0) 0)   ;; base case
	((eql n 1) 1)   ;; base case
	(t (+ (fib (- n 1))   ;; recurse and compute
	      (fib (- n 2))))
	))

-- LET'S TRY IT!

(fib -1)
(fib '(list))
(fib 0)
(fib 1)
(fib 2)
(fib 4)

(loop for i from 0 to 10 do collect (fib i))