このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1274827528/241
#  ../test/read.cgi/tech/1274827528/235です。何度もすいません。 
#   
#  ↓のように出力するにはどうすればいいでしょうか   
#  
#   1  4  5  10  
#   4  5  6  15 
#   5  8  7  20 
#  10 10 10  30 
#  
#  20 27 28  75 
# 
# 

表に合計を付加して、表示する。ただし、行和、列和の前は少し空ける(_表) :-
        表に合計を付加して、(_表,_合計が付加された表),
        表示する。ただし、行和、列和の前は少し空ける(_合計が付加された表).

表に合計を付加する、(_表,_合計が付加された表) :-
        転置(_表,_転置表),
        算術和(_転置表,_横合計ならび),
        ならびの連結(_転置表,[_横合計ならび],_横合計が付加された転置表),
        転置(_横合計が付加された転置表,_横合計付加表),
        算術和(_横合計付加表,_縦合計ならび),
        ならびの連結(_横合計付加表,[_縦合計ならび],_合計が付加された表),!.

表示する。ただし、行和、列和の前は少し空ける(_合計が付加された表) :-
        append(_,[L|R],_合計が付加された表),
        append(L1,[E],L),
        concat_atom(L1,' ',S1),
        write_formtted('%t  %t\n',[S1,E]),
        R = [L2],
        append(L3,[E2],L2),
        concat_atom(L3,' ',S2),
        write('\n'),
        write_formatted('%t  %t\n',[S2,E2]).