Actualización de «Divisibles por el primero»
He actualizado las soluciones del ejercicio Divisibles por el primero cuyo enunciado es
Definir la función
divisiblesPorPrimero :: [Int] -> Bool
tal que (divisibles xs) se verifica si todos los elementos positivos de xs son divisibles por el primero. Por ejemplo,
divisiblesPorPrimero [2,6,-3,0,18,-17,10] == True divisiblesPorPrimero [-13] == True divisiblesPorPrimero [-3,6,1,-3,9,18] == False divisiblesPorPrimero [5,-2,-6,3] == False divisiblesPorPrimero [] == True divisiblesPorPrimero [0,2,4] == False divisiblesPorPrimero [0,-2,-4] == True