home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / modula2 / 1733 < prev    next >
Encoding:
Internet Message Format  |  1993-01-24  |  811 b 
  1. Path: sparky!uunet!mcsun!Germany.EU.net!news.netmbx.de!mailgzrz.TU-Berlin.DE!math.fu-berlin.de!ira.uka.de!sol.ctr.columbia.edu!spool.mu.edu!uwm.edu!ogicse!psgrain!m2xenix!agora!robart
  2. From: robart@agora.rain.com (Joe Bob)
  3. Newsgroups: comp.lang.modula2
  4. Subject: Re: pascal code to modula
  5. Message-ID: <C1D7p6.Bo7@agora.rain.com>
  6. Date: 24 Jan 93 15:43:53 GMT
  7. Article-I.D.: agora.C1D7p6.Bo7
  8. References: <8267@kielo.uta.fi> <1993Jan22.163533.8577@psg.com>
  9. Distribution: world
  10. Organization: a gora
  11. Lines: 13
  12.  
  13. In article <1993Jan22.163533.8577@psg.com> randy@psg.com (Randy Bush) writes:
  14. >>    i,j: integer ;
  15. >>    i := i or j ;
  16. >
  17. >To do this in Modula-2, one would do something like
  18. >
  19. >    VAR i, j : INTEGER;
  20. >    i := INTEGER ( BITSET(i) OR BITSET(j) )
  21.  
  22.  
  23.   I think you mean
  24.  
  25.     i := INTEGER(BITSET(i) + BITSET(j))
  26.