fixed hamming code attribute names
This commit is contained in:
1 parent
36bc32a688
commit
633a1b7b24
3 files changed
+93
-88
No files matched your search
@@ -65,99 +65,99 @@ hammingW'Spec = describe "hammingW'" $ mapM_
|
||||
] where
|
||||
mkState c = initialState & hammingCode .~ c
|
||||
allZero =
|
||||
[ [ ( mempty, ' ' )
|
||||
, ( marginAttr, '0' )
|
||||
, ( marginAttr, '1' )
|
||||
, ( marginAttr, '2' )
|
||||
, ( marginAttr, '3' )
|
||||
[ [ ( hammingAttr, ' ' )
|
||||
, ( marginAttr, '0' )
|
||||
, ( marginAttr, '1' )
|
||||
, ( marginAttr, '2' )
|
||||
, ( marginAttr, '3' )
|
||||
]
|
||||
, [ ( marginAttr, '0' )
|
||||
, ( zeroAttr, '0' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( mempty, '0' )
|
||||
, [ ( marginAttr, '0' )
|
||||
, ( zeroAttr, '0' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
]
|
||||
, [ ( marginAttr, '1' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( mempty, '0' )
|
||||
, ( mempty, '0' )
|
||||
, ( mempty, '0' )
|
||||
, [ ( marginAttr, '1' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
]
|
||||
, [ ( marginAttr, '2' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( mempty, '0' )
|
||||
, ( mempty, '0' )
|
||||
, ( mempty, '0' )
|
||||
, [ ( marginAttr, '2' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
]
|
||||
, [ ( marginAttr, '3' )
|
||||
, ( mempty, '0' )
|
||||
, ( mempty, '0' )
|
||||
, ( mempty, '0' )
|
||||
, ( mempty, '0' )
|
||||
, [ ( marginAttr, '3' )
|
||||
, ( bodyAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
]
|
||||
]
|
||||
allOne =
|
||||
[ [ ( mempty, ' ' )
|
||||
, ( marginAttr, '0' )
|
||||
, ( marginAttr, '1' )
|
||||
, ( marginAttr, '2' )
|
||||
, ( marginAttr, '3' )
|
||||
[ [ ( hammingAttr, ' ' )
|
||||
, ( marginAttr, '0' )
|
||||
, ( marginAttr, '1' )
|
||||
, ( marginAttr, '2' )
|
||||
, ( marginAttr, '3' )
|
||||
]
|
||||
, [ ( marginAttr, '0' )
|
||||
, ( zeroAttr, '1' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( mempty, '1' )
|
||||
, [ ( marginAttr, '0' )
|
||||
, ( zeroAttr, '1' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( checkAttr , '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
]
|
||||
, [ ( marginAttr, '1' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '1' )
|
||||
, [ ( marginAttr, '1' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
]
|
||||
, [ ( marginAttr, '2' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '1' )
|
||||
, [ ( marginAttr, '2' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
]
|
||||
, [ ( marginAttr, '3' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '1' )
|
||||
, [ ( marginAttr, '3' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
]
|
||||
]
|
||||
arbitrary =
|
||||
[ [ ( mempty, ' ' )
|
||||
, ( marginAttr, '0' )
|
||||
, ( marginAttr, '1' )
|
||||
, ( marginAttr, '2' )
|
||||
, ( marginAttr, '3' )
|
||||
[ [ ( hammingAttr, ' ' )
|
||||
, ( marginAttr, '0' )
|
||||
, ( marginAttr, '1' )
|
||||
, ( marginAttr, '2' )
|
||||
, ( marginAttr, '3' )
|
||||
]
|
||||
, [ ( marginAttr, '0' )
|
||||
, ( zeroAttr, '0' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( mempty, '1' )
|
||||
, [ ( marginAttr, '0' )
|
||||
, ( zeroAttr, '0' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( bodyAttr, '1' )
|
||||
]
|
||||
, [ ( marginAttr, '1' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( mempty, '0' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '0' )
|
||||
, [ ( marginAttr, '1' )
|
||||
, ( checkAttr, '1' )
|
||||
, ( bodyAttr, '0' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '0' )
|
||||
]
|
||||
, [ ( marginAttr, '2' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( mempty, '0' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '1' )
|
||||
, [ ( marginAttr, '2' )
|
||||
, ( checkAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
]
|
||||
, [ ( marginAttr, '3' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '1' )
|
||||
, ( mempty, '0' )
|
||||
, ( mempty, '0' )
|
||||
, [ ( marginAttr, '3' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '1' )
|
||||
, ( bodyAttr, '0' )
|
||||
, ( bodyAttr, '0' )
|
||||
]
|
||||
]
|
||||
|
||||
|
||||
Reference in new issue
Block a user