24 lines
488 B
Text
24 lines
488 B
Text
arraybase 0
|
|
print "Enter n comb m. "
|
|
input integer "n: ", n
|
|
input integer "m: ", m
|
|
outstr$ = ""
|
|
dim names$(m)
|
|
|
|
for i = 0 to m - 1
|
|
print "Name for item "; i; ": ";
|
|
input string names$[i]
|
|
next i
|
|
call iterate (outstr$, 0, m-1, n-1, names$)
|
|
end
|
|
|
|
subroutine iterate(curr$, start, stp, depth, names$)
|
|
for i = start to stp
|
|
if depth = 0 then
|
|
print curr$; " "; names$[i]
|
|
else
|
|
call iterate (curr$ & " " & names$[i], i, stp, depth-1, names$)
|
|
end if
|
|
next i
|
|
return
|
|
end subroutine
|