;;
;; FILE:     any-bigger-than.rkt
;; AUTHOR:   Eugene Wallingford
;; DATE:     2024/02/12
;; COMMENT:  A solution to the opening exercise for Session 9.
;;

#lang racket
(require rackunit)

;; --------------------------------------------------------------------

(check-true  (any-bigger-than? 1 '(1 2 3)))
(check-false (any-bigger-than? 5 '(1 2 3)))
(check-true  (any-bigger-than? 40 '(26 37 41 25 12)))
(check-false (any-bigger-than? 40 '(26 37 14 25 12)))

;; --------------------------------------------------------------------

;; (define any-bigger-than?
;;   (lambda (n lon)
;;     (if (null? lon)
;;         #f
;;         (or (< n (first lon))
;;             (any-bigger-than? n (rest lon))))))

;; --------------------------------------------------------------------