From 9017732e978814fae0a162ffc85f1838808ab9b1 Mon Sep 17 00:00:00 2001
From: Bob Tolbert <bob@eyesopen.com>
Date: Thu, 16 Jan 2025 07:42:40 -0600
Subject: [PATCH] add examples for keep

---
 examples/keep.janet | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 examples/keep.janet

diff --git a/examples/keep.janet b/examples/keep.janet
new file mode 100644
index 0000000..97124aa
--- /dev/null
+++ b/examples/keep.janet
@@ -0,0 +1,8 @@
+# keep values > 1, equivalent to filter
+(keep (fn [x] (when (> x 1) x)) @[0 1 2 3]) # -> @[2 3]
+
+# for all members > 2, keep the square
+(keep (fn [x] (when (> x 2) (* x x))) [0 1 3 4 5]) # -> @[9 16 25]
+
+# operates on values in table
+(keep (fn [x] (when (> x 1) (* x x))) @{:foo 1 :bar 2 :baz 3}) # -> @[4 9]
\ No newline at end of file