Skip to content

Commit 341617e

Browse files
authored
Add Fizz Buzz in OCaml (#4340)
1 parent d6d20d4 commit 341617e

File tree

1 file changed

+13
-0
lines changed

1 file changed

+13
-0
lines changed

archive/o/ocaml/fizz-buzz.ml

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
let fizzbuzz i =
2+
if i mod 15 == 0
3+
then "FizzBuzz"
4+
else if i mod 5 == 0
5+
then "Buzz"
6+
else if i mod 3 == 0
7+
then "Fizz"
8+
else string_of_int i
9+
;;
10+
11+
for i = 1 to 100 do
12+
print_string (fizzbuzz(i) ^ "\n")
13+
done;;

0 commit comments

Comments
 (0)