13 lines
282 B
Text
13 lines
282 B
Text
|
SUB iterate (curr$, start, stp, depth)
|
||
|
|
FOR i = start TO stp
|
||
|
|
IF depth = 0 THEN PRINT curr$ + " " + STR$(i)
|
||
|
|
CALL iterate(curr$ + " " + STR$(i), i + 1, stp, depth - 1)
|
||
|
|
NEXT i
|
||
|
|
END SUB
|
||
|
|
|
||
|
|
INPUT "Enter n comb m. ", n, m
|
||
|
|
|
||
|
|
outstr$ = ""
|
||
|
|
CALL iterate(outstr$, 0, m - 1, n - 1)
|
||
|
|
END
|