RosettaCodeData/Task/Four-bit-adder/Haskell/four-bit-adder-2.hs
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07: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