21 lines
423 B
Plaintext
21 lines
423 B
Plaintext
100 PROGRAM "Combinat.bas"
|
|
110 LET MMAX=3:LET NMAX=5
|
|
120 NUMERIC COMB(0 TO MMAX)
|
|
130 CALL GENERATE(1)
|
|
140 DEF GENERATE(M)
|
|
150 NUMERIC N,I
|
|
160 IF M>MMAX THEN
|
|
170 FOR I=1 TO MMAX
|
|
180 PRINT COMB(I);
|
|
190 NEXT
|
|
200 PRINT
|
|
220 ELSE
|
|
230 FOR N=0 TO NMAX-1
|
|
240 IF M=1 OR N>COMB(M-1) THEN
|
|
250 LET COMB(M)=N
|
|
260 CALL GENERATE(M+1)
|
|
270 END IF
|
|
280 NEXT
|
|
290 END IF
|
|
300 END DEF
|