-- ===================================
-- Ex. 4
-- ===================================

isValid :: Integer -> Bool
isValid n = suma `mod` 10 == 0
    where
    suma = (sumDigits . doubleSecond . toDigitsRev) n 


-- ===================================
-- Ex. 5
-- ===================================
isValid :: Integer -> Bool
isValid n = suma `mod` 10 == 0
    where
    suma = (sumDigits . doubleSecond . toDigitsRev) n 


-- ===================================
-- Ex. 5
-- ===================================
isValid n = suma `mod` 10 == 0
    where
    suma = (sumDigits . doubleSecond . toDigitsRev) n 


-- ===================================
-- Ex. 5
-- ===================================