Message Boards

WOLFRAM COMMUNITY

4337 Views

3 Replies

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics Mathematica Wolfram Language

Book Paul Wellin Prog with math - Rewrite rules

Chiel Geeraert

Posted 10 years ago

POSTED BY: Chiel Geeraert

3 Replies

Sort By:

Chiel Geeraert

Posted 10 years ago

POSTED BY: Chiel Geeraert

Girish Arabale

Posted 10 years ago

Your function can be written as: cartesianProduct[{x_List, y_List}] := ReplaceList[{x, y}, {{___, a_, ___}, {___, b_, ___}} -> {a, b}] It should give the desired output: In[]:= cartesianProduct[{{x1, x2, x3}, {y1, y2}}] Out[]= {{x1, y1}, {x1, y2}, {x2, y1}, {x2, y2}, {x3, y1}, {x3, y2}}

Your function can be written as:

cartesianProduct[{x_List, y_List}] := ReplaceList[{x, y}, {{___, a_, ___}, {___, b_, ___}} -> {a, b}]

It should give the desired output:

In[]:= cartesianProduct[{{x1, x2, x3}, {y1, y2}}]

Out[]= {{x1, y1}, {x1, y2}, {x2, y1}, {x2, y2}, {x3, y1}, {x3, y2}}

POSTED BY: Girish Arabale

Chiel Geeraert

Posted 10 years ago

last paste repeat In[10]:= cartesianProduct[{x_List, y_List}] = ReplaceList[{x, y}, {___, a_, ___} , {___, b_, ___} -> {a, b}] During evaluation of In[10]:= ReplaceList::innf: Non-negative integer or Infinity expected at position 3 in ReplaceList[{x,y},{___,a_,___},{___,b_,___}->{a,b}]. >> Out[10]= ReplaceList[{x, y}, {___, a_, ___}, {___, b_, ___} -> {a, b}]`enter code here`

last paste repeat

    In[10]:= 
        cartesianProduct[{x_List, y_List}] = 
         ReplaceList[{x, y}, {___, a_, ___} , {___, b_, ___} -> {a, b}]

    During evaluation of In[10]:= ReplaceList::innf: Non-negative integer or Infinity
 expected at position 3 in ReplaceList[{x,y},{___,a_,___},{___,b_,___}->{a,b}]. >>

        Out[10]= ReplaceList[{x, y}, {___, a_, ___}, {___, b_, ___} -> {a, b}]`enter code here`

POSTED BY: Chiel Geeraert

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback