Sorting algorithms/Bogosort: Difference between revisions

Content added Content deleted
(oberon-2)
(m)
Line 188: Line 188:
BEGIN
BEGIN
FOR n := 0 TO LEN(a) - 1 DO
FOR n := 0 TO LEN(a) - 1 DO
r := Random.Roll(n + 1);
r := Random.Roll(n);
t := a[n];
t := a[n];
a[n] := a[r];
a[n] := a[r];