このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1260532772/353
#  [1] 授業単元:基礎プログラミング講義
#  [2] 問題文(含コード&リンク):以下の処理はサブ関数で作成する。数値(n)を反転した値を表示せよ。123→321
#

'数値(n)を反転した値を表示' :-
    get_integer(N),
    '数値(n)を反転する'(N,N2),
    write_formatted('%t\n',[M]).

'数値(n)を反転する'(N,N1) :-
    number_chars(N,Chars1),
    reverse(Chars1,Chars2),
    number_chars(N1,Chars2).