09/06/17 03:32:33
>>196
% Prolog (ちょっとだけ変更)
t193 :-
t193_1([' ',' ',' ',' ',★],[★,' ',' ',' ',' ']).
t193_1(L1,L2) :-
L1=[★|_],
★を表示(L1,L2),!.
t193_1(L1,L2) :-
★を表示(L1,L2),
append([A],R1,L1),
append(R1,[A],L3),
append(L4,[B],L2),
t_193_1(L3,[B|L4]).
★を表示([],[]) :- nl.
★を表示([' '|R1],[' '|R2]) :-
!,
write(' '),
★を表示(R1,R2).
★を表示([_|R1],[_|R2]) :-
write(★),
★を表示(R1,R2).