-- Practico 10

--Ejercicio 1

resto :: Int -> Int -> Int
resto a 0 = error "Divisor no valido"
resto 0 a = 0;
resto a b = if (a<b) then
		a
	    else
		resto (a - b) b

--Main> resto 13 4
--1
--Main> resto 20 7
--6
--Main> resto 1315 184 == mod 1315 184
--True

--Ejercicio 2

--Necesitamos un "contador" para ver cuantas veces restamos
cociente :: Int -> Int -> Int
cociente a 0 = error "Divisor no valido"
cociente 0 a = 0;
cociente a b = if (a<b) then
		   0
	       else
		   1 + cociente (a - b) b

--Main> cociente 13 4
--3
--Main> cociente 20 7
--2
--Main> cociente 1315 184 == div 1315 184
--True

--Ejercicio 3

sumaDesdeHasta :: Int -> Int -> Int
sumaDesdeHasta 0 0 = 0
sumaDesdeHasta 0 a = a + sumaDesdeHasta 0 (a-1)
sumaDesdeHasta a b = (sumaDesdeHasta 0 b) - (sumaDesdeHasta 0 (a-1))

--Main> sumaDesdeHasta 3 7
--25
--Main> sumaDesdeHasta 0 4
--10

--- Se agradece al estudiante Néstor Larroca por su aporte, uno más de una larga fila. Gracias de nuevo.