このディレクトリの索引
# いま、ls = [1, 2, 3, 4, 5]だとするだろ。
# そうすると。ls.remove(max(ls))ってのはアリなんだよな。この場合、ls = [1, 2, 3, 4, 5]ってのが返される。
# あ、違うか。ls = [1, 2, 3, 4]だね。ごめん。
# そこからまたmax適用して・・・ってのがSQLじゃあ思いつかないんだよな。どうすんべえ
# 

'SQLじゃなくて悪いがPrologで書いてみるべぇ'(Ls,L) :-
        max_remove(Ls,L).

max_remove(L1,L) :-
        findall(L2,(
                    max_remove(L1,L2)),
                L).

max_remove(L1,L2) :-
        max(L1,A),
        remove(A,L1,L2).
max_remove(L1,L2) :-
        max(L1,A),
        remove(A,L1,L3),
        max_remove(L3,L2).

remove(_,[],[]).
remove(A,[A|R1],R2) :-
        remove(A,R1,R2).
remove(A,[B|R1],[B|R2]) :-
        \+(A==B),
        remove(A,R1,R2).