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

3 lines
48 B
Haskell

*Main> adder4 [1,0,1,0] [1,1,1,1]
(1,[1,0,0,1])