blob: 03d6db330e3641cfbac1415c3cb614a837012449 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
-- This module describes utility functions.
module Utils where
import Data.Bits
-------------------------------------------------------------------------------
-- Bitwork
toBit :: Bool -> Int
toBit True = 1
toBit False = 0
toBits :: Bits a => a -> [Int] -> [Int]
toBits x r = map (toBit . testBit x) r
fromBits :: [Int] -> Int
fromBits = foldl (\a b -> 2 * a + b) 0 . reverse
extractBits :: Bits a => a -> [Int] -> Int
extractBits x r = fromBits $ toBits x r
|