;;; Michael Wollowski
;;; Assignment 1

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

(define Fahrenheit->Celsius
  (lambda (f)
    (* (- f 32) (/ 5 9))))

(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 fibonacci
  (lambda (n)
    (cond [(= n 1) 1]
	  [(= n 2) 1]
	  [else (+ (fibonacci (- n 1))
		   (fibonacci (- n 2)))])))

(define interval-contains?
  (lambda (l n)
    (if (null? l)
	#f
	(and (>= n (car l)) (<= n (cadr l))))))

(define interval-intersects?
  (lambda (l1 l2)
    (cond [(null? l1) #f]
	  [(null? l2) #f]
	  [(or (interval-contains? l2 (cadr l1))
	       (interval-contains? l1 (cadr l2)))]
	  [else #f])))