Números cuyas cifras coinciden con las de sus factores primos

2 Comentarios

1. Haskell

   import Data.List(sort) import Data.Numbers.Primes(primeFactors,isPrime) import Test.QuickCheck esEspecial :: Integer -> Bool esEspecial x = sort(digitos x) == sort(digDivisores x) digitos :: Integer -> [Integer] digitos x = [read[n]|n <- show x] digDivisores :: Integer -> [Integer] digDivisores x = concat [digitos n|n <- primeFactors x] --Definimos la propiedad de que todo primo es especial: prop_especiales :: Integer -> Property prop_especiales x = isPrime x ==> esEspecial x -- La comprobación es: -- ghci> quickCheck prop_especiales -- +++ OK, passed 100 tests. -- Los 5 primeros especiales no primos se calculan con: -- ghci> take 5 [x|x<-[4..],esEspecial x,not(isPrime x)] -- [1255,12955,17482,25105,100255]

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

   import Data.List(sort) import Data.Numbers.Primes(primeFactors,isPrime) import Test.QuickCheck   esEspecial :: Integer -> Bool esEspecial x = sort(digitos x) == sort(digDivisores x)     digitos :: Integer -> [Integer] digitos x = [read[n]|n <- show x]   digDivisores :: Integer -> [Integer] digDivisores x = concat [digitos n|n <- primeFactors x]   --Definimos la propiedad de que todo primo es especial: prop_especiales :: Integer -> Property prop_especiales x = isPrime x ==> esEspecial x   -- La comprobación es: -- ghci> quickCheck prop_especiales --    +++ OK, passed 100 tests.   -- Los 5 primeros especiales no primos se calculan con: -- ghci> take 5 [x|x<-[4..],esEspecial x,not(isPrime x)] -- [1255,12955,17482,25105,100255]

   Responder

2. Haskell

   import Data.List (sort) import Data.Numbers.Primes(primeFactors,isPrime) import Test.QuickCheck esEspecial :: Integer -> Bool esEspecial n = sort xs == sort ys where xs = show n ys = concat[show x|x<-primeFactors n] prop_especial :: Integer -> Property prop_especial n = isPrime n ==> esEspecial n -- Los 5 primeros numeros especiales que no son primos se calculan: -- -- take 5 [x|x<-[1..],esEspecial x, not(isPrime x)] == [1255,12955,17482,25105,100255] --

   1 2 3 4 5 6 7 8 9 10 11 12 13 14

   import Data.List (sort) import Data.Numbers.Primes(primeFactors,isPrime) import Test.QuickCheck   esEspecial :: Integer -> Bool esEspecial n = sort xs == sort ys              where xs = show n                    ys = concat[show x|x<-primeFactors n]   prop_especial :: Integer -> Property prop_especial n = isPrime n ==> esEspecial n   -- Los 5 primeros numeros especiales que no son primos se calculan: -- -- take 5 [x|x<-[1..],esEspecial x, not(isPrime x)] == [1255,12955,17482,25105,100255] --

   Responder