このディレクトリの索引
%% TECHINIQUES OF PROLOG PROGRAMMING by T. Van Le, ph D.  %%

bubble_sort(L,L1) :-
    swqp(L,L2,0),
    bubble_sort(L2,L1).
bubble_sort(L,L).

swap([X,Y|R],[X|T],S) :- X =< Y,swap([Y|R],T,S).
swap([X,Y|R],[Y|T],S) :- X > Y, swap([X|R],T,1).
swap([X],[X],1).