Haskell で完全数を求めるプログラムについて

Question

factors a = [x | x <- [1..a] , a `mod` x == 0]

perfects n = [x | x <- [1..n] , x == sum(factors x) - x]

>perfects 1000
[6,28,496]
>perfects 10000
[6,28,496^Z__ctrl+zは手動入力です。__
[1]+ Stopped

このプログラムで完全数の6,28,496は求められますが、それ以上の完全数を求めようとするとパソコンが止まります。と言うかプログラムが結果を出さず実行中のまま？になります。このコードに誤りはありますか？

Comments

[mather]

関数を呼び出す部分のコードも記載しましょう。
正常に実行できるときと止まってしまうときの n の値も書きましょう。

Answer 1

アルゴリズムと実装は合っていると思います。

REPL（インタープリター）での実行のようなので、コンパイルし最適化もかけると Wandbox 上では10000まですぐに求まりました。