このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1284632294/534
#  [1] 授業単元: 基礎プログラミング 
#  [2] 問題文(含コード&リンク): 1×8の配列のうち、3番目だけに1を入れて、その他を0にするプログラムを作る。 
#  

'1×8の配列のうち、3番目だけに1を入れて、その他を0にする'(_配列) :-
        length(8,_配列),
        length(L0,2),
        append(L0,[[1]|R],_配列),
        all(L0,[0]),
        all(R,[0]),!.