jlamothe/hamming
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

simplified double bit error test

This commit is contained in:
Jonathan Lamothe 2024-07-06 21:01:17 -04:00
parent 74b26de743
commit 8f6acc6b6b
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
test/Hamming/Word16Spec.hs
View File

@ -80,15 +80,14 @@ singleBitErrors = map
doubleBitErrors :: [(String, Word16, Maybe Word16)] doubleBitErrors :: [(String, Word16, Maybe Word16)]
doubleBitErrors = doubleBitErrors =
[ ( \(bitA, bitB) -> let [ let
mask = (1 `shiftL` bitA) .|. (1 `shiftL` bitB) mask = (1 `shiftL` a) .|. (1 `shiftL` b)
code = withChkBits `xor` mask code = withChkBits `xor` mask
in in
( "bad bits " ++ show bitA ++ " & " ++ show bitB ( "bad bits " ++ show a ++ " & " ++ show b
, code , code
, Nothing , Nothing
) )
) (a, b)
| a <- [0..14] | a <- [0..14]
, b <- [1..15] , b <- [1..15]
, a < b , a < b