Fizz Buzz with Typed Clojure

fizzbuzz.clj

(ns fp.match
 (:require [clojure.core.match :refer (match)]))

(defprotocol TFizzBuzz
  (to-string [this]))

(deftype Fizz [number] TFizzBuzz
   (to-string [this] "Fizz"))
(deftype Buzz [number] TFizzBuzz
   (to-string [this] "Buzz"))
(deftype FizzBuzz [number] TFizzBuzz
   (to-string [this] "FizzBuzz"))
(deftype Other [number] TFizzBuzz
   (to-string [this] (str number)))

(defn matcher [x]
      (match [(mod x 3) (mod x 5)]
             [0 0] (FizzBuzz. x)
             [0 _] (Fizz. x)
             [_ 0] (Buzz. x)
             :else (Other. x)))

(defn fizzbuzz [x]
      (-> (matcher x)
          (to-string)))
         
         
; user=> (fizzbuzz 1)
; "1"
; user=> (fizzbuzz 3)
; "Fizz"
; user=> (fizzbuzz 5)
; "Buzz"
; user=> (fizzbuzz 15)
; "FizzBuzz"