;;; Michael Wollowski
;;; Assignment 1

(define (rl)
  (lambda () (load "1.ss")))

(define factorial
  (lambda (n)
    (cond [(= n 0) 1]
	  [(= n 1) 1]
	  [else (* n (factorial (- n 1)))])))


(define find
  (lambda (n l)
    (cond [(null? l) #f]
	  [(eq? n (car l)) #t]
	  [else (find n (cdr l))])))


(define largest
  (lambda (l)
    (cond [(null? l) #f]
	  [else (largest-helper (car l) (cdr l))])))

(define largest-helper
  (lambda (e l)
    (cond [(null? l) e]
	  [(> (car l) e) (largest-helper (car l) (cdr l))]
	  [else (largest-helper e (cdr l))])))

(define ic
  (lambda (l n)
    (if (null? l)
	#f
	(ic-helper (car l) (cadr l) n))))

(define ic-helper
  (lambda (current stop item)
    (cond [(> current stop) #f]
	  [(= current item) #t]
	  [else (ic-helper (+ current 1) stop item)])))

(define ii
  (lambda (l1 l2)
    (cond [(null? l1) #f]
	  [(null? l2) #f]
	  [(or (ic l2 (cadr l1))
	       (ic l1 (cadr l2)))]
	  [else #f])))