git.iko.soy/rowtype-yoga/purescript-backend-optimizer
on main help sign in
24 lines 400 B history raw
1module Snapshot.PrimOpIntBit01 where
3import Data.Int.Bits
5test1 :: Int -> Int -> Int
6test1 a b = a .&. b
8test2 :: Int -> Int -> Int
9test2 a b = a .|. b
11test3 :: Int -> Int -> Int
12test3 a b = a `shl` b
14test4 :: Int -> Int -> Int
15test4 a b = a `shr` b
17test5 :: Int -> Int -> Int
18test5 a b = a `xor` b
20test6 :: Int -> Int -> Int
21test6 a b = a `zshr` b
23test7 :: Int -> Int
24test7 a = complement a