Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0020/binomc.prb
There are 2 other files named binomc.prb in the archive. Click here to see a list.
100'  NAME--BINOMC
110'
120'  DESCRIPTION--COMPUTES BINOMIAL COEFFICIENTS : N THINGS TAKEN
130'  I AT A TIME.
140'
150'  SOURCE--UNKNOWN
160'
170'  INSTRUCTIONS--ENTER DATA STARTING IN 900 THE PAIRS
180'  OF NUMBERS N,I
190'
200'
210'  *  *  *  *  *  *  *  *  *  MAIN PROGRAM  *  *  *  *  *  *  *
220'
230 PRINT " N", " I", "N THINGS I AT A TIME"
240 PRINT
250 READ N, I
260 IF I < 0 THEN 9999
270 LET B = 1
280 FOR J = 1 TO I
290 LET B = B*(N-J+1)/J
300 NEXT J
310 PRINT N, I, B
320 GOTO 250
900 DATA 10,5, 30,7, 20,0, 20,20
9998 DATA -1,-1
9999END