Boa noite pessoal. Não estou conseguindo receber uma lista de tuplas e passar para a função IMC, que calcula quantas pessoas estão com o IMC acima de 25.
Alguém poderia me ajudar?
imc :: (RealFloat) a => [(a,a)] -> Int
imc xs = length [x | (peso,altura) <- xs, let x = peso/(altura^2), x > 25]
main::IO ()
main = do
putStrLn "Informe o peso e a altura de cada pessoa-[(Peso,Altura),(Peso,Altura),]:"
calculo <- getLine
putStrLn $ imc (read calculo :: [(Double,Double)])