🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.modula2
Article #1622

Re: Binary operations in Modula-2

#1622
From: Larry M. Jordan
Date: Mon, 17 Dec 1990 21:47
9 lines
823 bytes
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
Technical Details
Message-ID: <94762@aerospace.AERO.ORG>
Path: arc1-ca.pugleaf.net!utzoo!attcan!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!elroy.jpl.nasa.gov!aero!aerospace.aero.org!jordan
References: <1990Dec13.213402.16572@iesd.auc.dk> <94575@aerospace.AERO.ORG>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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