8 lines
134 B
Haskell
8 lines
134 B
Haskell
import Control.Arrow
|
|
import Data.List (mapAccumR)
|
|
|
|
bor, band :: Int -> Int -> Int
|
|
bor = max
|
|
band = min
|
|
bnot :: Int -> Int
|
|
bnot = (1-)
|