Sorting algorithms/Bogosort: Difference between revisions

Content added Content deleted

Inline

@@ Line 211: / Line 211: @@
 <ocaml>
-let rec is_sorted compare = function
+let rec is_sorted comp = function
- | e1 :: e2 :: r -> compare e1 e2 <= 0 && is_sorted comp (e2 :: r)
+ | e1 :: e2 :: r -> comp e1 e2 <= 0 && is_sorted comp (e2 :: r)
  | _             -> true