;;; SIGNATUR
;;; list-member: number list(number) -> boolean
;;; ERKLÄRUNG
;;; (list-member n lst) liefert #t zurück, falls n gleich einer der
;;; Komponenten von lst ist, #f sonst. Die Gleichheit wird mit equal?
;;; überprüft.
;;; BEISPIEL
;;; (list-member 2 (list 1 2 3))
;;; => #t
;;; DEFINITION
(define list-member
  (lambda (n lst)
    (cond
      ((null? lst)
       #f)
      ((equal? (car lst) n)
       #t)
      (#t
       (list-member n (cdr lst))))))