;; The first three lines of this file were inserted by DrRacket. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-intermediate-lambda-reader.ss" "lang")((modname abstractions) (read-case-sensitive #t) (teachpacks ((lib "image.rkt" "teachpack" "2htdp") (lib "universe.rkt" "teachpack" "2htdp") (lib "batch-io.rkt" "teachpack" "2htdp") (lib "web-io.rkt" "teachpack" "2htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "image.rkt" "teachpack" "2htdp") (lib "universe.rkt" "teachpack" "2htdp") (lib "batch-io.rkt" "teachpack" "2htdp") (lib "web-io.rkt" "teachpack" "2htdp")) #f)))
; Nelon -> Number
; determines the smallest number on l
(define (inf.v2 l)
(cond
[(empty? (rest l)) (first l)]
[else
(local ((define smallest-in-rest (inf.v2 (rest l))))
(if (< (first l) smallest-in-rest)
(first l)
smallest-in-rest))]))
(inf.v2 (list 2 1 3))
; Nelon -> Number
; determines the largest
; number on l
(define (sup l)
(cond
[(empty? (rest l))
(first l)]
[else
(if (> (first l)
(sup (rest l)))
(first l)
(sup (rest l)))]))
((local ((define (f x) (+ (* 4 (sqr x)) 3))) f)
1)