Sorting algorithms/Bogosort: Difference between revisions
Content added Content deleted
(oberon-2) |
(m) |
||
Line 188:
BEGIN
FOR n := 0 TO LEN(a) - 1 DO
r := Random.Roll(n
t := a[n];
a[n] := a[r];
|