7 lines
243 B
Prolog
7 lines
243 B
Prolog
fizzbuzz(X) :- X mod 15 =:= 0, !, write('FizzBuzz').
|
|
fizzbuzz(X) :- X mod 3 =:= 0, !, write('Fizz').
|
|
fizzbuzz(X) :- X mod 5 =:= 0, !, write('Buzz').
|
|
fizzbuzz(X) :- write(X).
|
|
|
|
dofizzbuzz :-between(1, 100, X), fizzbuzz(X), nl, fail.
|
|
dofizzbuzz.
|