mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 21:03:10 +03:00
10 lines
169 B
Plaintext
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)
|
||
|
|
--
|