Cartesian product of two or more lists: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
|||
| Line 52: | Line 52: | ||
DEFINE MAX_RESULT="100" |
DEFINE MAX_RESULT="100" |
||
DEFINE PTR="CARD" |
|||
| ⚫ | |||
| ⚫ | |||
INT i,j,n |
INT i,j,n |
||
INT ARRAY tmp |
INT ARRAY tmp |
||
| Line 89: | Line 91: | ||
RETURN |
RETURN |
||
PROC Product( |
PROC Product(PTR ARRAY a INT count |
||
INT ARRAY r INT POINTER groups) |
INT ARRAY r INT POINTER groups) |
||
INT ARRAY ind(MAX_COUNT),tmp |
INT ARRAY ind(MAX_COUNT),tmp |
||
| Line 129: | Line 131: | ||
RETURN |
RETURN |
||
PROC Test( |
PROC Test(PTR ARRAY a INT count) |
||
INT ARRAY r(MAX_RESULT) |
|||
INT groups |
INT groups |
||
| Line 147: | Line 149: | ||
a6=[3 4 14 23],a7=[2 0 1], |
a6=[3 4 14 23],a7=[2 0 1], |
||
a8=[3 1 2 3],a9=[1 30],a10=[2 500 100] |
a8=[3 1 2 3],a9=[1 30],a10=[2 500 100] |
||
PTR ARRAY a(4) |
|||
a(0)=a1 a(1)=a2 Test(a,2) |
a(0)=a1 a(1)=a2 Test(a,2) |
||