15 lines
294 B
Haskell
15 lines
294 B
Haskell
module Nolindrom where
|
|
|
|
nolindrom :: Int -> Integer -> Bool
|
|
nolindrom i n
|
|
| i >= 100 = True
|
|
| otherwise =
|
|
let r = read . reverse . show $ n
|
|
n' = r + n
|
|
in not (palindrome n') && nolindrom (succ i) n'
|
|
where
|
|
palindrome x =
|
|
let s = show x
|
|
in s == reverse s
|
|
|