巡回冗長検査(CRC-32)のHaskellでのゴルフ的コード - Qiitamodule CRC (check, calc) where import Control.Applicative ((<$>)) import Control.Arrow (first, (&&&)) import Data.Array (Array, (!), listArray) import Data.Bits (complement, xor, shiftR, testBit) import Data.Bool (bool) import Data.Word (Word8, Word32) import qualified Data.ByteString as BS (ByteString, foldl') check :: BS.ByteString -> Bool check = (== 0x2144df1c) . calc calc :: BS.ByteString ->
