FizzBuzz Erlang with Decision Tree Model

fizzbuzz.erl

-module (fizzbuzz).
-export ([solve/1]).

%                   %%Decision Tree%%
%
%                     fizzbuzz
%       "fizzbuzz"                fizz
%                           "fizz"      buzz
%                                  "buzz"    Number


fizzbuzz(true, _) -> "fizzbuzz";
fizzbuzz(false, Number) -> fizz((Number rem 3) =:= 0, Number).

fizz(true, _) -> "fizz";
fizz(false, Number) -> buzz((Number rem 5) =:= 0, Number).

buzz(true, _) -> "buzz";
buzz(false, Number) -> Number.

solve(Number) -> fizzbuzz((Number rem 15) =:= 0, Number).