@@ -610,6 +610,46 @@ A map.
618+Produces a set of all keys in map `a` that is prepended to set `b`,
619+which is empty by default.
635+ =+ b=`(set _?>(?=(^ a) p.n.a))`~
638+ $(a r.a, b $(a l.a, b (~(put in b) p.n.a)))
644+ > =m (my [['a' 1] ['b' 2] ~])
645+ [n=[p='b' q=2] l={[p='a' q=1]} r={}]
613### `+-mar:by`
653### `+-mar:by`
615Assert and add
655Assert and add
@@ -1056,4 +1096,43 @@ An atom.
1105+Produces a list of all values in map `a` that is prepended to list `b`,
1106+which is empty by default.
1122+ =+ b=`(list _?>(?=(^ a) q.n.a))`~
1125+ $(a r.a, b [q.n.a $(a l.a)])
1131+ > =m (my [['a' 1] ['b' 2] ~])
1132+ [n=[p='b' q=2] l={[p='a' q=1]} r={}]