RosettaCodeData/Task/Set/J/set-1.j

6 lines
88 B
Plaintext

union=: ~.@,
intersection=: [ -. -.
difference=: -.
subset=: *./@e.
equality=: -:&(/:~)