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

'1×8の配列のうち、3番目だけに1を入れて、その他を0にする'(_配列) :-
        lenth(_配列,8),
        list_nth(3,_配列,[1]),
        ならび全ての変数と特定値を単一化(_配列,[0]).

ならびの全ての変数と特定値を単一化([],_) :- !.
ならびの全ての変数と特定値を単一化([_値|R],_値) :- ならびの全ての変数と特定値を単一化(R,_値),!.
ならびの全ての変数と特定値を単一化([A|R],_値) :- ならびの全ての変数と特定値を単一化(R,_値),!.