Sum of square and cube digits of an integer are primes: Difference between revisions

Content added Content deleted
Line 88: Line 88:
p :: Int -> Bool
p :: Int -> Bool
p =
p =
((&&) . primeDigits . (^ 2))
((&&) . primeDigitSum . (^ 2))
<*> (primeDigits . (^ 3))
<*> (primeDigitSum . (^ 3))




Line 98: Line 98:


------------------------- GENERIC ------------------------
------------------------- GENERIC ------------------------
primeDigits :: Int -> Bool
primeDigitSum :: Int -> Bool
primeDigits = isPrime . digitSum 10
primeDigitSum = isPrime . digitSum 10


digitSum :: Int -> Int -> Int
digitSum :: Int -> Int -> Int
Retrieved from "https://rosettacode.org/wiki/Sum_of_square_and_cube_digits_of_an_integer_are_primes"