このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/268
#  [1] 授業単元:コンピュータ工学 
#  [2] 問題文(含コード&リンク): 
#  構造体配列のhairetu x[10]という名前の入れ物の 
#  すべてに0と1を入れるプログラムを作成せよ。 
#  ただし、ポインタの扱いで動作させるものとする。 
#  
%  例によって、配列をリストに置き換えて答える。

'x[10]という名前の入れ物のすべてに0と1を入れる'(_x) :-
        length(_x,10),
        all(_x,x(0,1)).