RosettaCodeData/Task/Four-bit-adder/Haskell/four-bit-adder-2.hs

mirror of https://github.com/acmeism/RosettaCodeData.git
nand, xor :: Int -> Int -> Int
nand = (bnot.).band
xor a b = uncurry nand. (nand a &&& nand b) $ nand a b
	`nand, xor :: Int -> Int -> Int`
	`nand = (bnot.).band`
	`xor a b = uncurry nand. (nand a &&& nand b) $ nand a b`