23 lines
426 B
Plaintext
23 lines
426 B
Plaintext
PROGRAM "Combinations"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
DECLARE FUNCTION iterate (curr$, start, stp, depth)
|
|
|
|
FUNCTION Entry ()
|
|
n = 3
|
|
m = 5
|
|
outstr$ = ""
|
|
iterate(outstr$, 0, m - 1, n - 1)
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION iterate (curr$, start, stp, depth)
|
|
FOR i = start TO stp
|
|
IF depth = 0 THEN PRINT curr$ + " " + STR$(i)
|
|
iterate(curr$ + " " + STR$(i), i + 1, stp, depth - 1)
|
|
NEXT i
|
|
RETURN
|
|
END FUNCTION
|
|
END PROGRAM
|