Sorting algorithms/Bogosort: Difference between revisions
Content deleted Content added
added php |
|||
Line 257: | Line 257: | ||
[1,2,4,5,7,12,18,23] |
[1,2,4,5,7,12,18,23] |
||
</pre> |
</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}}== |
=={{header|J}}== |
||
bogo=: 3 : 0 |
bogo=: 3 : 0 |
||
whilst. -. *./ 2 </\ Ry do. Ry=. (A.~ ?@!@#) y end. Ry |
whilst. -. *./ 2 </\ Ry do. Ry=. (A.~ ?@!@#) y end. Ry |
||
) |
) |
||
=={{header|Java}}== |
=={{header|Java}}== |
||
{{works with|Java|1.5+}} |
{{works with|Java|1.5+}} |