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