このディレクトリの索引

http://pc12.2ch.net/test/read.cgi/tech/1245853701/878
# [1] 授業単元:プログラミング言語
# [2] 問題文(含コード&リンク):
# char型配列xに格納された文字列を一文字ごとに空白を開けて逆順に出力する関数
# reverse_array(char[])を以下のように出力されるよう作成せよ。
#
# 処理前:Tokyo
# 関数reverse_array()を呼び出しました
# 処理後:"o y k o T"

文字ならびを一文字ごとに空白を開けて逆順に出力する(_文字ならび) :-
        文字ならびを一文字ごとに空白を開けて逆順に(_文字ならび,_一文字ごとに空白を開けた逆順ならび),
        atomic_list_concat(_一文字ごとに空白を開けた逆順ならび,_表示文字列),
        writef('%t\n',[_表示文字列]).

文字ならびを一文字ごとに空白を開けて逆順に(_文字ならび,_一文字ごとに空白を開けた逆順ならび) :-
        文字ならびを一文字ごとに空白を開けて逆順に(_文字ならび,[],_一文字ごとに空白を開けた逆順ならび).

文字ならびを一文字ごとに空白を開けて逆順に([A],L,[A|L]) :- !.
文字ならびを一文字ごとに空白を開けて逆順に([A|R1],L_1,L) :-
        文字ならびを一文字ごとに空白を開けて逆順に(R1,[A,' '|L_1],L).