Ternas crecientes de primos con el mayor igual a la suma de los menores
Definir la función
1 |
ternasPrimas :: [(Integer,Integer,Integer)] |
tal que sus elementos son las ternas crecientes de primos con el mayor igual a la suma de los menores. Por ejemplo,
1 2 |
ternasPrimas == (2,3,5) ternasPrimas !! 34567 == (2,5393909,5393911) |
Soluciones
1 2 3 4 5 |
import Data.Numbers.Primes (primes) ternasPrimas :: [(Integer,Integer,Integer)] ternasPrimas = [(2,a,b) | (a,b) <- zip (primes) (tail (primes)), a + 2 == b] |
Nuevas soluciones
- En los comentarios se pueden escribir nuevas soluciones.
- El código se debe escribir entre una línea con <pre lang="haskell"> y otra con </pre>