commit fed973393ccab3db2780cd28a749abb25315894d · treybastian.com/1brc

treybastian_1brc
This is a binary file and will not be displayed.
-166
treybastian_1brc.cbl
···

       1
       1
       -
              IDENTIFICATION DIVISION.

     

       2
       2
       -
              PROGRAM-ID. 1brc.

     

       3
       3
       -
              AUTHOR. Trey Bastian.

     

       4
       4
       -
       

     

       5
       5
       -
              ENVIRONMENT DIVISION.

     

       6
       6
       -
              INPUT-OUTPUT SECTION.

     

       7
       7
       -
              FILE-CONTROL.

     

       8
       8
       -
              SELECT measurements-file ASSIGN TO "./measurements.txt"

     

       9
       9
       -
                  ORGANIZATION IS RECORD SEQUENTIAL.

     

       10
       10
       -
       

     

       11
       11
       -
              DATA DIVISION.

     

       12
       12
       -
              FILE SECTION.

     

       13
       13
       -
              FD measurements-file.

     

       14
       14
       -
                01 measurement-chunk PIC X(10700000).

     

       15
       15
       -
       

     

       16
       16
       -
              WORKING-STORAGE SECTION.

     

       17
       17
       -
              01 results-table.

     

       18
       18
       -
                02 stations OCCURS 10000 TIMES INDEXED BY idx.

     

       19
       19
       -
                  03 name PIC X(100).

     

       20
       20
       -
                  03 min-temp PIC S9(2)V9 VALUE ZEROS.

     

       21
       21
       -
                  03 max-temp PIC S9(2)V9 VALUE ZEROS.

     

       22
       22
       -
                  03 temp-count PIC 9(10) VALUE ZEROS.

     

       23
       23
       -
                  03 total PIC S9(10)V9(2) VALUE ZEROS.

     

       24
       24
       -
       

     

       25
       25
       -
              01 measurement-lines OCCURS 1000000 TIMES.

     

       26
       26
       -
                02 line-item PIC X(106).

     

       27
       27
       -
       

     

       28
       28
       -
              01 working-measurements.

     

       29
       29
       -
                02 name PIC X(100).

     

       30
       30
       -
                02 min-temp PIC S9(2)V9 VALUE ZEROS.

     

       31
       31
       -
                02 max-temp PIC S9(2)V9 VALUE ZEROS.

     

       32
       32
       -
                02 temp-count PIC 9(10) VALUE ZEROS.

     

       33
       33
       -
                02 total PIC S9(10)V9(2) VALUE ZEROS.

     

       34
       34
       -
       

     

       35
       35
       -
              77 last-idx PIC 9(6) VALUE 1.

     

       36
       36
       -
              77 line-index PIC 9(7) VALUE 1.

     

       37
       37
       -
              77 line-value PIC X(106).

     

       38
       38
       -
              77 line-ptr PIC 9(10).

     

       39
       39
       -
              77 station-name PIC X(100).

     

       40
       40
       -
              77 temperature PIC S9(2)V9 VALUE ZEROS.

     

       41
       41
       -
              77 temp-str PIC -(2)9.9 VALUE ZEROS.

     

       42
       42
       -
              77 mean-calc PIC S9(2)V9 VALUE ZEROS.

     

       43
       43
       -
              77 line-count PIC 9(10) VALUE 0.

     

       44
       44
       -
              01 pic x.

     

       45
       45
       -
                    88 eof VALUE "Y".

     

       46
       46
       -
                    88 eof-n VALUE "N".

     

       47
       47
       -
       

     

       48
       48
       -
              PROCEDURE DIVISION.

     

       49
       49
       -
                  OPEN INPUT measurements-file.

     

       50
       50
       -
                  SET eof-n TO TRUE.

     

       51
       51
       -
                  PERFORM UNTIL eof

     

       52
       52
       -
                    READ measurements-file AT END

     

       53
       53
       -
                        SET eof TO TRUE

     

       54
       54
       -
                    NOT AT END

     

       55
       55
       -
                      MOVE 1 TO line-ptr

     

       56
       56
       -
                      MOVE SPACE TO line-value

     

       57
       57
       -
                      MOVE 1 TO line-index

     

       58
       58
       -
                      MOVE 0 TO line-count

     

       59
       59
       -
                      PERFORM VARYING line-index FROM 1 BY 1

     

       60
       60
       -
                        UNTIL line-index = 1000001

     

       61
       61
       -
                          MOVE SPACE to measurement-lines(line-index)

     

       62
       62
       -
                      END-PERFORM

     

       63
       63
       -
                      MOVE 1 to line-index

     

       64
       64
       -
                      INSPECT measurement-chunk TALLYING line-count

     

       65
       65
       -
                      FOR ALL X'0A'

     

       66
       66
       -
                      PERFORM line-count TIMES

     

       67
       67
       -
                        UNSTRING measurement-chunk DELIMITED BY X'0A'

     

       68
       68
       -
                        INTO line-value WITH POINTER line-ptr

     

       69
       69
       -
                        ON OVERFLOW

     

       70
       70
       -
                          MOVE line-value to line-item(line-index)

     

       71
       71
       -
                          ADD 1 to line-index

     

       72
       72
       -
                        END-UNSTRING

     

       73
       73
       -
                      END-PERFORM

     

       74
       74
       -
                      PERFORM VARYING line-index FROM 1 BY 1

     

       75
       75
       -
                        UNTIL line-index = 1000001

     

       76
       76
       -
                          UNSTRING line-item(line-index) DELIMITED BY ";"

     

       77
       77
       -
                            INTO station-name, temperature

     

       78
       78
       -
                          END-UNSTRING

     

       79
       79
       -
                          IF name OF working-measurements = station-name THEN

     

       80
       80
       -
                            ADD temperature TO total OF working-measurements

     

       81
       81
       -
                            ADD 1 TO temp-count OF working-measurements

     

       82
       82
       -
                            IF min-temp OF working-measurements > temperature

     

       83
       83
       -
                            THEN

     

       84
       84
       -
                              MOVE temperature TO min-temp OF

     

       85
       85
       -
                              working-measurements

     

       86
       86
       -
                            END-If

     

       87
       87
       -
                            IF max-temp OF working-measurements < temperature

     

       88
       88
       -
                            THEN

     

       89
       89
       -
                              MOVE temperature TO max-temp OF

     

       90
       90
       -
                              working-measurements

     

       91
       91
       -
                            END-IF

     

       92
       92
       -
                          ELSE

     

       93
       93
       -
                            IF name OF working-measurements NOT = SPACE THEN

     

       94
       94
       -
                                 SEARCH stations

     

       95
       95
       -
                                  AT END

     

       96
       96
       -
                                    MOVE name OF working-measurements TO name

     

       97
       97
       -
                                    OF stations(last-idx)

     

       98
       98
       -
                                    MOVE min-temp OF working-measurements TO

     

       99
       99
       -
                                    min-temp OF stations(last-idx)

     

       100
       100
       -
                                    MOVE max-temp OF working-measurements TO

     

       101
       101
       -
                                    max-temp OF stations(last-idx)

     

       102
       102
       -
                                    MOVE total of working-measurements TO total

     

       103
       103
       -
                                    OF stations(last-idx)

     

       104
       104
       -
                                    MOVE temp-count OF working-measurements TO

     

       105
       105
       -
                                    temp-count OF stations(last-idx)

     

       106
       106
       -
                                    ADD 1 to last-idx

     

       107
       107
       -
                                  WHEN name OF stations(idx) = name OF

     

       108
       108
       -
                                    working-measurements

     

       109
       109
       -
                                    IF min-temp OF stations(idx) > min-temp OF

     

       110
       110
       -
                                      working-measurements THEN

     

       111
       111
       -
                                      MOVE min-temp OF working-measurements TO

     

       112
       112
       -
                                      min-temp OF stations(idx)

     

       113
       113
       -
                                    END-IF

     

       114
       114
       -
                                    IF max-temp OF stations(idx) < max-temp OF

     

       115
       115
       -
                                      working-measurements THEN

     

       116
       116
       -
                                      MOVE max-temp OF working-measurements TO

     

       117
       117
       -
                                      max-temp OF stations(idx)

     

       118
       118
       -
                                    END-IF

     

       119
       119
       -
                                    ADD temp-count OF working-measurements TO

     

       120
       120
       -
                                    temp-count OF stations(idx)

     

       121
       121
       -
                                    ADD total OF working-measurements TO total

     

       122
       122
       -
                                    OF stations(idx)

     

       123
       123
       -
                                 END-SEARCH

     

       124
       124
       -
                                 MOVE 1 to idx

     

       125
       125
       -
                            END-IF

     

       126
       126
       -
                            MOVE station-name TO name OF working-measurements

     

       127
       127
       -
                            MOVE temperature TO min-temp OF

     

       128
       128
       -
                            working-measurements

     

       129
       129
       -
                            MOVE temperature TO max-temp OF

     

       130
       130
       -
                            working-measurements

     

       131
       131
       -
                            MOVE temperature TO total OF working-measurements

     

       132
       132
       -
                            MOVE 1 TO temp-count OF working-measurements

     

       133
       133
       -
                          END-IF

     

       134
       134
       -
                      END-PERFORM

     

       135
       135
       -
                   END-READ

     

       136
       136
       -
                   END-PERFORM.

     

       137
       137
       -
                  CLOSE measurements-file.

     

       138
       138
       -
       

     

       139
       139
       -
                  SORT stations ASCENDING name OF stations.

     

       140
       140
       -
                  PERFORM VARYING idx FROM 1 BY 1 UNTIL idx = 10001

     

       141
       141
       -
                   IF name OF stations(IDX) NOT EQUAL SPACES THEN

     

       142
       142
       -
                     DISPLAY FUNCTION TRIM(name OF stations(idx) TRAILING)

     

       143
       143
       -
                       WITH NO ADVANCING

     

       144
       144
       -
                     DISPLAY ";" WITH NO ADVANCING

     

       145
       145
       -
                     MOVE min-temp OF stations(idx)TO temp-str

     

       146
       146
       -
                     DISPLAY FUNCTION TRIM(temp-str LEADING)

     

       147
       147
       -
                       WITH NO ADVANCING

     

       148
       148
       -
                     DISPLAY ";" WITH NO ADVANCING

     

       149
       149
       -
                     COMPUTE mean-calc ROUNDED = total OF stations(idx) /

     

       150
       150
       -
                        temp-count OF stations(idx)

     

       151
       151
       -
                     MOVE mean-calc TO temp-str

     

       152
       152
       -
                     DISPLAY FUNCTION TRIM(temp-str LEADING)

     

       153
       153
       -
                       WITH NO ADVANCING

     

       154
       154
       -
                     DISPLAY ";" WITH NO ADVANCING

     

       155
       155
       -
                     MOVE max-temp OF stations(idx) TO temp-str

     

       156
       156
       -
                     DISPLAY FUNCTION TRIM(temp-str LEADING)

     

       157
       157
       -
                   END-IF

     

       158
       158
       -
                  END-PERFORM.

     

       159
       159
       -
              STOP-RUN.

     

       160
       160
       -
       

     

       161
       161
       -
       

     

       162
       162
       -
       

     

       163
       163
       -
       

     

       164
       164
       -
       

     

       165
       165
       -
       

     

       166
       166
       -
treybastian_1brc2
This is a binary file and will not be displayed.