--- pl:prolog:pllib:bubble_sort [2019/06/27 15:50]
+++ pl:prolog:pllib:bubble_sort [2019/06/27 15:50] (aktualna)
@@ Linia 1: / Linia 1: @@
+====== Bubble sort ======
+{{tag>sorting algorithms recursion}}
+===== Description =====
+Program implements bubble sort algorithm.
+**Source**:  Guide to Prolog Programming (on-line tutorial)
+===== Download =====
+Program source code: {{bubble_sort.pl}}
+===== Listing =====
+<code prolog>
+bubble_sort(List,Sorted):-b_sort(List,[],Sorted).
+b_sort([],Acc,Acc).
+b_sort([H|T],Acc,Sorted):-bubble(H,T,NT,Max),b_sort(NT,[Max|Acc],Sorted).
+bubble(X,[],[],X).
+bubble(X,[Y|T],[Y|NT],Max):-X>Y,bubble(X,T,NT,Max).
+bubble(X,[Y|T],[X|NT],Max):-X=<Y,bubble(Y,T,NT,Max).</code>
+===== Comments =====

pl/prolog/pllib/bubble_sort.txt · ostatnio zmienione: 2019/06/27 15:50 (edycja zewnętrzna)

AIwiki

Menu