2
(require rackunit rackunit/gui)
4
(define (divisible? m n)
7
(zero? (remainder m n))))
11
[(divisible? n 15) "fizzbuzz"]
12
[(divisible? n 3) "fizz"]
13
[(divisible? n 5) "buzz"]
19
"Regular numbers are not affected"
24
(check-equal? (fizzbuzz 3) "fizz"))
28
(check-equal? (fizzbuzz 5) "buzz"))
32
(fizzbuzz 15) "fizzbuzz")
35
"Multiples of 3 are fizz"
36
(check-equal? (fizzbuzz 81) "fizz"))
39
"Multiples of 5 are buzz"
40
(check-equal? (fizzbuzz 25) "buzz"))
43
"Multiples of 3 and 5 are fizzbuzz"
44
(fizzbuzz 45) "fizzbuzz"))
b'\\ No newline at end of file'