bits Convertir à Int8 Haskell

Question

Essayer de convertir une liste de bits (0,1) dans un Int8 ou quelque chose de similaire pour que je ne suis pas en train de perdre un octet de ByteString sur seulement 1 bit

Par exemple, je peux avoir une liste comme [0,1,0,0,0,1,1,1,1,0], qui en ByteString représente chacun de ceux-ci comme un octet au lieu d'un bit.

Answer 1

Une solution serait de plier un peu plus de la liste:

import Data.Bits (Bits, shiftL, (.|.)) 

pack :: (Num b, Foldable t, Bits b) => t b -> b 
pack a = foldl go 0 a 
    where go acc i = (acc `shiftL` 1) .|. i 

et vous obtenez:

\> pack [0,1,0,0,0,1,1,1,1,0] 
286