import Data.Char
import Data.List

data Archivo = Archivo { nombre :: String, contenido :: String } deriving (Show, Eq)

unTpGrupal :: Archivo

unTpGrupal = Archivo "tpGrupal.hs" "listaLarga :: [a] -> Bool \n listaLarga = (>9) . length"





tamanioArchivo contenido1 = (length contenido1)*8                                   -- Punto 1

tamArchi = tamanioArchivo.contenido

archivoVacio contenido1 = (tamanioArchivo contenido1) == 0                          -- Punto 2

archiVacio = archivoVacio.contenido

esIgual char = char == '\n'                                                         -- Punto 3

contadorLineas contenido1 = length(filter esIgual contenido1)+1

contLineas = contadorLineas.contenido

lineasSeparadas =lines.contenido                                                    -- Punto 4 incompleto


= filter isSpace lineasSeparadas

extensionHs nombre1 = (drop (length(nombre1)-3) nombre1) == ".hs"                   -- Punto 5

extHs = extensionHs.nombre
{-
renombrar (Archivo nombre contenido) otronombre = (Archivo otronombre contenido)    -- Punto 6