10/01/29 06:08:59
>>483 訂正
% Prolog 2: 順番にという以上入力と逆順になってはマズイ。
'２：次に異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納せよ'(MAN) :-
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'(MAN).
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'(MAN) :-
'MANを確保'(MAN,6),
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'([],MAN).
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'(MAN,MAN) :- !.
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'(L1,MAN) :-
get_integer(N),
\+(member(N,L1)),
append(L1,[N],L2),
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'(L2,MAN) :- !.
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'(L1,MAN).
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'(L1,MAN).