[Código-Haskell] Típico Strlen - JaAViEr

[JaAViEr]

Averiguando sobre haskell, me topé con un code STRLEN

Código: haskell

strlen :: String -> Int
main = do
  putStrLn("String:")
  linea <- getLine
  let valor=strlen linea
  putStrLn("El String "++linea++" tiene "++show(valor)++" Caracteres")

strlen inputx=do
  let value=sum[1|_ <- inputx]
  value

Me di el ratito de disminuirlo

Código: haskell

main = do
  putStrLn("String:")
  linea <- getLine
  let valor=sum[1|_<-linea]
  putStrLn("El String "++linea++" tiene "++show(valor)++" Caracteres")