このディレクトリの索引

fizzbuzz(Max) :-
        length(Lmax,Max),
        fizzbuzz([_],Lmax,[_,_],[_,_,_,_]).

fizzbuzz(_,[],_,_).
fizzbuzz(R1,[_|R2],[],[]) :-
        write('BuzzFizz '),
        fizzbuzz([_|R1],R2,[_,_],[_,_,_,_]).
fizzbuzz(R1,[_|R2],[],[_|R4]) :-
        write('Fizz '),
        fizzbuzz([_|R1],R2,[_,_],R4).
fizzbuzz(R1,[_|R2],[_|R3],[]) :-
        write('Buzz '),
        fizzbuzz([_|R1],R2,R3,[_,_,_,_]).
fizzbuzz(R1,[_|R2],[_|R3],[_|R4]) :-
        length(R1,N),
        writef('%t ',[N]),
        fizzbuzz([_|R1],R2,R3,R4).