El número 9009 es capicúa y es producto de dos números de dos dígitos, pues 9009 = 91*99.
Definir la lista
|
1 |
capicuasP2N2D :: [Int] |
cuyos elementos son los números capicúas que son producto de 2 números de dos dígitos. Por ejemplo,
|
1 2 3 |
take 5 capicuasP2N2D == [121,242,252,272,323] length capicuasP2N2D == 74 drop 70 capicuasP2N2D == [8008,8118,8448,9009] |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
import Data.List capicuasP2N2D :: [Int] capicuasP2N2D = [x | x <- productos, esCapicua x] -- productos es la lista de números menores que son productos de 2 -- números de dos dígitos. productos :: [Int] productos = sort (nub [x*y | x <- [10..99], y <- [x..99]]) -- (esCapicua x) se verifica si x es capicúa. esCapicua :: Int -> Bool esCapicua x = xs == reverse xs where xs = show x |