RosettaCodeData/Task/Combinations/FutureBasic/combinations.basic

17 lines
423 B
Plaintext

void local fn Combinations( currStr as CFStringRef, start as int, stp as int, depth as int )
int i
for i = start to stp
if depth = 0 then printf @"%@ %d", currStr, i
fn Combinations( fn StringWithFormat( @"%@ %d", currStr, i ), i+1, stp, depth-1 )
next
end fn
int n : n = 3
int m : m = 5
printf @" %d combinations of integers 0 through %d are:", n, m-1
fn Combinations( @"", 0, m-1, n-1 )
HandleEvents