Anonymous user
Sorting algorithms/Bogosort: Difference between revisions
m
→{{header|Oberon-2}}: lang tag
(c) |
m (→{{header|Oberon-2}}: lang tag) |
||
Line 464:
=={{header|Oberon-2}}==
{{Works with|Oxford Oberon-2 Compiler}}
<
IMPORT Out, Random;
Line 514:
END;
Out.Ln;
END Bogo.</
Init initializes the array as 1 thru 10, then it is shuffled, and then the while loop continually shuffles until Sorted returns true.
|