You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
255 B
11 lines
255 B
5 years ago
|
isfizz(N) :- mod(3, N) =:= 0.
|
||
|
|
isbuzz(N) :- mod(5, N) =:= 0.
|
||
|
|
isfizzbuzz(N) :- mod(15, N) =:= 0.
|
||
|
|
|
||
|
|
dofizzbuzz(N, F) :- isfizzbuzz(N), F = fizbuzz.
|
||
|
|
dofizzbuzz(N, F) :- isbuzz(N), F = buzz.
|
||
|
|
dofizzbuzz(N, F) :- isfizz(N), F = fizz.
|
||
|
|
dofizzbuzz(N, F) :- F = N.
|
||
|
|
|
||
|
|
|