问Mathematica在for循环中崩溃

EN

count = 0;   

findConnectedNodes[start_] := Module[{positions, i},

count++;
positions = adjmatrix[[start]] // ArrayRules // Keys;
positions = positions[[1 ;; -2]] // Flatten;

For[i = 1, i <=  Length[positions], i++,

 If[Not[MemberQ[connectedNodes, positions[[i]]]], 
  findConnectedNodes[positions[[i]]]];

 AppendTo[connectedNodes, positions[[i]]];
 connectedNodes = connectedNodes // DeleteDuplicates;

 ]

];

findConnectedAddresses[1];