;;;; Miscellaneous Function Tests
;;;;
;;;; File:         functions.in
;;;; Author:       CS 51 (Bob Walton)
;;;; Version:      1

;; You do NOT have to modify this file for assignment 1.
;; However, you may add tests if you want.  For later
;; assignments you will be asked to add tests for files
;; like this one.

(load "functions.lsp")

(fibonacci 0)

(fibonacci 1)

(fibonacci 2)

(fibonacci 3)

(fibonacci 4)



(fibonacci 5)

(fibonacci 6)

(fibonacci 7)

(fibonacci 8)

(time (fibonacci 16))

;; The above takes rather long to run, and this is why
;; we do not want to try any larger arguments.



(copy-types 5)

(copy-types 'x)

(copy-types nil)

(copy-types '(5 x nil))

(copy-types '(+ (x 8) (nil y (z))))

(copy-types '(((((x (((nil . 9)))))))))



(my-intersection '(1 2 3) '(2 3 4))

(my-intersection '(1 2) '(3 4))

(my-intersection '(x y) '(y x))

(my-intersection '(x y z w) '(y x))

(my-intersection '(1 2 3 4 5) '(5 7 8 2 0))



(look-into '(1 8 (2 4 (x)) 9) #'symbolp)

(look-into '(1 8 (2 nil (7)) 9) #'symbolp)

(look-into '(5 8 (2 4 (3)) 9) #'(lambda (n) (< n 3)))

(look-into '(5 8 (7 4 (3)) 9) #'(lambda (n) (< n 3)))

(look-into '(2 (((1 . 4)) (0))) #'(lambda (n) (> n 3)))