Return to t-bitops.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / libtest

BSD 4.3

link "../ilib/bitops"

procedure main()
   while b1 := bitstring(read()) do {
      b2 := bitstring(read()) | break
      write(decimal(b1))
      write(decimal(b2))
      write("and=",and(b1,b2))
      write("not1=",neg(b1))
      write("not2=",not(b2))
      write("or=",or(b1,b2))
      write("exor=",exor(b1,b2))
      }
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.