From f3aa9e7fb111046c6a15cff5881c7e5e8a4b7239 Mon Sep 17 00:00:00 2001
From: Bob Tolbert <bob@eyesopen.com>
Date: Thu, 23 Jan 2025 09:40:23 -0800
Subject: [PATCH 1/2] add examples for filter

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

diff --git a/examples/filter.janet b/examples/filter.janet
new file mode 100644
index 0000000..f682bb4
--- /dev/null
+++ b/examples/filter.janet
@@ -0,0 +1,9 @@
+(filter pos? [1 2 3 0 -4 5 6]) # -> @[1 2 3 5 6]
+
+(filter |(> (length $) 3) ["hello" "goodbye" "hi"]) # -> @["hello" "goodbye"]
+
+(filter |(< 65 $) "foo01bar") # -> @[102 111 111 98 97 114]
+
+(string/join
+ (map string/from-bytes 
+      (filter |(< "A" (string/from-bytes $)) "foo01bar"))) # -> "foobar"
\ No newline at end of file

From 0ecbcfc98145597c086ee65a456bd2274fbbb3ca Mon Sep 17 00:00:00 2001
From: Bob Tolbert <bob@eyesopen.com>
Date: Thu, 23 Jan 2025 17:09:41 -0800
Subject: [PATCH 2/2] update example to remove redundant calls to
 string/from-bytes

---
 examples/filter.janet | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/examples/filter.janet b/examples/filter.janet
index f682bb4..4b63717 100644
--- a/examples/filter.janet
+++ b/examples/filter.janet
@@ -2,8 +2,6 @@
 
 (filter |(> (length $) 3) ["hello" "goodbye" "hi"]) # -> @["hello" "goodbye"]
 
-(filter |(< 65 $) "foo01bar") # -> @[102 111 111 98 97 114]
+(filter |(< (chr "A") $) "foo01bar") # -> @[102 111 111 98 97 114]
 
-(string/join
- (map string/from-bytes 
-      (filter |(< "A" (string/from-bytes $)) "foo01bar"))) # -> "foobar"
\ No newline at end of file
+(string/from-bytes ;(filter |(< (chr "A") $) "foo01bar")) # -> "foobar"
\ No newline at end of file