From f57e7091f127101d065999834e44f3059e63b3ec Mon Sep 17 00:00:00 2001
From: Marcin Puc <marcin.e.puc@gmail.com>
Date: Sat, 27 Mar 2021 13:45:49 +0100
Subject: Simplify list.{any, all}

---
 src/gleam/list.gleam | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

(limited to 'src')

diff --git a/src/gleam/list.gleam b/src/gleam/list.gleam
index 1fddc84..7df9862 100644
--- a/src/gleam/list.gleam
+++ b/src/gleam/list.gleam
@@ -635,11 +635,7 @@ pub fn find_map(
 pub fn all(in list: List(a), satisfying predicate: fn(a) -> Bool) -> Bool {
   case list {
     [] -> True
-    [x, ..rest] ->
-      case predicate(x) {
-        True -> all(rest, predicate)
-        _ -> False
-      }
+    [x, ..rest] -> predicate(x) && all(rest, predicate)
   }
 }
 
@@ -664,11 +660,7 @@ pub fn all(in list: List(a), satisfying predicate: fn(a) -> Bool) -> Bool {
 pub fn any(in list: List(a), satisfying predicate: fn(a) -> Bool) -> Bool {
   case list {
     [] -> False
-    [x, ..rest] ->
-      case predicate(x) {
-        False -> any(rest, predicate)
-        _ -> True
-      }
+    [x, ..rest] -> predicate(x) || any(rest, predicate)
   }
 }
 
-- 
cgit v1.2.3