このディレクトリの索引

# 出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1381909900/901 # [2] 要素の数が10の配列に2から始まる倍数を逆順に表示せよ # '要素の数が10のならびに2から始まる倍数を逆順に格納した後、表示せよ'(_要素の数が10のならび) :- 要素の数が10のならびに(_要素の数が10のならび), '2から始まる倍数を逆順に格納した後、'(10,1,_要素の数が10のならび), 表示せよ(_要素の数が10のならび). 要素の数が10のならびに(_要素の数が10のならび) :- length(_要素の数が10のならび,10). '2から始まる倍数を逆順に格納した後、'(0,_,_要素の数が10のならび) :- !. '2から始まる倍数を逆順に格納した後、'(_位置,N,_要素の数が10のならび) :- nth1(_位置,_要素の数が10のならび,N_1), N_1 is N * 2, _位置_1 is _位置 - 1, '2から始まる倍数を逆順に格納した後、'(_位置_1,N_1,_要素の数が10のならび). 表示せよ(_要素の数が10のならび) :- forall(member(N,_要素の数が10のならび),writef('%t ',[N])), write('\n').