10/01/29 06:03:17
>>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)),
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'([N|L1],MAN) :- !.
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'(L1,MAN).
'異なる 6 個の数字を入力し，順番に配列 MAN[6] に格納する'(L1,MAN).