Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,17 @@
|
|||
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 :)
|
||||
Loading…
Add table
Add a link
Reference in a new issue