clases de un dia

notas

https://docs.google.com/document/d/1UdzwqpqVCVYfwTzrUJy_iL8Y8NuVK3ZOlyMPaVe6L60/edit?hl=en

presentacion

https://docs.google.com/viewer?a=v&pid=explorer&chrome=true&srcid=0B_RbP6YIYff3NGRkMGQzNDktNWRmZC00NDAxLTkyMmYtZThmODI2OWM4MmIw&hl=en


programita sort

data  Natural = Z | S Natural 
    deriving(Eq, Show)

minL [] = error  "lista vacia"
minL [x] = x
minL (x:xs) min x (minL xs)
remF e [] = []
remF e (x:xs) | e == x = xs
                       | otherwise = x: remF e xs
sort [] = []
sort [x] = [x]
sort xs = minL xs:sort (remF (minL xs) xs)


nota: solo llegue a mi ultima clase del dia y a laboratorio de una materia