Cartesian product of two or more lists: Difference between revisions
Content added Content deleted
(Added QBasic and Gambas) |
imported>Maxima enthusiast No edit summary |
||
Line 3,257: | Line 3,257: | ||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<syntaxhighlight lang="mathematica">cartesianProduct[args__] := Flatten[Outer[List, args], Length[{args}] - 1]</syntaxhighlight> |
<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}}== |
=={{header|Modula-2}}== |
||
<syntaxhighlight lang="modula2">MODULE CartesianProduct; |
<syntaxhighlight lang="modula2">MODULE CartesianProduct; |