From 400f2e4b03ac375dbe3225829e492bbede24fc7c Mon Sep 17 00:00:00 2001 From: sogaiu <983021772@users.noreply.github.com> Date: Fri, 17 Jan 2025 09:26:04 +0900 Subject: [PATCH] Swap an example for keep --- examples/keep.janet | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/examples/keep.janet b/examples/keep.janet index 97124aa..2ee8bf5 100644 --- 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] \ No newline at end of file