aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Four-bit-adder/Haskell/four-bit-adder-1.hs Normal file
View file

@ -0,0 +1,7 @@
import Control.Arrow
bor, band :: Int -> Int -> Int
bor = max
band = min
bnot :: Int -> Int
bnot = (1-)

3
Task/Four-bit-adder/Haskell/four-bit-adder-2.hs Normal file
View file

@ -0,0 +1,3 @@
nand, xor :: Int -> Int -> Int
nand = (bnot.).band
xor a b = uncurry nand. (nand a &&& nand b) $ nand a b

4
Task/Four-bit-adder/Haskell/four-bit-adder-3.hs Normal file
View file

@ -0,0 +1,4 @@
halfAdder = uncurry band &&& uncurry xor
fullAdder (c, a, b) = (\(cy,s) -> first (bor cy) $ halfAdder (b, s)) $ halfAdder (c, a)
adder4 as = foldr (\(f,a,b) (cy,bs) -> second(:bs) $ f (cy,a,b)) (0,[]). zip3 (replicate 4 fullAdder) as

2
Task/Four-bit-adder/Haskell/four-bit-adder-4.hs Normal file
View file

@ -0,0 +1,2 @@
*Main> adder4 [1,0,1,0] [1,1,1,1]
(1,[1,0,0,1])