Sorting algorithms/Bogosort: Difference between revisions

Content added Content deleted
(Added BBC BASIC)
Line 228:
shuffles% = 0
WHILE NOT FNsorted(test())
REPEAT
shuffles% += 1
PROCshuffle(test())
UNTIL FNsorted(test())ENDWHILE
PRINT ;shuffles% " shuffles required to sort "; DIM(test(),1)+1 " items."
END
Line 250:
'''Output:'''
<pre>
5160229383150 shuffles required to sort 10 items.
</pre>
 
Retrieved from "https://rosettacode.org/wiki/Sorting_algorithms/Bogosort"