Definir la función
ternasPrimas :: [(Integer,Integer,Integer)] |
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,
ternasPrimas == (2,3,5)
ternasPrimas !! 34567 == (2,5393909,5393911) |
ternasPrimas == (2,3,5)
ternasPrimas !! 34567 == (2,5393909,5393911)
Soluciones
import Data.Numbers.Primes (primes)
ternasPrimas :: [(Integer,Integer,Integer)]
ternasPrimas = [(2,a,b) | (a,b) <- zip (primes) (tail (primes)),
a + 2 == b] |
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>
José A. Alonso