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

applies ept:by (map invariant) in ++map

Browse Source
This commit is contained in:
Joseph Bryan 2016-12-08 13:19:25 -05:00
parent b4564cc237
commit d0e379d572
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sys/hoon.hoon
View File

@ -1598,7 +1598,9 @@
++ jar |*({a/mold b/mold} (map a (list b))) :: map of lists ++ jar |*({a/mold b/mold} (map a (list b))) :: map of lists
++ jug |*({a/mold b/mold} (map a (set b))) :: map of sets ++ jug |*({a/mold b/mold} (map a (set b))) :: map of sets
++ map |* {a/mold b/mold} :: table ++ map |* {a/mold b/mold} :: table
$@($~ {n/{p/a q/b} l/(map a b) r/(map a b)}) :: %+ cork (tree (pair a b)) ::
|= c/(tree (pair a b)) ^+ c ::
?.(~(ept by c) ~ c) ::
++ qeu |* a/mold :: queue ++ qeu |* a/mold :: queue
$@($~ {n/a l/(qeu a) r/(qeu a)}) :: $@($~ {n/a l/(qeu a) r/(qeu a)}) ::
++ set |* a/mold :: set ++ set |* a/mold :: set