Sorting algorithms/Bogosort: Difference between revisions
Content added Content deleted
(→{{header|PHP}}: Added PureBasic) |
m (Added Io version.) |
||
Line 565: | Line 565: | ||
end</lang> |
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}}== |
=={{header|J}}== |
||
<lang j>bogo=: monad define |
<lang j>bogo=: monad define |