10/01/16 09:41:18
>>231
% Prolog
九九表を作り，テキストファイルに書き出す(_テキストファイル) :-
九九表を作り(_九九表),
tell(_テキストファイル),
書き出す(_九九表),
told.
九九表を作り(M,N,[]) :- M > N,!.
九九表を作り(M,N,[L|R]) :-
findall(K,(for(1,J,9),K is J * M),L),
M2 is M + 1,
九九表を作り(M2,N,R).
テキストファイルに書き出す(_テキストファイル,_ならび) :-
tell(_テキストファイル),
書き出す(_ならび),
told.
書き出す([]) :- !.
書き出す([L|R]) :-
concat_atom(L,' ',S),
write_formatted('%t\n',[S]),
書き出す(R).