いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

573:デフォルトの名無しさん
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).

ならびから削除(_,[],[]) :- !.
ならびから削除(_削除する要素,[_削除する要素|_残り対象ならび],_削除されたならび) :-
　　ならびから削除(_削除する要素,_残り対象ならび,_削除されたならび),!.
ならびから削除(_削除する要素,[_要素|_残り対象ならび],[_要素|_残り削除ならび]) :-
　　ならびから削除(_削除する要素,_残り対象ならび,_残り削除ならび),!.

次ページ

続きを表示

1を表示