From 7275a9ef72e79bbf33a47abdb72b4596a10505d8 Mon Sep 17 00:00:00 2001
From: Robert Peterson <robert.peterson@gmail.com>
Date: Tue, 16 Apr 2019 15:23:19 -0700
Subject: Add list:all

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

(limited to 'src')

diff --git a/src/list.gleam b/src/list.gleam
index 22da117..ccc674b 100644
--- a/src/list.gleam
+++ b/src/list.gleam
@@ -158,3 +158,13 @@ pub fn find(haystack, f) {
   }
 }
 
+pub fn all(list, f) {
+  case list {
+    | [] -> True
+    | [x | rest] ->
+      case f(x) {
+        | True -> all(rest, f)
+        | _ -> False
+      }
+  }
+}
-- 
cgit v1.2.3