このディレクトリの索引

# 出典 :: C/C++の宿題片付けます 136代目 #28 # 猫、以下の話だが↓この結果が # # @ #  @ #   @ #    @ #     @ #    @ #   @ #  @ # @ # # '猫、以下の話' :- '猫、以下の話'('','    '). '猫、以下の話'(A,B) :- '第一引数と第二引数が一致したら折り返す'(A,B),!. '猫、以下の話'(A,B) :- '行きと帰りに同じ行を印字する'(A,B). '第一引数と第二引数が一致したら折り返す'(A,A) :- 一行描画(A). '行きと帰りに同じ行を印字する'(A,B) :- 一行描画(A), atom_concat(' ',A,A2), '猫、以下の話'(A2,B), 一行描画(A). 一行描画(A) :- writef('%w@\n',[A]).