Sorting algorithms/Bogosort: Difference between revisions

Content added Content deleted

Inline

@@ Line 211: / Line 211: @@
 <ocaml>
-let rec is_sorted comp = function
+let rec is_sorted compare = function
- | e1 :: e2 :: r -> not (comp e2 e1) && is_sorted comp (e2 :: r)
+ | e1 :: e2 :: r -> compare e1 e2 <= 0 && is_sorted comp (e2 :: r)
  | _             -> true
@@ Line 227: / Line 227: @@
 let rec bogosort li =
-  if is_sorted ( < ) li then
+  if is_sorted compare li then
     li
   else