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 |
r := Random.Roll(n); |
||
t := a[n]; |
t := a[n]; |
||
a[n] := a[r]; |
a[n] := a[r]; |