#lang racket (define (fizz-buzz n) (match (list (modulo n 3) (modulo n 5)) [(list 0 0) "FizzBuzz"] [(list 0 _) "Fizz"] [(list _ 0) "Buzz"] [_ n])) (for [(i (range 100))] (displayln (fizz-buzz i)))