codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
solution = filter (\(a,b) -> isPali b) $ zip paliDec (map toOct paliDec) where isPali n = show n == reverse (show n) paliDec = filter isPali [1..] toOct n | n < 8 = n | otherwise = let (d, m) = divMod n 8 in 10 * toOct d + m main = print $ take 20 solution
Private
[
?
]
Run code
Submit