From f265d24c0cacb92c7f7db19f364a155d87938184 Mon Sep 17 00:00:00 2001
From: dozens
Date: Tue, 28 May 2024 15:04:00 -0600
Subject: inits

---
 lib/contains.fnl | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 lib/contains.fnl

(limited to 'lib/contains.fnl')

diff --git a/lib/contains.fnl b/lib/contains.fnl
new file mode 100644
index 0000000..75275af
--- /dev/null
+++ b/lib/contains.fnl
@@ -0,0 +1,7 @@
+(fn contains [t x]
+  (accumulate [found false
+               _ v (ipairs t)
+               &until found] ; escape early
+    (or found (= x v))))
+
+{: contains}
-- 
cgit 1.4.1-2-gfad0