このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1325685876/418
#  [1] 授業単元:コンピュータ工学 
#  [2] 問題文(含コード&リンク):  
#  例に示した通りに動作するプログラムを作成せよ。 
#  例題の中にあるアンダーライン(_)は空白を示すものとする。 
#  input please-> 10_35_100_500・・・ 
#   
#  message-> "10+35+100+500の合計は645です。" 
#  

'例に示した通りに動作するプログラム。 input please-> 10_35_100_500・・・ message-> "10+35+100+500の合計は645です。" ' :-
        write('input please-> '),
        readln(L),
        sum(L,_合計),
        concat_atom(L,'+',S),
        writef('%tの合計は%tです。\n',[S,_合計]).

sum([],0).
sum([N|R],S) :-
        sum(R,S1),
        S is N + S1.