このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1381909900/901
#  [2] 要素の数が10の配列に2から始まる倍数を逆順に表示せよ 
#  

'要素の数が10のならびに2から始まる倍数を逆順に格納した後、表示せよ'(_要素の数が10のならび) :-
        要素の数が10のならびに(_要素の数が10のならび),
        '2から始まる倍数を逆順に格納した後、'(2,[],_要素の数が10のならび),
        表示せよ(_要素の数が10のならび).

要素の数が10のならびに(_要素の数が10のならび) :-
        length(_要素の数が10のならび,10).

'2から始まる倍数を逆順に格納した後、'(_,L,L) :- !.
'2から始まる倍数を逆順に格納した後、'(_2から始まる倍数,L_1,L) :-
        _2から始まる倍数_1 is _2から始まる倍数 * 2,
        '2から始まる倍数を逆順に格納した後、'(_2から始まる倍数_1,[_2から始まる倍数|L_1],L).

表示せよ(_要素の数が10のならび) :-
        forall(member(_要素,_要素の数が10のならび),writef('%t ',[_要素])),
        write('\n').