blob: 6155a9950c8ed07e26c3e417a18794a79e16b03f (
plain)
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
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
IDENTIFICATION DIVISION.
PROGRAM-ID. 1brc.
AUTHOR. Trey Bastian.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT measurements-file ASSIGN TO "./measurements.txt"
ORGANIZATION IS RECORD SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD measurements-file.
01 measurement-chunk PIC X(10700000).
WORKING-STORAGE SECTION.
01 results-table.
02 stations OCCURS 10000 TIMES INDEXED BY idx.
03 name PIC X(100).
03 min-temp PIC S9(2)V9 VALUE ZEROS.
03 max-temp PIC S9(2)V9 VALUE ZEROS.
03 temp-count PIC 9(10) VALUE ZEROS.
03 total PIC S9(10)V9(2) VALUE ZEROS.
01 measurement-lines OCCURS 1000000 TIMES.
02 line-item PIC X(106).
01 working-measurements.
02 name PIC X(100).
02 min-temp PIC S9(2)V9 VALUE ZEROS.
02 max-temp PIC S9(2)V9 VALUE ZEROS.
02 temp-count PIC 9(10) VALUE ZEROS.
02 total PIC S9(10)V9(2) VALUE ZEROS.
77 last-idx PIC 9(6) VALUE 1.
77 line-index PIC 9(7) VALUE 1.
77 line-value PIC X(106).
77 line-ptr PIC 9(10).
77 station-name PIC X(100).
77 temperature PIC S9(2)V9 VALUE ZEROS.
77 temp-str PIC -(2)9.9 VALUE ZEROS.
77 mean-calc PIC S9(2)V9 VALUE ZEROS.
77 line-count PIC 9(10) VALUE 0.
01 pic x.
88 eof VALUE "Y".
88 eof-n VALUE "N".
PROCEDURE DIVISION.
OPEN INPUT measurements-file.
SET eof-n TO TRUE.
PERFORM UNTIL eof
READ measurements-file AT END
SET eof TO TRUE
NOT AT END
MOVE 1 TO line-ptr
MOVE SPACE TO line-value
MOVE 1 TO line-index
MOVE 0 TO line-count
PERFORM VARYING line-index FROM 1 BY 1
UNTIL line-index = 1000001
MOVE SPACE to measurement-lines(line-index)
END-PERFORM
MOVE 1 to line-index
INSPECT measurement-chunk TALLYING line-count
FOR ALL X'0A'
PERFORM line-count TIMES
UNSTRING measurement-chunk DELIMITED BY X'0A'
INTO line-value WITH POINTER line-ptr
ON OVERFLOW
MOVE line-value to line-item(line-index)
ADD 1 to line-index
END-UNSTRING
END-PERFORM
PERFORM VARYING line-index FROM 1 BY 1
UNTIL line-index = 1000001
UNSTRING line-item(line-index) DELIMITED BY ";"
INTO station-name, temperature
END-UNSTRING
IF name OF working-measurements = station-name THEN
ADD temperature TO total OF working-measurements
ADD 1 TO temp-count OF working-measurements
IF min-temp OF working-measurements > temperature
THEN
MOVE temperature TO min-temp OF
working-measurements
END-If
IF max-temp OF working-measurements < temperature
THEN
MOVE temperature TO max-temp OF
working-measurements
END-IF
ELSE
IF name OF working-measurements NOT = SPACE THEN
SEARCH stations
AT END
MOVE name OF working-measurements TO name
OF stations(last-idx)
MOVE min-temp OF working-measurements TO
min-temp OF stations(last-idx)
MOVE max-temp OF working-measurements TO
max-temp OF stations(last-idx)
MOVE total of working-measurements TO total
OF stations(last-idx)
MOVE temp-count OF working-measurements TO
temp-count OF stations(last-idx)
ADD 1 to last-idx
WHEN name OF stations(idx) = name OF
working-measurements
IF min-temp OF stations(idx) > min-temp OF
working-measurements THEN
MOVE min-temp OF working-measurements TO
min-temp OF stations(idx)
END-IF
IF max-temp OF stations(idx) < max-temp OF
working-measurements THEN
MOVE max-temp OF working-measurements TO
max-temp OF stations(idx)
END-IF
ADD temp-count OF working-measurements TO
temp-count OF stations(idx)
ADD total OF working-measurements TO total
OF stations(idx)
END-SEARCH
MOVE 1 to idx
END-IF
MOVE station-name TO name OF working-measurements
MOVE temperature TO min-temp OF
working-measurements
MOVE temperature TO max-temp OF
working-measurements
MOVE temperature TO total OF working-measurements
MOVE 1 TO temp-count OF working-measurements
END-IF
END-PERFORM
END-READ
END-PERFORM.
CLOSE measurements-file.
SORT stations ASCENDING name OF stations.
PERFORM VARYING idx FROM 1 BY 1 UNTIL idx = 10001
IF name OF stations(IDX) NOT EQUAL SPACES THEN
DISPLAY FUNCTION TRIM(name OF stations(idx) TRAILING)
WITH NO ADVANCING
DISPLAY ";" WITH NO ADVANCING
MOVE min-temp OF stations(idx)TO temp-str
DISPLAY FUNCTION TRIM(temp-str LEADING)
WITH NO ADVANCING
DISPLAY ";" WITH NO ADVANCING
COMPUTE mean-calc ROUNDED = total OF stations(idx) /
temp-count OF stations(idx)
MOVE mean-calc TO temp-str
DISPLAY FUNCTION TRIM(temp-str LEADING)
WITH NO ADVANCING
DISPLAY ";" WITH NO ADVANCING
MOVE max-temp OF stations(idx) TO temp-str
DISPLAY FUNCTION TRIM(temp-str LEADING)
END-IF
END-PERFORM.
STOP-RUN.
|
