Truth table: Difference between revisions

m
Line 891:
#define-a :: mov
 
#defn OP<=>(_X_,_Y_) #RAND; _V1_#RNDV_=0;_V2_#RNDV_=0;#ATOM#CMPLX;cpy(_V1_#RNDV_);\
#ATOM#CMPLX;cpy(_V2__V1_#RNDV_);and;{_V1_#RNDV_}not;{_V2_#RNDV_}not;and;or; %RAND;\
#ATOM#CMPLX;cpy(_V2_#RNDV_);and;{_V1_#RNDV_}not;\
{_V2_#RNDV_}not;and;or; %RAND;
#defn OP=>(_X_,_Y_) #ATOM#CMPLX;not;#ATOM#CMPLX;or;
#defn OP&(_X_,_Y_) #ATOM#CMPLX;#ATOM#CMPLX;and;
543

edits