June 2018 Update

Task/Sorting-algorithms-Bubble-sort/Maple/sorting-algorithms-bubble-sort.maple

@@ -0,0 +1,16 @@
+arr := Array([17,3,72,0,36,2,3,8,40,0]):
+len := numelems(arr):
+while(true) do
+	change := false:
+	len--;
+	for i from 1 to len do
+		if (arr[i] > arr[i+1]) then
+			temp := arr[i]:
+			arr[i] := arr[i+1]:
+			arr[i+1] := temp:
+			change := true:
+		end if:
+	end do:
+	if (not change) then break end if:
+end do:
+arr;