Sorting algorithms/Bogosort: Difference between revisions
→{{header|Icon}}
(added php) |
|||
Line 257:
[1,2,4,5,7,12,18,23]
</pre>
=={{header|Icon}}==
procedure shuffle(l)
repeat {
!l :=: ?l
suspend l
}
end
procedure sorted(l)
local e, o
o := l[1]
every e := !l do if e > o then return &fail else o := e
return 1
end
procedure main()
local l, m
l := [6,3,4]
every (m := shuffle(l) & sorted(m))\1 do
every writes(" ",!m)
end
=={{header|J}}==
bogo=: 3 : 0
whilst. -. *./ 2 </\ Ry do. Ry=. (A.~ ?@!@#) y end. Ry
)
=={{header|Java}}==
{{works with|Java|1.5+}}
| |||