aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Combinations/FutureBasic/combinations.basic Normal file
View file

@ -0,0 +1,16 @@
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