hw-bits-0.0.0.9: src/HaskellWorks/Data/Bits/AllExcess/AllExcess1.hs

{-# LANGUAGE FlexibleInstances #-}

module HaskellWorks.Data.Bits.AllExcess.AllExcess1 where

import           Data.Word
import qualified Data.Vector.Storable             as DVS
import           HaskellWorks.Data.Bits.PopCount.PopCount0
import           HaskellWorks.Data.Bits.PopCount.PopCount1

-- TODO Optimise these instances
class AllExcess1 a where
  allExcess1 :: a -> Int

instance AllExcess1 Word8 where
  allExcess1 w = fromIntegral (popCount1 w) - fromIntegral (popCount0 w)
  {-# INLINE allExcess1 #-}

instance AllExcess1 Word16 where
  allExcess1 w = fromIntegral (popCount1 w) - fromIntegral (popCount0 w)
  {-# INLINE allExcess1 #-}

instance AllExcess1 Word32 where
  allExcess1 w = fromIntegral (popCount1 w) - fromIntegral (popCount0 w)
  {-# INLINE allExcess1 #-}

instance AllExcess1 Word64 where
  allExcess1 w = fromIntegral (popCount1 w) - fromIntegral (popCount0 w)
  {-# INLINE allExcess1 #-}

instance AllExcess1 (DVS.Vector Word8) where
  allExcess1 w = fromIntegral (popCount1 w) - fromIntegral (popCount0 w)
  {-# INLINE allExcess1 #-}

instance AllExcess1 (DVS.Vector Word16) where
  allExcess1 w = fromIntegral (popCount1 w) - fromIntegral (popCount0 w)
  {-# INLINE allExcess1 #-}

instance AllExcess1 (DVS.Vector Word32) where
  allExcess1 w = fromIntegral (popCount1 w) - fromIntegral (popCount0 w)
  {-# INLINE allExcess1 #-}

instance AllExcess1 (DVS.Vector Word64) where
  allExcess1 w = fromIntegral (popCount1 w) - fromIntegral (popCount0 w)
  {-# INLINE allExcess1 #-}