From 469e88eef91320815d709ca79b512479b2427420 Mon Sep 17 00:00:00 2001
From: Robert Peterson <robert.peterson@gmail.com>
Date: Tue, 16 Apr 2019 15:24:35 -0700
Subject: Add list:any

---
 src/list.gleam | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src')

diff --git a/src/list.gleam b/src/list.gleam
index ccc674b..9293f50 100644
--- a/src/list.gleam
+++ b/src/list.gleam
@@ -168,3 +168,14 @@ pub fn all(list, f) {
       }
   }
 }
+
+pub fn any(list, f) {
+  case list {
+    | [] -> False
+    | [ x | rest] ->
+      case f(x) {
+        | False -> any(rest, f)
+        | _ -> True
+      }
+  }
+}
-- 
cgit v1.2.3