このディレクトリの索引
http://pc11.2ch.net/test/read.cgi/php/1251989472/378
# ----------input.txt-
# 1 2 3
# 4 5 6
# 7 8 9
# -------------------
# ---------------output.txt-
# 左上の数字は1です
# 中上の数字は2です
#    ・
#    ・
#    ・
# ---------------
# input.txt->output.txtのようなprogramの書き方を教えてください
# できれば、input.txtを空白で区切った値をそれぞれ$a_1,$a_2といった変数にしてしまいたいのですが

位置と値を組み合わせて表示する :-
        get_split_lines('input.txt',[' '],LL),
        tell('output.txt'),
        位置と値を組み合わせて行表示する([上,中,下],[左,中,右],LL),
        told.

位置と値を組み合わせて行表示する(_,_,[]) :- !.
位置と値を組み合わせて行表示する([_行表現|R1],L1,[L2|R2]) :-
        位置と値を組み合わせて列表示する(_行表現,L1,L2),
        位置と値を組み合わせて行表示する(R1,L1,R2).

位置と値を組み合わせて列表示する(_,[],[]) :- !.
位置と値を組み合わせて列表示する(_行表現,[_列表現|R1],[N|R2]) :-
        位置表現を構成する(_行表現,_列表現,_表示文字列),
        write_formatted('%tの数字は%tです\n',[_表示文字列,N]),
        位置と値を組み合わせて列表示する(_行表現,R1,R2).

位置表現を構成する(中,中,まん中) :- !.
位置表現を構成する(_行表現,_列表現,_表示文字列) :- concat_atom([_列表現,_行表現],_表示文字列).