module GF2test (run) where

import LinearAlgebra.GF2
  ( fromBools
  , gaussianEliminationIndices
  )

run :: IO ()
run = do
    putStrLn "GF2 Gaussian elimination test"

    let rowsBools =
          [ [True, False, True]
          , [False, True, True]
          , [True, True, False]
          , [True, True, True]
          ]

        nCols = length (head rowsBools)
        rowsBits = map fromBools rowsBools

    let maybeIndices = gaussianEliminationIndices nCols rowsBits

    case maybeIndices of
        Nothing   -> putStrLn "No combination found."
        Just idxs -> putStrLn $ "Rows: " ++ show idxs

    putStrLn "GF2 Test Done."