A-M baby

Task/Bitwise-operations/Icon/bitwise-operations.icon

@@ -0,0 +1,21 @@
+procedure main()
+bitdemo(255,2)
+bitdemo(-15,3)
+end
+
+procedure bitdemo(i,i2)
+   write()
+   demowrite("i",i)
+   demowrite("i2",i2)
+   demowrite("complement i",icom(i))
+   demowrite("i or i2",ior(i,i2))
+   demowrite("i and i2",iand(i,i2))
+   demowrite("i xor i2",ixor(i,i2))
+   demowrite("i shift " || i2,ishift(i,i2))
+   demowrite("i shift -" || i2,ishift(i,-i2))
+   return
+end
+
+procedure demowrite(vs,v)
+return write(vs, ": ", v, " = ", int2bit(v),"b")
+end