13/02/20 21:21:58.29
>>48
'FizzBuzzhoge' :-
'FizzBuzzhoge'([],['','','Fizz'],['','','','','','','Buzz'],['','','','',''
,'','','','','','','','hoge']).
'FizzBuzzhoge'(Ln,_,_,_) :- length(Ln,100),!.
'FizzBuzzhoge'(Ln,L1,L2,L3) :-
'FizzBuzzhoge'([_|Ln],L1,L2,L3,_表示情報),
writef('%t\n',[_表示情報]),
三つのリストの左シフト(L1,L2,L3,L1_2,L2_2,L3_2),
'FizzBuzzhoge'([_|Ln],L1_2,L2_2,L3_2).
'FizzBuzzhoge'(Ln,[''|_],[''|_],[''|_],_数値) :- length(Ln,_数値),!.
'FizzBuzzhoge'(Ln,[A|_],[B|_],[C|_],_FizzBuzzhoge文字列) :- atomic_list_concat([A,B
,C],_FizzBuzzhoge文字列).
三つのリストの左シフト([A|R1],[B|R2],[C|R3],L1,L2,L3) :-
append(R1,[A],L1),
append(R2,[B],L2),
append(R3,[C],L3).