このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1307166756/624
#  [1]C言語 
#  [2]for文:1〜10までを表示する他に合計を求めなさい。 
#  実行画面 
#   ______ 
#  |12345678910| 
#  |合計:55   | 
#    ̄ ̄ ̄ ̄ ̄ ̄ 
#  [3]環境 
#   [3.1] OS: (Windows 
#   [3.2] CPad for Borland 2.31 
#   [3.3] 言語:C 
#  [4] 期限: 2011年6月22日 
#  [5] その他の制限: 
# 
# 

'1〜10までを表示する他に合計を求めなさい' :-
        write('| '),
        findall(N,(
                    for(1,N,10),
                    writef('%t',[N])),
                L),
        write(' |\n'),
        sum(L,_合計),
        writef('| 合計:%t |\n',[_合計]).

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