PageRenderTime 59ms CodeModel.GetById 49ms app.highlight 1ms RepoModel.GetById 7ms app.codeStats 0ms

/LambdaConf/src/Funcoes.hs

http://lambdaconf.googlecode.com/
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