RosettaCodeData/Task/Symmetric-difference/Bracmat/symmetric-difference-1.bracmat

17 lines
286 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
(SymmetricDifference=
A B x symdiff
. !arg:(?A.?B)
& :?symdiff
& ( !A !B
: ?
( %@?x
& ( !A:? !x ?&!B:? !x ?
| !symdiff:? !x ?
| !symdiff !x:?symdiff
)
& ~
)
?
| !symdiff
));