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

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

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

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

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

'2から始まる倍数を格納した後、'(_,[]) :- !.
'2から始まる倍数を格納した後、'(N,[N_1|R]) :-
        N_1 is N * 2,
        '2から始まる倍数を格納した後、'(N_1,R).

表示せよ(L) :-
        forall(member(N,L),writef('%t ',[N])),
        write('\n').