Four bit adder: Difference between revisions
Content added Content deleted
m (deleting excess spaces) |
|||
| Line 720: | Line 720: | ||
bnot = (1-)</lang> |
bnot = (1-)</lang> |
||
Gates built with basic ones: |
Gates built with basic ones: |
||
<lang |
<lang haskell>nand, xor :: Int -> Int -> Int |
||
nand = (bnot.).band |
nand = (bnot.).band |
||
xor a b = uncurry nand. (nand a &&& nand b) $ nand a b</lang> |
xor a b = uncurry nand. (nand a &&& nand b) $ nand a b</lang> |
||