e/Filter and e/When (experimental)

hyperfiddle · Sep 13, 2024 · 3f2902a · 3f2902a
1 parent 2987396
commit 3f2902a
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/hyperfiddle/electric3.cljc b/src/hyperfiddle/electric3.cljc
@@ -219,6 +219,8 @@ this tuple. Returns the concatenation of all body results as a single vector.
            (e/as-vec (do ~@body)))))))
 
 (hyperfiddle.electric3/defn Count [xs] (-> xs pure i/count input))
+(hyperfiddle.electric3/defn Filter [p? xs] (for [x xs] (if (p? x) x (amb)))) ; todo write as product
+(defmacro When [test & body] `(if ~test (do ~@body) (amb)))
 
 ;; mklocal = declare lexical slot
 ;; bindlocal = bind lexical slot to value by name