Power set: Difference between revisions
m
→{{header|REXX}}: minor correction
Walterpachl (talk | contribs) (→{{header|REXX}}: Reformat and use a better /readable) version of combinations) |
Walterpachl (talk | contribs) m (→{{header|REXX}}: minor correction) |
||
Line 3,664:
End
Exit
comb: Procedure
/***********************************************************************
* Returns the combinations of size digits out of things digits
Line 3,670:
1 2/ 1 3/ 1 4/ 2 3/ 2 4/ 3 4 /
***********************************************************************/
Parse Arg things,size
n=2**things-1
list=''
Do u=1
co=combinations(u)
If co>'' Then
list=list '/' combinations(u)
End
Return substr(space(list),2) '/' /* remove leading / */
combinations: Procedure Expose things size
| |||