diff options
author | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-02 21:50:13 +0300 |
---|---|---|
committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-02 21:50:13 +0300 |
commit | 1dfa268bb0cca6cf6fb0ffbfe331d84329aea534 (patch) | |
tree | 2ef255d22b82a45004b726e13c4281e031d27064 /src/Utils.hs | |
parent | de08c2e979b838e3142a6a380a6edc76ed86cc15 (diff) | |
download | suem-1dfa268bb0cca6cf6fb0ffbfe331d84329aea534.tar suem-1dfa268bb0cca6cf6fb0ffbfe331d84329aea534.tar.xz suem-1dfa268bb0cca6cf6fb0ffbfe331d84329aea534.zip |
fix
Diffstat (limited to 'src/Utils.hs')
-rw-r--r-- | src/Utils.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Utils.hs b/src/Utils.hs index 81c6e8a..1d908e1 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -12,14 +12,14 @@ toBit :: Bool -> Int toBit True = 1 toBit False = 0 -toBits :: Bits a => a -> [Int] -> [Int] -toBits x r = map (toBit . testBit x) r +toBits :: FiniteBits a => a -> [Int] +toBits x = reverse $ map (toBit . testBit x) [0..finiteBitSize x - 1] fromBits :: [Int] -> Int -fromBits = foldl (\a b -> 2 * a + b) 0 . reverse +fromBits = foldl (\a b -> 2 * a + b) 0 -extractBits :: Bits a => a -> [Int] -> Int -extractBits x r = fromBits $ toBits x r +extractBits :: FiniteBits a => a -> [Int] -> Int +extractBits x r = fromBits $ map (\i -> toBits x !! i) r ------------------------------------------------------------------------------- |