Underc0de - Hacking y seguridad informática

Programación General => Otros lenguajes => Mensaje iniciado por: JaAViEr en Julio 17, 2011, 03:34:11 am

Título: [Código-Haskell] Típico Strlen - JaAViEr
Publicado por: JaAViEr en Julio 17, 2011, 03:34:11 am
Averiguando sobre haskell, me topé con un code STRLEN
Código: Haskell
  1. strlen :: String -> Int
  2. main = do
  3.   putStrLn("String:")
  4.   linea <- getLine
  5.   let valor=strlen linea
  6.   putStrLn("El String "++linea++" tiene "++show(valor)++" Caracteres")
  7.  
  8. strlen inputx=do
  9.   let value=sum[1|_ <- inputx]
  10.   value
  11.  
  12.  
Me di el ratito de disminuirlo
Código: Haskell
  1. main = do
  2.   putStrLn("String:")
  3.   linea <- getLine
  4.   let valor=sum[1|_<-linea]
  5.   putStrLn("El String "++linea++" tiene "++show(valor)++" Caracteres")
  6.