27 lines
728 B
Text
27 lines
728 B
Text
DIM list$(2), chosen%(2)
|
|
list$() = "iced", "jam", "plain"
|
|
PRINT "Choices of 2 from 3:"
|
|
choices% = FNchoose(0, 2, 0, 3, chosen%(), list$())
|
|
PRINT "Total choices = " ; choices%
|
|
|
|
PRINT '"Choices of 3 from 10:"
|
|
choices% = FNchoose(0, 3, 0, 10, chosen%(), nul$())
|
|
PRINT "Total choices = " ; choices%
|
|
END
|
|
|
|
DEF FNchoose(n%, l%, p%, m%, g%(), RETURN n$())
|
|
LOCAL i%, c%
|
|
IF n% = l% THEN
|
|
IF !^n$() THEN
|
|
FOR i% = 0 TO n%-1
|
|
PRINT " " n$(g%(i%)) ;
|
|
NEXT
|
|
PRINT
|
|
ENDIF
|
|
= 1
|
|
ENDIF
|
|
FOR i% = p% TO m%-1
|
|
g%(n%) = i%
|
|
c% += FNchoose(n% + 1, l%, i%, m%, g%(), n$())
|
|
NEXT
|
|
= c%
|