このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1301553333/697
#  [1] 授業単元:プログラミング言語 
#  [2] 問題文: ../test/read.cgi/tech/1301553333/693 
#  
#    strSrcの文字列を逆にして,strDstに書き込むプログラムを作成してください. 
#   ただし,文字列の操作にはポインタ変数strDst, strSrc, pC, pDを用いることとし,strSrc[i] のような配列操作は用いないこととします. 
#   また,配列strSrc[]の1つ前の番地に0が入っていることを前提としないプログラムにしてください. 
#   
#  http://ime.nu/codepad.org/V7e6qsPC 
%  文字列をアトムと解釈する

'strSrcの文字列を逆にして,strDstに書き込む'(_strSrc,_strDst) :-
        atom_chars(_strSrc,Chars),
        'strSrcの文字列を逆にして,strDstに書き込む'(Chars1,[],Chars2),
        atom_chars(_strDst).

'strSrcの文字列を逆にして,strDstに書き込む'([],Chars,Chars).
'strSrcの文字列を逆にして,strDstに書き込む'([_文字|R1],Chars2,Chars) :- !.
        'strSrcの文字列を逆にして,strDstに書き込む'(R1,[_文字|Chars2],Chars).