In[1]:= list={{v1 , v2 },{v2, v3 },{v3, v1 },{v1 , v4 }}
Out[1]= {{v1,v2},{v2,v3},{v3,v1},{v1,v4}}
In[2]:= MapThread[Rule,Transpose[list]]
Out[2]= {v1->v2,v2->v3,v3->v1,v1->v4}
--David
aitor69gonzalez at gmail.com wrote:
> Hello,
>
> I have a directed graph "mygraph" in a tab delimited file that looks
> like this:
> v1 v2
> v2 v3
> v3 v1
> v1 v4
> I would like to import this graph into mathematica, so that I can take
> advantage of the -DiscreteMath`Combinatorica`- functions. So far, I was
> only able to import it with Import["mygraph","TSV"] into a list of
> two-item lists. Now, I am stuck there. Can somebody help me to convert
> this list of two-item lists into a matrix or adjacency list of a
> directed graph?
>
> Thank you in advance,
>
> Aitor