General FizzBuzz: Difference between revisions

===Alternate Solution===

<lang Racket>#lang racket

(require racket/match)

(define (fizz-buzz-individual x . args)

(match (string-append*

(map (lambda (i)

(match i

[(cons a b) (if (= 0 (modulo x a)) b "")])) args))

["" x]

[fizz-buzz-string fizz-buzz-string]))

(define (fizz-buzz x . args)

(map (curryr (compose displayln (curry apply fizz-buzz-individual)) args)

(range 1 (add1 x)))

(void))

(fizz-buzz 20 '(3 . "Fizz") '(5 . "Buzz") '(7 . "Baxx"))</lang>