urbit/base/lib/mean.hoon
2015-06-04 15:16:48 -07:00

10 lines
169 B
Plaintext

|% ++ mean |=(a=tang (mean-wrap a |.(!!)))
++ mean-wrap
|* [a=tang _|?(**)]
^+ (+<+)
=> .(a `tang`a)
?~ a (+<+)
~> %mean.|.(i.a)
$(a t.a)
--