main :: IO ()
main = do
  trainingSet <- slurpFile "trainingsample.csv"
  validationSample <- slurpFile "validationsample.csv"
  let isCorrect x = classify trainingSet (_pixels x) == _label x
      numCorrect = V.length $ V.filter isCorrect validationSample
      flt = fromIntegral
      percentCorrect = flt numCorrect / flt (V.length validationSample) * 100.0
  putStrLn $ "Percentage correct: " ++ show percentCorrect
main :: IO ()
main = do
  trainingSet <- slurpFile "trainingsample.csv"
  validationSample <- slurpFile "validationsample.csv"
  let isCorrect x = classify trainingSet (_pixels x) == _label x
      numCorrect = V.length $ V.filter isCorrect validationSample
      flt = fromIntegral
      percentCorrect = flt numCorrect / flt (V.length validationSample) * 100.0
  putStrLn $ "Percentage correct: " ++ show percentCorrect
main = do
  trainingSet <- slurpFile "trainingsample.csv"
  validationSample <- slurpFile "validationsample.csv"
  let isCorrect x = classify trainingSet (_pixels x) == _label x
      numCorrect = V.length $ V.filter isCorrect validationSample
      flt = fromIntegral
      percentCorrect = flt numCorrect / flt (V.length validationSample) * 100.0
  putStrLn $ "Percentage correct: " ++ show percentCorrect