質問編集履歴
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -2,5 +2,11 @@
|
|
|
2
2
|
factors a = [x | x <- [1..a] , a `mod` x == 0]
|
|
3
3
|
|
|
4
4
|
perfects n = [x | x <- [1..n] , x == sum(factors x) - x]
|
|
5
|
+
|
|
6
|
+
>perfects 1000
|
|
7
|
+
[6,28,496]
|
|
8
|
+
>perfects 10000
|
|
9
|
+
[6,28,496^Z__ctrl+zは手動入力です。__
|
|
10
|
+
[1]+ Stopped
|
|
5
11
|
```
|
|
6
12
|
**このプログラムで完全数の6,28,496は求められますが、それ以上の完全数を求めようとするとパソコンが止まります。と言うかプログラムが結果を出さず実行中のまま？になります。このコードに誤りはありますか？**
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
```Haskell
|
|
2
|
-
factors a = [x | x <- [1..a] , a `mod` x == 0
|
|
2
|
+
factors a = [x | x <- [1..a] , a `mod` x == 0]
|
|
3
3
|
|
|
4
4
|
perfects n = [x | x <- [1..n] , x == sum(factors x) - x]
|
|
5
5
|
```
|