このディレクトリの索引
#  
#  バブルソート
#  

バブルソート(L1,L2) :-
        append(L0,[A,B|R],L1),
        A @> B,
        append(L0,[B,A|R],L3),
        バブルソート(L3,L2),!.
バブルソート(L,L).