>>253 問②棒グラフ出力プログラム
% Prolog

t253_2(A,B) :-
　　t253_2_make_list(50,A,B,L),
　　t253_2_print(L).

t253_2_make_list(0,_,_,[]).
t253_2_make_list(N,A,B,[[X1,X2]|R]) :-
　　( N > A,X1=' ';N =< A,X1='*'),
　　( N > B,X2=' ';N =< B,X2='*'),
　　N2 is N - 1,
　　t253_2_make_list(N2,A,B,R).

t253_2_print([],[]).
t253_2_print([F|R1],[B|R2]) :-
　　write_formatted(' %t %t\n',F),
　　t253_2_print(R1,R2).