ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

zuse: +tab marginal code cleanup to reduce use of lark

Browse Source
This commit is contained in:
Logan Allen 2021-05-05 12:59:40 -05:00
parent 947b9ec75c
commit 4073cf9d76
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
pkg/arvo/sys/zuse.hoon
View File

@ -5405,20 +5405,20 @@
|= [a=(tree item) b=(unit key) c=@]
^- (list item)
|^
(flop -:(tabulate (del-span a b) b c))
(flop e:(tabulate (del-span a b) b c))
::
++ tabulate
|= [a=(tree item) b=(unit key) c=@]
^- [(list item) @]
^- [d=@ e=(list item)]
?: ?&(?=(~ b) =(c 0))
[~ 0]
=| f=[d=(list item) e=@]
|- ^- [(list item) @]
?: ?|(?=(~ a) =(e.f c)) f
[0 ~]
=| f=[d=@ e=(list item)]
|- ^- [d=@ e=(list item)]
?: ?|(?=(~ a) =(d.f c)) f
=. f $(a l.a)
?: =(e.f c) f
=. f [[n.a d.f] +(e.f)]
?: =(e.f c) f
?: =(d.f c) f
=. f [+(d.f) [n.a e.f]]
?: =(d.f c) f
$(a r.a)
::
++ del-span
@ -5426,14 +5426,10 @@
^- (tree item)
?~ a a
?~ b a
:: found key
?: =(key.n.a u.b)
(nip a(l ~))
:: traverse to find key
?: (compare key.n.a u.b)
:: found key to the left of start
$(a (nip a(l ~)))
:: found key to the right of start
a(l $(a l.a))
--
:: +tap: convert to list, smallest to largest