on 492ae2f help sign in
31 lines 576 B history raw
1### `++jug`
3mold generator. A `++jug` is a `++map` of `++set`s.
5Source
6------
8 ++ jug |*({a/$-(* *) b/$-(* *)} (map a (set b))) :: map of sets
11Examples
12--------
14See also: `++ju`, `++by`, `++map`, `++set`
16 ~zod/try=> =a (sa (limo [1 2 ~]))
17 ~zod/try=> a
18 {1 2}
19 ~zod/try=> =b (sa (limo [3 4 ~]))
20 ~zod/try=> b
21 {4 3}
22 ~zod/try=> =c (mo (limo [[%a a] [%b b] ~]))
23 ~zod/try=> c
24 {[p=%a q={1 2}] [p=%b q={4 3}]}
25 ~zod/try=> (~(get ju c) %b)
26 {4 3}
27 ~zod/try=> (~(put ju c) [%b 5])
28 {[p=%a q={1 2}] [p=%b q={5 4 3}]}
31***