Identifique moléculas 

Uma string SMILES é uma forma de representar um grafo 2D molecular como uma string 1D. Encontre uma maneira de determinar se duas strings SMILES têm a mesma estrutura.

In[1]:=

X sm1 = "CN1C=NC2=C1C(=O)N(C)C(=O2)N2C"; sm2 = "CN2C(=O)N(C)C(=O)C1=C2N=CN1C";

Construa os grafos a partir do SMILES.

In[2]:=

X s = ImportString /@ {sm1, sm2};

In[3]:=

X e = First["EdgeRules" /. #] & /@ s; v = First["VertexTypes" /. #] & /@ s;

In[4]:=

X {g1, g2} = MapThread[ Graph[#1, VertexLabels -> Thread[Range[Length[#2]] -> #2], DirectedEdges -> False] &, {e, v}]

Out[4]=

Os SMILES têm diferentes estruturas.

In[5]:=

X CanonicalGraph[g1] == CanonicalGraph[g2]

Out[5]=