-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathlab6.3.hs
More file actions
144 lines (116 loc) · 3.23 KB
/
lab6.3.hs
File metadata and controls
144 lines (116 loc) · 3.23 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
<<<<<<< HEAD
import System.Environment
-- 6.3
{-
*Main> 'a' == 'a'
True
*Main> 'A' == 'a'
False
*Main> 'c' : "at"
"cat"
*Main> let f (x:xs) = (x,xs)
*Main> f "cat"
('c',"at")
-}
{-
Consider two branches of the clear function with flags:
False - to be invoked if the current character is outside an html tag
True - to be invoked if the current character is inside an html tag
-}
clear :: String -> Bool -> String
clear [] _ = []
clear (x:xs) False | x == '<' = clear xs True
| otherwise = x : clear xs False
clear (x:xs) True | x =='>' = clear xs False
| otherwise = clear xs True
-- complete the definition
{-
clear :: String -> Bool -> String
clear ...
clear ... False | if we get '<' then we omit it and change the mode of operation
| otherwise, we add the current char to the result and continue
clear ... True | if we get '>' then we omit it and change the mode of operation
| otherwise, we omit the current char and continue
-}
{-
*Main> clear "" False
""
*Main> clear "" True
""
*Main> clear "it is a sentence." False
"it is a sentence."
*Main> clear "it is a sentence." True
""
*Main> clear "<p>it is a sentence." False
"it is a sentence."
*Main> clear "<p>it is a sentence." True
"it is a sentence."
-}
{-
The suggested names of variables in function main are: input, output, html, text
Download the following html file and test with it html2txt application.
http://www.balois.pl/jipp/index.htm
-}
main = do
[input, output] <- getArgs
html <- readFile input
let text = clear html True
=======
import System.Environment
-- 6.3
{-
*Main> 'a' == 'a'
True
*Main> 'A' == 'a'
False
*Main> 'c' : "at"
"cat"
*Main> let f (x:xs) = (x,xs)
*Main> f "cat"
('c',"at")
-}
{-
Consider two branches of the clear function with flags:
False - to be invoked if the current character is outside an html tag
True - to be invoked if the current character is inside an html tag
-}
clear :: String -> Bool -> String
clear [] _ = []
clear (x:xs) False | x == '<' = clear xs True
| otherwise = x : clear xs False
clear (x:xs) True | x =='>' = clear xs False
| otherwise = clear xs True
-- complete the definition
{-
clear :: String -> Bool -> String
clear ...
clear ... False | if we get '<' then we omit it and change the mode of operation
| otherwise, we add the current char to the result and continue
clear ... True | if we get '>' then we omit it and change the mode of operation
| otherwise, we omit the current char and continue
-}
{-
*Main> clear "" False
""
*Main> clear "" True
""
*Main> clear "it is a sentence." False
"it is a sentence."
*Main> clear "it is a sentence." True
""
*Main> clear "<p>it is a sentence." False
"it is a sentence."
*Main> clear "<p>it is a sentence." True
"it is a sentence."
-}
{-
The suggested names of variables in function main are: input, output, html, text
Download the following html file and test with it html2txt application.
http://www.balois.pl/jipp/index.htm
-}
main = do
[input, output] <- getArgs
html <- readFile input
let text = clear html True
>>>>>>> refs/remotes/origin/main
writeFile output text