8 lines
243 B
Prolog
8 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.
|