[REBOL] Re: All Combinaisons Fonction
From: joel:neely:fedex at: 26-Aug-2003 7:42
Hi, Philippe,
Assuming that you meant [ [1 2 3] [1 2 4] ...] here's a QAD solution:
8<====================================================================
combine: func [
values [block!] size [integer!]
/local combine1 result
][
result: copy []
if size <= length? values [
do .combine: func [
.values [block!] partial [block!]
][
either size > length? partial [
forall .values [
.combine next .values join partial first .values
]
][
insert/only tail result partial
]
] values copy []
]
result
]
8<====================================================================
-jn-
Philippe Oehler wrote: