Data update

Task/Sorting-algorithms-Bubble-sort/Maxima/sorting-algorithms-bubble-sort.maxima

@@ -0,0 +1,20 @@
+bubble_sort(u) := block(
+    [n: length(u), swapped: true, temp],
+    while swapped do (
+        swapped: false,
+        for i: 1 thru n - 1 do (
+            if u[i] > u[i + 1] then (
+                temp: u[i],
+                u[i]: u[i + 1],
+                u[i + 1]: temp,
+                swapped: true
+            )
+        )
+    ),
+    u
+);
+/* Example */
+/* sample:[3,65,6,24,24,89,2,59,6]$
+   bubble_sort(%);
+   [2,3,6,6,24,24,59,65,89]
+*/