このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1305867431/119
#  【質問テンプレ】  
#  [1] 授業単元:アルゴリズム  
#  [2] 問題文(任意の整数を入力、位が高いほうから一桁ずつ表示、各位の合計を算出):  
#  

'任意の整数を入力、位が高いほうから一桁ずつ表示、各位の合計を算出'(_任意の整数,_各位の合計) :-
        位が高いほうから一桁ずつ表示(_整数),
        nunber_codes(_整数,Codes),
        findsum(N,(
                    append(_,[M|_],Codes),
                    N is M - 48),
               _各位の合計).

位の高いほうから一桁ずつ表示(_整数) :-
        number_chars(_整数,Chars),
        append(_,[A|R],Chars),
        writef('%t\n',[A]),
        R = [].