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

バブルソート(L1,L2) :-
        泡が浮き上がる(L1,L3),
        バブルソート(L3,L2),!.
バブルソート(L,L).

泡が浮き上がる(L1,L3) :-
        append(L0,[_泡_1,_泡_2|R],L1),
        _泡_1 @> _泡_2,
        append(L0,[_泡_2,_泡_1|R],L3).