urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-21 01:41:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

zuse: respond to joe's requests to remove mk-item and add fast hint for ordered-map

Browse Source
This commit is contained in:
Logan Allen 2021-04-20 12:56:24 -05:00
parent 9247fc247c
commit f0ba5afe1c
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5072,10 +5072,6 @@
=/ b ;;((tree [key=key val=value]) a) =/ b ;;((tree [key=key val=value]) a)
?> (apt:((ordered-map key value) ord) b) ?> (apt:((ordered-map key value) ord) b)
b b
::
:: $mk-item: constructor for +ordered-map item type
::
++ mk-item |$ [key val] [key=key val=val]
:: +ordered-map: treap with user-specified horizontal order :: +ordered-map: treap with user-specified horizontal order
:: ::
:: Conceptually smaller items go on the left, so the item with the :: Conceptually smaller items go on the left, so the item with the
@ -5088,11 +5084,12 @@
++ ordered-map ++ ordered-map
|* [key=mold val=mold] |* [key=mold val=mold]
=> |% => |%
+$ item (mk-item key val) +$ item [key=key val=val]
-- --
:: +compare: item comparator for horizontal order :: +compare: item comparator for horizontal order
:: ::
|= compare=$-([key key] ?) |= compare=$-([key key] ?)
~% %ordered-map ..part ~
|% |%
:: +all: apply logical AND boolean test on all values :: +all: apply logical AND boolean test on all values
:: ::
@ -5286,7 +5283,6 @@
|- |-
?~ a a ?~ a a
[n=[key.n.a (b val.n.a)] l=$(a l.a) r=$(a r.a)] [n=[key.n.a (b val.n.a)] l=$(a l.a) r=$(a r.a)]
::
:: +subset: take a range excluding start and/or end and all elements :: +subset: take a range excluding start and/or end and all elements
:: outside the range :: outside the range
:: ::