Rosetta Code

Sorting algorithms/Bogosort: Difference between revisions

Page Discussion

Sorting algorithms/Bogosort (view source)

Revision as of 23:33, 22 October 2008

7 bytes added ,  15 years ago
m
→‎{{header|OCaml}}
Line 211:
 
<ocaml>
let rec is_sorted compcompare = function
| e1 :: e2 :: r -> notcompare (compe1 e2 e1)<= 0 && is_sorted comp (e2 :: r)
| _ -> true
 
Line 227:
 
let rec bogosort li =
if is_sorted ( < )compare li then
li
else
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/72116"