Add ++murn.

Maybe turn
2024-12-12 10:29:01 +03:00 · 2014-07-02 11:11:23 -04:00 · 2014-07-02 11:11:23 -04:00 · 38ce666012
commit 38ce666012
parent 373ad8b2eb
1 changed files with 9 additions and 0 deletions
--- a/arvo/hoon.hoon
+++ b/arvo/hoon.hoon
@ -698,6 +698,15 @@
  ?:  (b i.a)  &
  $(a t.a)
 ::
++  murn                                                ::  maybe transform
+  |*  [a=(list) b=$+(* (unit))]
+  %+  reel  a
+  |*  [c=* acc=(list)]
+  =+  i=(b c)
+  ?~  i
+    acc
+  [i=u.i t=acc]
+::
 ++  reel                                                ::  right fold
  ~/  %reel
  |*  [a=(list) b=_|=([* *] +<+)]