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

import Control.Arrow
import Data.List (mapAccumR)

bor, band :: Int -> Int -> Int
bor = max
band = min
bnot :: Int -> Int
bnot = (1-)
A-M baby 2013-04-10 21:29:02 -07:00			`import Control.Arrow`
update 2013-06-05 21:47:54 +00:00			`import Data.List (mapAccumR)`
A-M baby 2013-04-10 21:29:02 -07:00
			`bor, band :: Int -> Int -> Int`
			`bor = max`
			`band = min`
			`bnot :: Int -> Int`
			`bnot = (1-)`