implemented isValid for Word16

2024-06-30 21:11:38 -04:00
parent af26fcedd8
commit c494a25587
2 changed files with 20 additions and 3 deletions
--- a/src/Hamming.hs
+++ b/src/Hamming.hs
@@ -47,7 +47,14 @@ instance Hamming Word16 where
    , ( 0x0001, 0xfffe )
    ]

-  isValid = undefined
+  isValid code = not $ any (\mask -> oddParity $ code .&. mask)
+    [ 0xaaaa
+    , 0xcccc
+    , 0xf0f0
+    , 0xff00
+    , 0xffff
+    ]
+
  correctErrors = undefined

 setCheckBit :: (Num a, Bits a) => a -> (a, a) -> a