質問編集履歴
3
コードの修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -30,30 +30,24 @@
|
|
|
30
30
|
|
|
31
31
|
```haskell
|
|
32
32
|
|
|
33
|
-
• Couldn't match expected type ‘[a
|
|
33
|
+
• Couldn't match expected type ‘[a0] -> Bool’
|
|
34
34
|
|
|
35
35
|
with actual type ‘Bool’
|
|
36
36
|
|
|
37
|
-
•
|
|
37
|
+
• In the second argument of ‘(==)’, namely ‘True’
|
|
38
38
|
|
|
39
|
-
In the second argument of ‘(==)’, namely
|
|
40
|
-
|
|
41
|
-
|
|
39
|
+
In the expression: odd . length . filter (/= 0) == True
|
|
42
|
-
|
|
43
|
-
In the expression:
|
|
44
|
-
|
|
45
|
-
odd . length . filter (/= 0) == odd (length . filter (/= 0))
|
|
46
40
|
|
|
47
41
|
In a stmt of a pattern guard for
|
|
48
42
|
|
|
49
43
|
an equation for ‘make9’:
|
|
50
44
|
|
|
51
|
-
odd . length . filter (/= 0) ==
|
|
45
|
+
odd . length . filter (/= 0) == True
|
|
52
46
|
|
|
53
47
|
|
|
|
54
48
|
|
|
55
|
-
16 | make9 bits | odd . length . filter(/= 0) ==
|
|
49
|
+
16 | make9 bits | odd . length . filter(/= 0) == True = take 8 (bits ++ repeat 0) ++ [1]
|
|
56
50
|
|
|
57
|
-
|
|
|
51
|
+
|
|
|
58
52
|
|
|
59
53
|
```
|
2
修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
```Haskell
|
|
22
22
|
|
|
23
|
-
make9 bits | odd . length .
|
|
23
|
+
make9 bits | odd . length . filter(/=0) == True = take8 (bits ++ repeat 0) ++ [1]
|
|
24
24
|
|
|
25
25
|
| otherwise = take 8 (bits ++ repeat 0) ++ [0]
|
|
26
26
|
|
1
タイトルの修正
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
パリティビット付加のプログラム
|
|
1
|
+
パリティビット付加のプログラムのエラー
|
test
CHANGED
|
File without changes
|