[Bradford] Notes of last meeting and next meeting

[John Robert Hudson]

Dear all

The notes of Tuesday’s meeting are up. Darren suggested that our face to face 
meeting at BCB in February should focus on coding, perhaps with some code 
golf.

Here is an example from 1987 of some early code comparisons:

COBOL
000100 IDENTIFICATION DIVISION
000200 PROGRAM-ID CALCULATE-MEAN
000300 AUTHOR. PAUL WATTS
000400 INSTALATI0N  LANCASTER UNIVERSITY
000500 DATE WRITTEN  FEB 11 1986
000600 £
000700 SYSTEM$ DEPARTMENT
000800 DEMO PROG
000900 SOURCE COMPUTER  VAX
001000 OBJECT COMPUTER  VAX
001100 INPUT-OUTPUT SECTION
001200 FILE-CONTROL
001300 SELECT DATAFILE  ASSIGN T0 DISC.
001400 SELECT PRINT FILE ASSIGN TO PRINTER
001500£
001600 DATA DIVISION
001700 FILE SECTION
001800 FD DATA FILE
001900  BLOCK CONTAINS 20 RECORDS
002000  RECORD CONTAINS 15 CHARACTERS
002100  LABEL RECORDS ARE STANDARD
002200 01 DATA REC
002300  05 NUM  PIC 9(13)V99
002400 FD PRINT FILE
002500  BLOCK CONTAINS 1 RECORDS
002600  RECORD CONTAINS 132 CHARACTERS
00270O  LABEL RECORDS ARE OMITTED
002800 01 PRINTREC
002900 05 FILLER  PIC X(10)
003000 05 PRNT-MEAN  PIC Z(12)9.99
003100 05 FILLER  PIC X(106)
003200 WORKING STORAGE SECTION
003300 01 T0TAL  PIC 9(5)V99  VALUE 0
0O3400 01 N PIC 9(13)  VALUE 0
003500 01 MEAN  PIC 9(13)V99
003600 01 E0F PIC X
003700  88 END OF FILE  VALUE Y
003800£
003900 PROCEDURE DIVISION
004000 MAIN LINE
004100 OPEN INPUT DATA FILE
004200 OPEN OUTPUT PRINT FILE
004300 MOVE "N" TO EOF
004400 PERFORM READ FILE
004500 UNTIL END-OF-FILE
004600 DIVIDE TOTAL BY N
004700 GIVING MEAN
004800 MOVE MEAN T0 PRINT-MEAN
OO4900 WRITE PRINTER
005000  AFTER ADVANCING 2 LINES
005100 CLOSE DATAFILE PRINTFILE
005200 STOPRUN
005300 READ FILE
005400 READ DATA-FILE
005500 AT END MOVE "Y" T0 EOF
005600 IF NOT EOF
005700 ADD 1 T0 N
005800 ADD NUM TO TOTAL

FORTRAN
DIMENSION X (100)
READ (5,10) N, (X(I),I=1,N)
10 FORMAT (15, (E15.2))
S=0.0
DO 9 I =1,N
9 S =S+x(I)
A=S/N
WRITE (6,20)A
20 FORMAT (E15.2)
END

BASIC
10 DIM X (100)
20 LET S=0
30 READ N
40 FOR I=l TO N
50 READ X (I)
60 LET S=S+(I)
70 NEXT I
80 LET A=S/N
90 PRINT A
100 DATA
...
...
XXX END

NOMAD
READ DIGITS LIST AVG(DIGITS)

APL
+/X£pX-o

John