reset includes

prelude/__internal__/List.mad

@@ -783,28 +783,13 @@ export zip = (as, bs) => where(#[as, bs]) {
  * @since 0.6.0
  */
 includes :: Eq a => a -> List a -> Boolean
-export includes = (x, list) => {
-  matched = false
-  subcheck = (lll) => if (!matched) {
-    where(lll) {
-      [] =>
-        {}
-
-      [a, ...xs] =>
-        do {
-          if (a == x) do {
-            matched := true
-          }
-          subcheck(xs)
-        }
-    }
-  }
-  subcheck(list)
-  return matched
-}
-// a == x ? true : includes(x, xs)
-
+export includes = (x, list) => where(list) {
+  [] =>
+    false
 
+  [a, ...xs] =>
+    a == x || includes(x, xs)
+}
 
 /**
  * Drops n items from the given list.