all tasks

Task/Sorting-algorithms-Bubble-sort/XPL0/sorting-algorithms-bubble-sort.xpl0

@@ -0,0 +1,24 @@
+include c:\cxpl\codes;          \intrinsic 'code' declarations
+string 0;                       \use zero-terminated strings
+
+proc    BSort(A, N);            \Bubble sort array in ascending order
+char    A;                      \address of array
+int     N;                      \number of items in array (size)
+int     I, J, T;
+[for J:= N-1 downto 0 do
+    for I:= 0 to J-1 do
+        if A(I) > A(I+1) then
+            [T:= A(I);  A(I):= A(I+1);  A(I+1):= T];    \swap items
+];      \BSort
+
+func    StrLen(Str);            \Return number of characters in an ASCIIZ string
+char    Str;
+int     I;
+for I:= 0 to -1>>1-1 do
+        if Str(I) = 0 then return I;
+
+char    Str;
+[Str:= "Pack my box with five dozen liquor jugs.";
+BSort(Str, StrLen(Str));
+Text(0, Str);  CrLf(0);
+]