Anonymous user
General FizzBuzz: Difference between revisions
m
→{{header|Prolog}}
Line 2,526:
A simple Prolog solution to the generalised FizzBuzz problem is as follows:
<lang prolog>
fizzbuzz(N,[(F,S)|Fs],Res) :-▼
fizzbuzz(N,Fs,OldRes),▼
( N mod F =:= 0, string_concat(S,OldRes,Res) ; Res = OldRes ).▼
loop(B,B,_).
Line 2,536 ⟶ 2,533:
Next is A+1, loop(Next,B,Fs).
fizzbuzz(_,[],"").
▲fizzbuzz(N,[(F,S)|Fs],Res) :-
▲ fizzbuzz(N,Fs,OldRes),
▲ ( N mod F =:= 0, string_concat(S,OldRes,Res) ; Res = OldRes ).</lang>
The program can be launched by querying the predicate
<lang prolog>?- go.</lang>
It is worth noting that
| |||