Ciencias de la Computación FAMAF - algo2:main:2012
https://wiki.cs.famaf.unc.edu.ar/
2026-04-26T21:42:40+00:00Ciencias de la Computación FAMAF
https://wiki.cs.famaf.unc.edu.ar/
https://wiki.cs.famaf.unc.edu.ar/_media/wiki:dokuwiki.svgtext/html2025-11-15T16:47:34+00:00Anonymous (anonymous@undisclosed.example.com)cola
https://wiki.cs.famaf.unc.edu.ar/algo2:main:2012:cola?rev=1763225254&do=diff
import Array
data Cola e = Vacia
| Encolar (Cola e) e
deriving Show
es_vacia :: Cola e -> Bool
primero :: Cola e -> e -- se aplica a colas no vacías
decolar :: Cola e -> Cola e -- se aplica a colas no vacías
es_vacia Vacia = True
es_vacia (Encolar q e) = False
primero (Encolar Vacia e) = e
primero (Encolar q e) = primero q
decolar (Encolar Vacia e) = Vacia
decolar (Encolar q e) = Encolar (decolar q) e
-- Ejemplos
q0 = Vacia :: Cola Int
q1 = Encolar q0 1
q…text/html2025-11-15T16:47:34+00:00Anonymous (anonymous@undisclosed.example.com)contador
https://wiki.cs.famaf.unc.edu.ar/algo2:main:2012:contador?rev=1763225254&do=diff
data Contador = Cero
| Incrementar Contador
deriving Show
es_cero :: Contador -> Bool
decrementar :: Contador -> Contador -- se aplica a contadores no nulos
es_cero Cero = True
es_cero (Incrementar c) = False
decrementar (Incrementar c) = c
-- Ejemplos
contadores :: [Contador]
contadores = Cero : map Incrementar contadores
cero = Cero
uno = Incrementar cero
dos = Incrementar uno
tres = Incrementar dos
cuatro = Incrementar tres
-- Prototipo del chequeador de ba…text/html2025-11-15T16:47:34+00:00Anonymous (anonymous@undisclosed.example.com)grupos
https://wiki.cs.famaf.unc.edu.ar/algo2:main:2012:grupos?rev=1763225254&do=diff
Grupos del laboratorio
Nombre Grupo Ayudante PASTORE¸ PABLO ANDRES 1 Natalia ARGUELLO¸ ANGEL RUBEN 1 Natalia MUNINI, HEBE LAURA 2 Matías SCHMIDT¸ MARIANO 2 Matías ROLDAN¸ MIGUEL ANGEL 3 Leonardo STURLA RUBIO¸ EZEQUIEL SANTIAGOtext/html2025-11-15T16:47:34+00:00Anonymous (anonymous@undisclosed.example.com)pila
https://wiki.cs.famaf.unc.edu.ar/algo2:main:2012:pila?rev=1763225254&do=diff
data Pila e = Vacia
| Apilar e (Pila e)
deriving Show
es_vacia :: Pila e -> Bool
primero :: Pila e -> e -- se aplica a pilas no vacías
desapilar :: Pila e -> Pila e -- se aplica a pilas no vacías
es_vacia Vacia = True
es_vacia (Apilar e p) = False
primero (Apilar e p) = e
desapilar (Apilar e p) = p
-- Ejemplos
p0 = Vacia :: Pila Char
p1 = Apilar ']' p0
p2 = Apilar ')' p1
p3 = Apilar '}' p2
p4 = Apilar '>' p3
balanceo :: String -> Bool
balanceo as = balan…