Re: Help !!!!!!!

• To: mathgroup at smc.vnet.net
• Subject: [mg12911] Re: [mg12778] Help !!!!!!!
• From: "Jrgen Tischer" <jtischer at col2.telecom.com.co>
• Date: Wed, 24 Jun 1998 03:44:33 -0400
• Sender: owner-wri-mathgroup at wolfram.com

```Hi, Henrique Gloria etc,

In[1]:=
ru[{a_,b_}]:={{{x_,a}}->{{x,a},{{a,b}}},{{x_,a},l__}->{{x,a},l,{{a,b}}}
}
In[2]:=
fu[li_List,{a_,b_}]:=If[FreeQ[li,{_,a}],{li,{{a,b}}},li/.ru[{a,b}]]
In[3]:= Fold[fu,{First[A]},Rest[A]]

Jrgen

-----Original Message-----
From: Gloria <terravella at redestb.es> To: mathgroup at smc.vnet.net
Subject: [mg12911] [mg12778] Help !!!!!!!

>
>                Hi:
>
>     How  Can  I   convert  the  list A   to  list  B ??
>
>
>  A=
>{{1,2},{1,3},{2,4},{2,5},{4,6},{4,7},{5,8},{5,9},{6,10},{6,11},{7,12},{7
,13
}
>,{10,14},{10,15},{10,16},{11,17},{11,18},{11,19},{12,20},{12,21}}
>
>
> B=
>{{{1,2},{{2,4},{{4,6},{{6,10},{{10,14}},{{10,15}},{{10,16}}},{{6,11},{{1
1,1
7
>}},{{11,18}},{{11,19}}}},{{4,7},{{7,12},{{12,20}},{{12,21}}},{{7,13}}}},
{{2
,
>5},{{5,8}},{{5,9}}}},{{1,3}}}
>
>
>                Thank  you for your  help.
>
>              Henrique cao
>