$EXECUTE FORTRAN 1 * ID COMB 1 * XEQ 1 COMBIN PROG. TO GENERATE THE COMBINATIONS OF N THINGS TAKEN K AT A TIME 12/01/64 PAGE 1 DIMENSION IA(99),IW(99) 01 C NOTE THAT N MAY NOT EXCEED 99 AND K MUST BE BETWEEN ZERO AND N. 02 10 READ INPUT TAPE 5,100,N,K 03 WRITE OUTPUT TAPE 6,102,N,K 04 DO 20 IJ=1,N 05 20 IW(IJ)=IJ 06 NPLUS1 = N+1 07 NPLUSK = N+K 08 IT = 1 09 IA(IT) = 1 10 1 IAT= IA(IT) 11 NPLIT = N+IT 12 IW(NPLIT) = IW(IAT) 13 IF(IT-K)2,3,2 14 2 IA(IT+1)=IA(IT)+1 15 IF(N-IA(IT+1))5,4,4 16 4 IT=IT+1 17 GO TO 1 18 5 IT=IT-1 19 IF(IT)6,7,6 20 6 IA(IT)=IA(IT)+1 21 IF(N-IA(IT))5,1,1 22 3 WRITE OUTPUT TAPE 6,101,(IW(L),L=NPLUS1,NPLUSK ) 23 GO TO 6 24 7 GO TO 10 25 100 FORMAT (I2,I2) 26 101 FORMAT (1H ,13I5) 27 102 FORMAT(31H1LISTED ARE THE COMBINATIONS OF I4,14H THINGS TAKEN I4, 28 111H AT A TIME //) 29 END(1,0,0,0,0,0,1,0,0,1,0,0,0,0,0) 1 COMBIN PROG. TO GENERATE THE COMBINATIONS OF N THINGS TAKEN K AT A TIME 12/01/64 PAGE 2 | | 0 STORAGE NOT USED BY PROGRAM | 0 DEC OCT DEC OCT | 350 00536 32561 77461 0 STORAGE LOCATIONS FOR VARIABLES APPEARING IN DIMENSION AND EQUIVALENCE STATEMENTS | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT | IA 349 00535 IW 250 00372 | 0 STORAGE LOCATIONS FOR VARIABLES NOT APPEARING IN COMMON, DIMENSION, OR EQUIVALENCE STATEMENT | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT IAT 151 00227 IJ 150 00226 IT 149 00225 K 148 00224 NPLIT 147 00223 | NPLUS1 146 00222 NPLUSK 145 00221 N 144 00220 | 0 SYMBOLS AND LOCATIONS FOR SOURCE PROGRAM FORMAT STATEMENTS | 0 EFN LOC EFN LOC EFN LOC EFN LOC EFN LOC | 8)34 100 00214 8)35 101 00212 8)36 102 00210 0 LOCATIONS FOR OTHER SYMBOLS NOT APPEARING IN SOURCE PROGRAM | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT | 2) 114 00162 4) 32767 77777 6) 117 00165 C)G1 141 00215 C)G2 142 00216 | C)G3 143 00217 D)207 75 00113 D)401 11 00013 D)601 10 00012 E)9 94 00136 | E)N 77 00115 0 LOCATIONS OF NAMES IN TRANSFER VECTOR | 0 DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT | (FIL) 4 00004 (FPT) 0 00000 (RTN) 2 00002 (STH) 3 00003 (TSH) 1 00001 | 0 ENTRY POINTS TO SUBROUTINES NOT OUTPUT FROM LIBRARY | (FIL) (FPT) (RTN) (STH) (TSH) | 0 EXTERNAL FORMULA NUMBERS WITH CORRESPONDING INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS | 0 EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC | 10 6 00014 20 11 00041 1 16 00062 2 20 00076 4 22 00106 | 5 24 00117 6 26 00126 3 28 00141 7 34 00161 1 0LIBRARY ENTRY POINTS, (FPT) (TSHM) (RTN) (STHM) (FIL) 0LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS 1 A1 0 31 0 0 0 0 0 2 A4 65 65 0 0 0 0 0 3 B4 14 15 0 0 0 0 0 4 A3 43 43 0 0 0 0 0 5 A2 0 36 0 0 0 0 0 6 B1 53 1 0 0 0 0 0 7 B2 13 10 0 0 0 0 0 0 EXECUTION 1LISTED ARE THE COMBINATIONS OF 10 THINGS TAKEN 5 AT A TIME 1 2 3 4 5 1 2 3 4 6 1 2 3 4 7 1 2 3 4 8 1 2 3 4 9 1 2 3 4 10 1 2 3 5 6 1 2 3 5 7 1 2 3 5 8 1 2 3 5 9 1 2 3 5 10 1 2 3 6 7 1 2 3 6 8 1 2 3 6 9 1 2 3 6 10 1 2 3 7 8 1 2 3 7 9 1 2 3 7 10 1 2 3 8 9 1 2 3 8 10 1 2 3 9 10 1 2 4 5 6 1 2 4 5 7 1 2 4 5 8 1 2 4 5 9 1 2 4 5 10 1 2 4 6 7 1 2 4 6 8 1 2 4 6 9 1 2 4 6 10 1 2 4 7 8 1 2 4 7 9 1 2 4 7 10 1 2 4 8 9 1 2 4 8 10 1 2 4 9 10 1 2 5 6 7 1 2 5 6 8 1 2 5 6 9 1 2 5 6 10 1 2 5 7 8 1 2 5 7 9 1 2 5 7 10 1 2 5 8 9 1 2 5 8 10 1 2 5 9 10 1 2 6 7 8 1 2 6 7 9 1 2 6 7 10 1 2 6 8 9 1 2 6 8 10 1 2 6 9 10 1 2 7 8 9 1 2 7 8 10 1 2 7 9 10 1 2 8 9 10 1 3 4 5 6 1 3 4 5 7 1 3 4 5 8 1 3 4 5 9 1 3 4 5 10 1 3 4 6 7 1 3 4 6 8 1 3 4 6 9 1 3 4 6 10 1 3 4 7 8 1 3 4 7 9 1 3 4 7 10 1 3 4 8 9 1 3 4 8 10 1 3 4 9 10 1 3 5 6 7 1 3 5 6 8 1 3 5 6 9 1 3 5 6 10 1 3 5 7 8 1 3 5 7 9 1 3 5 7 10 1 3 5 8 9 1 3 5 8 10 1 3 5 9 10 1 3 6 7 8 1 3 6 7 9 1 3 6 7 10 1 3 6 8 9 1 3 6 8 10 1 3 6 9 10 1 3 7 8 9 1 3 7 8 10 1 3 7 9 10 1 3 8 9 10 1 4 5 6 7 1 4 5 6 8 1 4 5 6 9 1 4 5 6 10 1 4 5 7 8 1 4 5 7 9 1 4 5 7 10 1 4 5 8 9 1 4 5 8 10 1 4 5 9 10 1 4 6 7 8 1 4 6 7 9 1 4 6 7 10 1 4 6 8 9 1 4 6 8 10 1 4 6 9 10 1 4 7 8 9 1 4 7 8 10 1 4 7 9 10 1 4 8 9 10 1 5 6 7 8 1 5 6 7 9 1 5 6 7 10 1 5 6 8 9 1 5 6 8 10 1 5 6 9 10 1 5 7 8 9 1 5 7 8 10 1 5 7 9 10 1 5 8 9 10 1 6 7 8 9 1 6 7 8 10 1 6 7 9 10 1 6 8 9 10 1 7 8 9 10 2 3 4 5 6 2 3 4 5 7 2 3 4 5 8 2 3 4 5 9 2 3 4 5 10 2 3 4 6 7 2 3 4 6 8 2 3 4 6 9 2 3 4 6 10 2 3 4 7 8 2 3 4 7 9 2 3 4 7 10 2 3 4 8 9 2 3 4 8 10 2 3 4 9 10 2 3 5 6 7 2 3 5 6 8 2 3 5 6 9 2 3 5 6 10 2 3 5 7 8 2 3 5 7 9 2 3 5 7 10 2 3 5 8 9 2 3 5 8 10 2 3 5 9 10 2 3 6 7 8 2 3 6 7 9 2 3 6 7 10 2 3 6 8 9 2 3 6 8 10 2 3 6 9 10 2 3 7 8 9 2 3 7 8 10 2 3 7 9 10 2 3 8 9 10 2 4 5 6 7 2 4 5 6 8 2 4 5 6 9 2 4 5 6 10 2 4 5 7 8 2 4 5 7 9 2 4 5 7 10 2 4 5 8 9 2 4 5 8 10 2 4 5 9 10 2 4 6 7 8 2 4 6 7 9 2 4 6 7 10 2 4 6 8 9 2 4 6 8 10 2 4 6 9 10 2 4 7 8 9 2 4 7 8 10 2 4 7 9 10 2 4 8 9 10 2 5 6 7 8 2 5 6 7 9 2 5 6 7 10 2 5 6 8 9 2 5 6 8 10 2 5 6 9 10 2 5 7 8 9 2 5 7 8 10 2 5 7 9 10 2 5 8 9 10 2 6 7 8 9 2 6 7 8 10 2 6 7 9 10 2 6 8 9 10 2 7 8 9 10 3 4 5 6 7 3 4 5 6 8 3 4 5 6 9 3 4 5 6 10 3 4 5 7 8 3 4 5 7 9 3 4 5 7 10 3 4 5 8 9 3 4 5 8 10 3 4 5 9 10 3 4 6 7 8 3 4 6 7 9 3 4 6 7 10 3 4 6 8 9 3 4 6 8 10 3 4 6 9 10 3 4 7 8 9 3 4 7 8 10 3 4 7 9 10 3 4 8 9 10 3 5 6 7 8 3 5 6 7 9 3 5 6 7 10 3 5 6 8 9 3 5 6 8 10 3 5 6 9 10 3 5 7 8 9 3 5 7 8 10 3 5 7 9 10 3 5 8 9 10 3 6 7 8 9 3 6 7 8 10 3 6 7 9 10 3 6 8 9 10 3 7 8 9 10 4 5 6 7 8 4 5 6 7 9 4 5 6 7 10 4 5 6 8 9 4 5 6 8 10 4 5 6 9 10 4 5 7 8 9 4 5 7 8 10 4 5 7 9 10 4 5 8 9 10 4 6 7 8 9 4 6 7 8 10 4 6 7 9 10 4 6 8 9 10 4 7 8 9 10 5 6 7 8 9 5 6 7 8 10 5 6 7 9 10 5 6 8 9 10 5 7 8 9 10 6 7 8 9 10 1 330 LINES OUTPUT THIS JOB. 1 0 FORTRAN MONITOR RETURNING TO IBSYS $STOP | 1 PERIPHERAL UNIT POSITIONS AT END OF JOBS | 1 SYSPP1 IS B2 REC. 00000, FILE 00002 SYSOU1 IS B1 REC. 00315, FILE 00000 SYSIN1 IS A2 REC. 00002, FILE 00001| 1 END OF JOBS | 1