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

Content added Content deleted
Line 387: Line 387:
where
where
go 0 = 0
go 0 = 0
go n = (uncurry (+) . first go) $ quotRem n base</lang>
go n = uncurry (+) . first go $ quotRem n base</lang>
{{Out}}
{{Out}}
<pre>[16,17,25,28,34,37,47,52,64]</pre>
<pre>[16,17,25,28,34,37,47,52,64]</pre>
Retrieved from "https://rosettacode.org/wiki/Sum_of_square_and_cube_digits_of_an_integer_are_primes"