fork download
  1. import Data.Bits
  2.  
  3. xnor :: Int -> Int -> Int
  4. xnor a b = (a .&. b) .|. ((complement a) .&. (complement b))
  5.  
  6. main = do print (xnor 5 7)
Success #stdin #stdout 0s 6216KB
stdin
Standard input is empty
stdout
-3