このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 127代目 #482 # [1] 授業単元:プログラミング基礎 # [2] 問題文 # # http://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/img/9473.txt t183 :- t183_1([0,0,0,0,1],[1,0,0,0,0]). t183_1(L1,L2) :- L1=[1|_], '★を表示'(L1,L2),!. t183_1(L1,L2) :- '★を表示'(L1,L2), append([A],R1,L1), append(R1,[A],L3), append(L4,[B],L2), t183_1(L3,[B|L4]). '★を表示'([],[]) :- nl. '★を表示'([A|R1],[B|R2]) :- 1 is A \/ B, write('★'), '★を表示'(R1,R2). '★を表示'([A|R1],[B|R2]) :- 0 is A \/ B, write(' '), '★を表示'(R1,R2).