このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1337692704/443
#  すみませんがもう一つできない問題があります。 
#  {課題} 
#  以下に示すのは、すべての要素の値が0である2行3列のint型の2次元配列 
#  aを作るプログラムである。 
#   
#  int[][]a=new int[2][3]; 
#   
#  int[][]a={0,0,0,},{0,0,0}; 
#   
#  int[][]a={new int[3],new int[3]}; 
#   
#  int[][] a; 
#  a=new int[2][]; 
#  a[0]=new int[3]; 
#  a[1]=new int[3]; 
#   
#  この4つをそれぞれ使って四つプログラム作る問題です。 
#   
#  明日の朝9:00に提出です。 
#  できれば4:30ぐらいまでにお願いしたいです>< 
#  何度も申し訳ないです>< 
# 
# 

'すべての要素の値が0である2行3列のint型の2次元配列aを作る'(_a) :-
        length(_a,2),
        findall(L,(
                    member(L,_a),
                    length(L,3),
                    all(L,0)),
                _a).

all([],_).
all([A|R],A) :-
        all(R,A).