--- practico 10

resto :: Integer-> Integer-> Integer
resto a 0 = error " no existe"
resto a b  	| a < b = a 
		| a == b = 0
		| otherwise = resto (a-b) b

cociente ::  Integer-> Integer-> Integer
cociente a 0 = error " no existe"
cociente a b | a == b = 1
		| a < b = 0
		| otherwise =  1 + cociente (a-b) b

sumDH :: Integer-> Integer-> Integer
sumDH a b = if a > b then error "popo" else error "ppp"
sumDH a b = if a == b then a else b + sumDH a (b-1)

prodDH :: Integer-> Integer-> Integer
prodDH a b = if a > b then error "d" else (if a == b then a else b * prodDH a (b-1))

var :: Integer-> Integer-> Integer
var m n = div (prodDH 1 m) (prodDH 1 (m-n))



-- ej 9 

diva :: Integer-> Integer->Bool
diva a b = if ((resto a b) == 0) then True else False
-- se está usando la función "resto" definida más arriba. 

--ej 10

--divisores :: Integer->[Integer]
--divisores 0 = []
--divisores 1 = [1]
--divisores a = if cociente a 

--- Se agradece al estudiante Diego Carreres por estos ejercicios resueltos.  
--- Diego a contribuido con muchos ejercicios. Gracias Diego.