このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1244449887/482
#[1] 授業単元:プログラミング基礎  
#[2] 問題文 
#
# http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9473.txt 

193 :-
  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).