/LambdaConf/src/Funcoes.hs
Haskell | 17 lines | 11 code | 5 blank | 1 comment | 0 complexity | 025bdef530a1f853d0b123da86a22feb MD5 | raw file
1 2module Funcoes where 3 4import Char 5 6-- fun??es adcinadas por Marcio Alves 7ask :: String -> IO String 8ask question = do putStr question 9 getLine 10 11askC :: String -> IO Char 12askC question = do putStr question 13 getChar 14 15toMaiuscula :: String -> String 16toMaiuscula [] = [] 17toMaiuscula (x:xs) = (toUpper x) : toMaiuscula xs