RosettaCodeData/Task/Four-bit-adder/Haskell/four-bit-adder-2.hs
2023-07-01 13:44:08 -04:00

3 lines
106 B
Haskell

nand, xor :: Int -> Int -> Int
nand = (bnot.).band
xor a b = uncurry nand. (nand a &&& nand b) $ nand a b