09/07/27 22:13:29
>>572
% Prolog
t572(L,X) :- length(L,Len),Len < 3,!,write('nil\n').
t572(L,X) :-
max(L,Max),
ならびから削除(Max,L,X).
ならびから削除(_,[],[]) :- !.
ならびから削除(_削除する要素,[_削除する要素|_残り対象ならび],_削除されたならび) :-
ならびから削除(_削除する要素,_残り対象ならび,_削除されたならび),!.
ならびから削除(_削除する要素,[_要素|_残り対象ならび],[_要素|_残り削除ならび]) :-
ならびから削除(_削除する要素,_残り対象ならび,_残り削除ならび),!.