-- import Text.Parsec
-- import Text.Regex.Posix
 
oddEx :: Integer -> Bool
oddEx n = case quotRem n 10 of
    (0,0) -> False
    (0,r) -> odd r
    (q,r) -> odd r && oddEx q
 
oddEx' :: Integer -> Bool
oddEx' = all (flip notElem "02468") . show
 
-- oddEx'' :: Integer -> Bool
-- oddEx'' = (== "") . (=~ "[02468]") . show
 
-- oddEx''' :: Integer -> Bool
-- oddEx''' = either (const False) (const True) . parse (many1 (noneOf "02468") >> eof) "" . show
 
main :: IO ()
main = do
    let xs = [0..1000]
        a = filter oddEx xs
    print $ a
    print $ all ((a ==) . flip filter xs) [oddEx' -- ,oddEx'' ,oddEx'''
                                          ]
 

LS0gaW1wb3J0IFRleHQuUGFyc2VjCi0tIGltcG9ydCBUZXh0LlJlZ2V4LlBvc2l4CgpvZGRFeCA6OiBJbnRlZ2VyIC0+IEJvb2wKb2RkRXggbiA9IGNhc2UgcXVvdFJlbSBuIDEwIG9mCiAgICAoMCwwKSAtPiBGYWxzZQogICAgKDAscikgLT4gb2RkIHIKICAgIChxLHIpIC0+IG9kZCByICYmIG9kZEV4IHEKCm9kZEV4JyA6OiBJbnRlZ2VyIC0+IEJvb2wKb2RkRXgnID0gYWxsIChmbGlwIG5vdEVsZW0gIjAyNDY4IikgLiBzaG93CgotLSBvZGRFeCcnIDo6IEludGVnZXIgLT4gQm9vbAotLSBvZGRFeCcnID0gKD09ICIiKSAuICg9fiAiWzAyNDY4XSIpIC4gc2hvdwoKLS0gb2RkRXgnJycgOjogSW50ZWdlciAtPiBCb29sCi0tIG9kZEV4JycnID0gZWl0aGVyIChjb25zdCBGYWxzZSkgKGNvbnN0IFRydWUpIC4gcGFyc2UgKG1hbnkxIChub25lT2YgIjAyNDY4IikgPj4gZW9mKSAiIiAuIHNob3cKCm1haW4gOjogSU8gKCkKbWFpbiA9IGRvCiAgICBsZXQgeHMgPSBbMC4uMTAwMF0KICAgICAgICBhID0gZmlsdGVyIG9kZEV4IHhzCiAgICBwcmludCAkIGEKICAgIHByaW50ICQgYWxsICgoYSA9PSkgLiBmbGlwIGZpbHRlciB4cykgW29kZEV4JyAtLSAsb2RkRXgnJyAsb2RkRXgnJycKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgXQo=