:Begin: :Function: SDNSearch :Pattern: SDNSearch[depth_Integer, totrun_Integer] :Arguments: {depth, totrun} :ArgumentTypes: {Integer, Integer} :ReturnType: Manual :End: :Begin: :Function: XSDNEvolveList :Pattern: XSDNEvolveList[{depth_Integer, rlist_List}, {init_List, nai_Integer}, n_Integer] :Arguments: {depth, First[Transpose[init]], Last[Transpose[init]], nai, n, SDNProcess[rlist, depth]} :ArgumentTypes: {Integer, IntegerList, IntegerList, Integer, Integer, Manual} :ReturnType: Manual :End: :Evaluate: SDNProcess[rlist_List, depth_Integer] := Map[SDNProcess0, (Flatten[Array[fxf, Table[2^i, {i, depth}]], depth-1] /. fxf->List) /. rlist] :Evaluate: SDNProcess0[{list_, na_}] := {If[Depth[#] > 2, #, {#}]& /@ list, na} :Begin: :Function: XSDNLengthEvolveList :Pattern: XSDNLengthEvolveList[{depth_Integer, rlist_List}, {init_List, nai_Integer}, n_Integer, maxsize_Integer:1000] :Arguments: {depth, First[Transpose[init]], Last[Transpose[init]], nai, n, maxsize, SDNProcess[rlist, depth]} :ArgumentTypes: {Integer, IntegerList, IntegerList, Integer, Integer, Integer, Manual} :ReturnType: Manual :End: :Begin: :Function: XSDNCountEvolveList :Pattern: XSDNCountEvolveList[{depth_Integer, rlist_List}, {init_List, nai_Integer}, n_Integer, maxdist_Integer:20, maxsize_Integer:1000] :Arguments: {depth, First[Transpose[init]], Last[Transpose[init]], nai, n, maxdist, maxsize, SDNProcess[rlist, depth]} :ArgumentTypes: {Integer, IntegerList, IntegerList, Integer, Integer, Integer, Integer, Manual} :ReturnType: Manual :End: :Begin: :Function: XSDNDistinctCountEvolveList :Pattern: XSDNDistinctCountEvolveList[{depth_Integer, rlist_List}, {init_List, nai_Integer}, n_Integer, maxdist_Integer:20, maxsize_Integer:1000] :Arguments: {depth, First[Transpose[init]], Last[Transpose[init]], nai, n, maxdist, maxsize, SDNProcess[rlist, depth]} :ArgumentTypes: {Integer, IntegerList, IntegerList, Integer, Integer, Integer, Integer, Manual} :ReturnType: Manual :End: