Revision as of 14:04, 10 April 2020 (view source) rosettacode>Droberts No edit summary ← Older edit		Revision as of 14:13, 10 April 2020 (view source) rosettacode>Droberts m (→‎{{header\|Haskell}}) Newer edit →
Line 239: import Data.Char (intToDigit) ~~superd~~isSuperd :: (Show a, Integral a) => a -> a -> Bool ~~superd~~isSuperd p n = replicate (fromIntegral p) (intToDigit $ fromIntegral p) `isInfixOf` show (p * n ^ p) findSuperd :: (Show a, Integral a) => a -> [a] Line 246: where go [] = [] go (n:ns) \| ~~superd~~isSuperd p n = n : go ns \| otherwise = go ns main :: IO () Line 259: First 10 super-6 : [27257,272570,302693,323576,364509,502785,513675,537771,676657,678146] </pre> =={{header\|J}}== <pre>

Super-d numbers: Difference between revisions

Super-d numbers (view source)