mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 21:03:10 +03:00
14 lines
274 B
Plaintext
14 lines
274 B
Plaintext
/+ tree
|
|
/: /%%/ /%
|
|
/^ [tip=marl sub=(map span marl) ~]
|
|
/. /; (getall:tree %h1 ~) /elem/
|
|
/_ /; (getall:tree %h1 ~) /elem/
|
|
==
|
|
!:
|
|
::::
|
|
::
|
|
^- (map path marl)
|
|
=- [[/ (zing -)] ~ ~]
|
|
^- (list marl)
|
|
[tip (turn (~(tap by sub)) tail)]
|