Anonymous user
Lychrel numbers: Difference between revisions
→{{header|Haskell}}: make it infinite list
m (C++ - removed unused function) |
(→{{header|Haskell}}: make it infinite list) |
||
Line 1,587:
procLychrel :: Integer -> [Integer]
procLychrel a = a : pl
where
pl
in if isPalindrome s
then [s]
else s : pl
isPalindrome :: Integer -> Bool
Line 1,603 ⟶ 1,601:
isLychrel :: Integer -> Bool
isLychrel
reverseInteger :: Integer -> Integer
Line 1,619 ⟶ 1,617:
sar (seed, related, lych) x =
let s = procLychrel x
sIsLychrel =
(isIn, isOut) = partition (`elem` lych) . take 501 $ s
newLych = lych ++ isOut
in if sIsLychrel
Line 1,635 ⟶ 1,633:
putStrLn $ "There are " ++ show relatedCount ++ " related Lychrel numbers."</lang>
{{Out}}
<pre>
[1..10,000] contains 249 Lychrel numbers.
[9999,8778,4994] are palindromic Lychrel numbers.
[9999,7059,1997,879,196] are Lychrel seeds.
There are 244 related Lychrel numbers.
</
=={{header|J}}==
| |||