0. #lang racket
1. (define(volume-sphere radius)
2.   (/ (* 4 3.14 radius radius radius) 3))
3.  
4.    (define (volume-shell inner-radius outer-radius)
5.      (- (volume-sphere outer-radius) (volume-sphere inner-radius)))
6.  
7.    (volume-shell 1 2)
8.    (volume-shell 3 5)
9.  
10. (define(close? number-1 number-2 limit)
11.   (<(abs(- number-1 number-2))limit))
12.  
13.    (close? 5 4 1)
14.    (close? 6 3 5)
15.  
16. (define (how-many a b c)
17.   (cond [(> (* b b) (* 4 a c)) "2"]
18.         [(= (* b b) (* 4 a c)) "1"]
19.         [(< (* b b) (* 4 a c)) "0"]))
20.  
21.     (how-many 1 0 -1)
22.     (how-many 2 4 2)

=>

29.306666666666665

410.29333333333335

#f

#t

"2"

"1"