aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/General-FizzBuzz/Prolog/general-fizzbuzz-1.pro Normal file
View file

@ -0,0 +1,2 @@
maxNumber(105).
factors([(3, "Fizz"), (5, "Buzz"), (7, "Baxx")]).

11
Task/General-FizzBuzz/Prolog/general-fizzbuzz-2.pro Normal file
View file

@ -0,0 +1,11 @@
go :- maxNumber(M), factors(Fs), MLast is M+1, loop(1,MLast,Fs).
loop(B,B,_).
loop(A,B,Fs) :-
A < B, fizzbuzz(A,Fs,S), ( (S = "", Res is A) ; Res = S ), writeln(Res),
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 ).

1
Task/General-FizzBuzz/Prolog/general-fizzbuzz-3.pro Normal file
View file

@ -0,0 +1 @@
?- go.

1
Task/General-FizzBuzz/Prolog/general-fizzbuzz-4.pro Normal file
View file

@ -0,0 +1 @@
factors([(3, "Fizz"), (5, "Buzz")]).