このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/365
#  [1] プログラミング入門  
#  [2] 問題文 
#   
#  a[3][4]   
#   
#  = 
#   
#  | 3 5 -1  8  | 
#  | 2 3  2  4  | 
#  | 4 2 -5  3  | 
#    
#  の内容をすべて加算した値を出せ 
#   

'#  a[3][4]   #  = #  | 3 5 -1  8  | #  | 2 3  2  4  | #  | 4 2 -5  3  | #  の内容をすべて加算した値を出せ' :-
        findsum(N,(
                    member(L,[[3,5,-1,8],[2,3,2,4],[4,2,-5,3]]),
                    member(N,L)),
                S),
        writef('すべてを加算した値は %t です\n',[S]).


%  findsum/3