diff options
Diffstat (limited to 'treybastian_1brc.cbl')
| -rw-r--r-- | treybastian_1brc.cbl | 166 |
1 files changed, 0 insertions, 166 deletions
diff --git a/treybastian_1brc.cbl b/treybastian_1brc.cbl deleted file mode 100644 index 6155a99..0000000 --- a/treybastian_1brc.cbl +++ /dev/null @@ -1,166 +0,0 @@ - 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. - - - - - - - |