clrnd

-- Ezequiel Alvarez (421/13) - Virginia Napoli (418/13) - Turno Noche
-- utilidades
base10aEntero :: [Int] -> Int
base10aEntero [x] = x
base10aEntero (x:xs) = x*(10^indice) + base10aEntero xs
    where indice = length xs

divisiblePor :: Int -> Int -> (Int -> Int -> Int) -> Bool
divisiblePor dividendo x test | x == 0 = True
                              | x == dividendo = True