确定连接部件的数量

Question

您将得到一个通过邻接列表表示的图。例如，输入

1-2 2-3 3-4 4-1

对应于节点1、2、3和4的图，其中1连接到2，2连接到3，3连接到4，4连接到1(形成正方形)。

任务是确定由输入的邻接列表表示的图的连通分量数。“连接组件”是一组节点，从这些节点没有路径可以到达不在集合中的任何其他节点。

示例：

输入：1-2 2-3 4-5 输出：2

你选择的语言-最短的代码可能。

Answer 1

Mathematica 126

在x保存输入字符串时，

t = ToExpression; 
Length@ConnectedComponents@Graph[Characters /@ ImportString[x, "Table"][[1]] /. 
{a_, "-", b_} :>   UndirectedEdge[t@a, t@b]]

如果将x作为无向边列表输入，则可以将其简化为34个字符：

Length@ConnectedComponents@Graph@i

示例：

Answer 2

Sage，77

len(Graph([t.split('-')for t in raw_input().split()]).connected_components())