Merge pull request #259 from sogaiu/swap-keep-examples

Swap an example for keep
janet-lang · Jan 17, 2025 · 9e44e8d · 9e44e8d
2 parents b4809da + 400f2e4
commit 9e44e8d
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/examples/keep.janet b/examples/keep.janet
@@ -1,8 +1,9 @@
+# returns an array of truthy results of predicate
+(keep identity [false :x nil true]) # -> @[:x true]
+
 # 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]