diff --git a/arvo/hoon.hoon b/arvo/hoon.hoon index 512507ca7b..4c995cf26e 100644 --- a/arvo/hoon.hoon +++ b/arvo/hoon.hoon @@ -705,7 +705,7 @@ ?: (b i.a) & $(a t.a) :: -++ murn !: :: maybe transform +++ murn :: maybe transform |* [a=(list) b=$+(* (unit))] |- ?~ a @@ -715,6 +715,14 @@ $(a t.a) [i=u.c t=$(a t.a)] :: +++ reap :: replicate + |* [a=@ b=*] + =| c=(list) + |- ^- (list) + ?: =(a 0) + c + $(c [b c], a (dec a)) +:: ++ reel :: right fold ~/ %reel |* [a=(list) b=_|=([* *] +<+)]