Cyclops numbers: Difference between revisions
m
→{{header|Haskell}}
No edit summary |
|||
Line 953:
cyclops :: [Integer]
cyclops = [0 ..] >>=
where
(\s -> read s :: Integer)
<$> (
blindPrime :: Integer -> Bool
Line 969 ⟶ 966:
m = quot (length s) 2
in isPrime $
(\
(take m s <> drop (succ m) s)
palindromic :: Integer -> Bool
palindromic = ((==) =<< reverse) . show
-------------------------- TESTS -------------------------
| |||