Consertos finais e makefile

Geração do compilado, conserto de problemas nos indices aleatórios e de buffering output.

Author: LBBassani

.gitignore

@@ -22,4 +22,5 @@ cabal.project.local~
 .HTF/
 .ghc.environment.*
 
-testes
+testes
+main

DataHandler.hs

@@ -24,7 +24,7 @@ base_treino_teste regs percent seed = (base_treino, base_teste)
                                     where
                                         base_treino = [ regs!!x | x <- drop n aleatorios]
                                         base_teste = [ regs!!x | x <- take n aleatorios]
-                                        aleatorios = randomList tamanho seed (tamanho)
+                                        aleatorios = randomList tamanho seed (tamanho - 1)
                                         n =  truncate $ fromIntegral(tamanho*percent)/100.0
                                         tamanho = length regs
 

main.hs

@@ -4,6 +4,8 @@ import CentroidClassifier
 import NearestNeighbor
 import ClassifierAnalysis
 import Text.Printf
+import System.IO
+
 
 {-
     Primeiro trabalho computacional de Programação Funcional em Haskell. Realiza o treinamento de dois classificadores
@@ -12,7 +14,9 @@ import Text.Printf
 -}
 
 main :: IO ()
-main = do   --leitura dos parametros de entrada
+main = do   -- Impedir buffering para escrever todas as mensagens na tela
+            hSetBuffering stdout NoBuffering
+            --leitura dos parametros de entrada
             putStr("Forneca o nome do arquivo de entrada: ")
             entrada <- getLine
             putStr("Forneca o nome do arquivo de saida: ")

makefile

@@ -0,0 +1,2 @@
+all: main.hs
+	ghc -no-keep-hi-files -no-keep-o-files main.hs