fizzbuzz.rkt

#lang typed/racket

(define-type T (U String Integer))

(: fizzbuzz/1 : (Integer -> T))
(define (fizzbuzz/1 x)
  (define mod3 (zero? (modulo x 3)))
  (define mod5 (zero? (modulo x 5)))
  (cond [(and mod3 mod5) "fizzbuzz"]
        [mod3 "fizz"]
        [mod5 "buzz"]
        [else x]))

(for: ([i : Integer (in-range 100)])
  (print (fizzbuzz/1 i))
  (newline))