Anonymous user
Cartesian product of two or more lists: Difference between revisions
Cartesian product of two or more lists (view source)
Revision as of 17:40, 21 August 2023
, 9 months agono edit summary
(Added QBasic and Gambas) |
imported>Maxima enthusiast No edit summary |
||
Line 3,257:
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<syntaxhighlight lang="mathematica">cartesianProduct[args__] := Flatten[Outer[List, args], Length[{args}] - 1]</syntaxhighlight>
=={{header|Maxima}}==
<syntaxhighlight lang="maxima">
cartesian_product({1,2},{3,4});
cartesian_product({3,4},{1,2});
cartesian_product({1,2},{});
cartesian_product({},{1,2});
cartesian_product_list([1,2],[3,4]);
cartesian_product_list([3,4],[1,2]);
cartesian_product_list([1,2],[]);
cartesian_product_list([],[1,2]);
create_list([i,j],i,[1,2],j,[3,4]);
create_list([i,j],i,[3,4],j,[1,2]);
create_list([i,j],i,[1,2],j,[]);
create_list([i,j],i,[],j,[1,2]);
</syntaxhighlight>
{{out}}
=={{header|Modula-2}}==
<syntaxhighlight lang="modula2">MODULE CartesianProduct;
| |||