Path: utzoo!attcan!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!elroy.jpl.nasa.gov!aero!aerospace.aero.org!jordan
From: jordan@aerospace.aero.org (Larry M. Jordan)
Newsgroups: comp.lang.modula2
Subject: Re: Binary operations in Modula-2
Keywords: Binary
Message-ID: <94762@aerospace.AERO.ORG>
Date: 17 Dec 90 21:47:58 GMT
References: <1990Dec13.213402.16572@iesd.auc.dk> <94575@aerospace.AERO.ORG>
Sender: news@aerospace.aero.org
Reply-To: jordan@antares.UUCP (Larry M. Jordan)
Organization: The Aerospace Corporation, El Segundo, CA
Lines: 9

Simplification.  I had implemented Xor in terms of And,Not and Or.
The 'semetric set difference' operator [/] on BITSETs IS exclusive or:

PROCEDURE Xor(a,b: CARDINAL): CARDINAL;
BEGIN
  RETURN CARDINAL(BITSET(a) / BITSET(b))
END Xor;

-- Larry