module Problem64 where

import ContinuedFraction

main :: IO ()
-- if period is odd then total terms in continued fraction representation will be even
main =
    print
        . length
        . filter (even . length . continuedFractionSqrt)
        . filter (\x -> let root = floor . sqrt . fromIntegral $ x in root * root /= x)
        $ [1 .. 10000]
