Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- fun fizzbuzz' n =
- case (n mod 5 = 0, n mod 3 = 0) of
- (true, true) => "FizzBuzz"
- | (true, false) => "Buzz"
- | (false, true) => "Fizz"
- | _ => Int.toString n
- fun fizzbuzz n =
- let
- fun loop m =
- if m > n
- then ()
- else (print ((fizzbuzz' m) ^ "\n"); loop (m + 1))
- in
- loop 1
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement