Sorting algorithms/Bogosort: Difference between revisions

Content added Content deleted
Line 211:
 
<ocaml>
let rec is_sorted comparecomp = function
| e1 :: e2 :: r -> comparecomp e1 e2 <= 0 && is_sorted comp (e2 :: r)
| _ -> true
 
Retrieved from "https://rosettacode.org/wiki/Sorting_algorithms/Bogosort"