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

'1×8の配列のうち、3番目だけに1を入れて、その他を0にする'(_配列) :-
        '1×8の配列のうち、3番目だけに1を入れて、その他を0にする'(1,_配列).

'1×8の配列のうち、3番目だけに1を入れて、その他を0にする'(N,[]) :- N > 8,!.
'1×8の配列のうち、3番目だけに1を入れて、その他を0にする'(3,[[1]|R]) :-
        N2 is N + 1,
        '1×8の配列のうち、3番目だけに1を入れて、その他を0にする'(4,R),!.
'1×8の配列のうち、3番目だけに1を入れて、その他を0にする'(N,[[0]|R]) :-
        N2 is N + 1,
        '1×8の配列のうち、3番目だけに1を入れて、その他を0にする'(N2,R),!.