RosettaCodeData/Task/FizzBuzz/Racket/fizzbuzz.rkt

10 lines
143 B
Racket
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
#lang racket
2013-04-09 00:31:41 -07:00
(for ([n (in-range 1 101)])
(displayln
(match (gcd n 15)
[15 "fizzbuzz"]
[3 "fizz"]
[5 "buzz"]
[_ n])))