Hi,<br>I am trying to write a routine that would generate a graph - where each vertex would be a string.<br><br>type Graph v = [(v,[v])]  -- list of tuples of vertices and adjacent vertices list<br><br>addEdgeToGraph :: Graph -&gt; String -&gt; String -&gt; Graph<br>
<br>I am having trouble coming up with the body of this function - that takes the original graph, and an edge (string -&gt; string) and the produces the new graph.<br clear="all"><br>-- <br>Regards,<br>Kashyap<br>