#!/usr/local/bin/bc -l logic.bc ### Logic-ANDM.BC ### Attempts to create bitwise AND multiplications that do not result in zero # NB: none of these are equivalent to nim multiplication # Most functions here are asymmetric. f(x,y) does not necessarily equal f(y,x) # Perform bitwise logical AND 'multiplication' of x and y ??? define x1andm(x,y){ return xor(xorm(x,y),orm(x,y)) } define x2andm(x,y){ return xorm(xor(x,y),or(x,y)) } define andm(x,y){ auto os,s,z,hy; os=scale;scale=0 x/=1;y/=1;s=1;if(x<0){x=-x;s=-s};if(y<0){y=-y;s=-s} if(x