このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1308749241/444
#  内容: 
#  [1] 授業単元:C言語 [2] 問題文(含コード&リンク):  
#  
#  50から1まで5個づつ降順に並んだ合計付きの表を表示しながら作成する。
#
#     50   49   48   47   46  240
#     45   44   43   42   41  215
#     40   39   38   37   36  190
#     35   34   33   32   31  165
#     30   29   28   27   26  140
#     25   24   23   22   21  115
#     20   19   18   17   16   90
#     15   14   13   12   11   65
#     10    9    8    7    6   40
#      5    4    3    2    1   15
#    275  265  255  245  235 1275

'50から1まで5個づつ降順に並んだ合計付きの表を表示しながら作成する'(_表) :-
        length(_五要素,5),
        length(L50,50),
        length(L5,5),
        findall(N,for(50,N,1),_50から1までのならび),
        findall(_行,(
                    append(L0,_五要素,R,_50から1までのならび),
                    ならび割り算(L0,L5,_,[]),
                    sum(_五要素,_横計),
                    append(_五要素,[_横計],_行),
                    writef('%5r%5r%5r%5r%5r%5r\n',_行)),
                _縦計を除いた表),
        転置(_縦計を除いた表,_転置された縦計を除いた表),
        findall(_縦計,(
                    append(_,[L2|_],_転置された縦計を除いた表),
                    sum(L2,_縦計)),
                _縦計ならび),
        wriref('%5r%5r%5r%5r%5r%5r\n',_縦計ならび),
        append(_縦計を除いた表,[_縦計ならび],_表),!.