5 respostas a este tópico

[Mig_coiso]

Boas,

Alguem me consegue ajudar com este pedaço de código que me devolve o seguinte erro,

hs:13:28:
    The last statement in a 'do' construct must be an expression
Failed, modules loaded: none.



Código (Haskell):

bingo :: IO()
bingo = do l <- acumulaValores []
           putStr (show l)

acumulaValores :: [Int]->IO[Int]
acumulaValores ns = if length ns == 90 then return ns
                    else do a <- randomRIO ((1::Int),(90::Int))
                                  let nl =if (elem a ns )then ns
                                         else a:ns
                                  in acumulaValores nl

Agradeço desde já a atenção

[Baderous]

Eu costumo usar a notação com chavetas e ponto e vírgula, para ajudar a indentar:

Código (Haskell):

bingo :: IO()
bingo = do { l <- acumulaValores [];
             putStr (show l)
           }

acumulaValores :: [Int]->IO[Int]
acumulaValores ns = if length ns == 90 then return ns
                    else do { a <- randomRIO ((1::Int),(90::Int));
                              let nl = if (elem a ns) then ns else a:ns;
                              in acumulaValores nl
                            }

[Betovsky]

Se estiver a ver bem:
Código (Haskell):

acumulaValores ns | length ns == 90 = return ns
                  | otherwise = do a <- randomRIO ((1::Int),(90::Int))
                                  let nl =if (elem a ns ) then ns else a:ns
                                  acumulaValores nl

Dentro da notação "do" só escreves "let".
Neste caso a função acumulaValores já retorna um IO, caso contrário teria que colocar um "return".

[Mig_coiso]

Código (Haskell):

bingo :: IO()
bingo = do { l <- acumulaValores []
             putStr (show l)
           }


acumulaValores :: [Int]->IO[Int]
acumulaValores ns | length ns == 90 = return ns
                  | otherwise = do{ a <- randomRIO ((1::Int),(90::Int))
                                  let nl =if (elem a ns ) then ns else a:ns
                                  acumulaValores nl
                                 }

Continua a devolver o mesmo erro ... o pior é que nao consigo encontrar nada sobre este erro

[Betovsky]

Bah! Obrigaste a abrir o ghci

Isto compila e funciona.
Código (Haskell):

import Random

bingo :: IO ()
bingo = acumulaValores [] >>= print


acumulaValores :: [Int]->IO[Int]
acumulaValores ns | length ns == 90 = return ns
                  | otherwise = do
                       a <- randomRIO ((1::Int),(90::Int))
                       let nl = if (elem a ns ) then ns else a:ns
                       acumulaValores nl

[Mig_coiso]

Nice!

Muito Obrigado.