Anonymous user
Sorting algorithms/Bogosort: Difference between revisions
m
Added Io version.
(→{{header|PHP}}: Added PureBasic) |
m (Added Io version.) |
||
Line 565:
end</lang>
=={{header|Io}}==
<lang io>List do(
isSorted := method(
slice(1) foreach(i, x,
if (x < at(i), return false)
)
return true;
)
bogoSortInPlace := method(
while(isSorted not,
shuffleInPlace()
)
)
)
lst := list(2, 1, 4, 3)
lst bogoSortInPlace println # ==> list(1, 2, 3, 4), hopefully :)</lang>
=={{header|J}}==
<lang j>bogo=: monad define
| |||