Anonymous user
Sorting algorithms/Bubble sort: Difference between revisions
Modula-3
(→{{header|Java}}: Changed to pseudocode algorithm) |
(Modula-3) |
||
Line 502:
myArr = #(9, 8, 7, 6, 5, 4, 3, 2, 1)
myArr = bubbleSort myArr
=={{header|Modula-3}}==
<pre>
MODULE Bubble EXPORTS Main;
VAR a := ARRAY [1..10] OF INTEGER {10, 5, 2, 3, 6, 8, 1, 4, 7, 9};
PROCEDURE sort(VAR a: ARRAY OF INTEGER) =
VAR sorted: BOOLEAN;
len: INTEGER := LAST(a);
temp: INTEGER;
BEGIN
WHILE NOT sorted DO
sorted := TRUE;
DEC(len);
FOR i := FIRST(a) TO len DO
IF a[i+1] < a[i] THEN
temp := a[i];
a[i] := a[i + 1];
a[i + 1] := temp;
END;
sorted := FALSE;
END;
END;
END sort;
</pre>
=={{header|OCaml}}==
| |||