Anonymous user
Four bit adder: Difference between revisions
m
→{{header|Haskell}}
Line 729:
adder4 as = foldr (\(f,a,b) (cy,bs) -> second(:bs) $ f (cy,a,b)) (0,[]). zip3 (replicate 4 fullAdder) as</lang>
Example using
<lang haskell>*Main> adder4 [1,0,1,0] [1,1,1,1]
(1,[1,0,0,1])</lang>
| |||