fork download
  1. positivoNegativo :: Int -> String
  2. positivoNegativo a
  3. | a > 0 = "positivo"
  4. | a < 0 = "negativo"
  5. | otherwise = "neutro"
  6.  
  7. main = do
  8. print( positivoNegativo 2 )
Success #stdin #stdout 0s 4648KB
stdin
Standard input is empty
stdout
"positivo"