intersection

Function: intersection { a b -> c }

file: 100-C-lists.t
package: muf
status: alpha

Does just what you expect:

root:
[ 'a' 'b' 'c' | ]set   [ 'b' 'c' 'd' | ]set   intersection   keys[
root: [ 'b' 'c' |
]pop
root: 
[ "a" 'a' "b" 'b' "c" 'c' | ]index   [ "b" 'b' "c" 'c' "d" 'd' | ]index   intersection   ls
"b"	'b'
"c"	'c'
root: 

Go to the first, previous, next, last section, table of contents.