:Begin: :Function: DNSearch :Pattern: DNSearch[depth_Integer, totrun_Integer] :Arguments: {depth, totrun} :ArgumentTypes: {Integer, Integer} :ReturnType: Manual :End: :Begin: :Function: XDNEvolveList :Pattern: XDNEvolveList[{depth_Integer, rlist_List}, init_List, n_Integer] :Arguments: {depth, First[Transpose[init]], Last[Transpose[init]], n, DNProcess[rlist, depth]} :ArgumentTypes: {Integer, IntegerList, IntegerList, Integer, Manual} :ReturnType: Manual :End: :Evaluate: DNProcess[rlist_List, depth_Integer] := Map[DNProcess0, (Flatten[Array[fxf, Table[2^i, {i, depth}]], depth-1] /. fxf->List) /. rlist, {2}] :Evaluate: DNProcess0[list_] := If[Depth[list] > 2, list, {list}] :Begin: :Function: XDNLengthEvolveList :Pattern: XDNLengthEvolveList[{depth_Integer, rlist_List}, init_List, n_Integer, maxsize_Integer:1000] :Arguments: {depth, First[Transpose[init]], Last[Transpose[init]], n, maxsize, DNProcess[rlist, depth]} :ArgumentTypes: {Integer, IntegerList, IntegerList, Integer, Integer, Manual} :ReturnType: Manual :End: :Begin: :Function: XDNCountEvolveList :Pattern: XDNCountEvolveList[{depth_Integer, rlist_List}, init_List, {n_Integer, dn_Integer}, maxdist_Integer:20, maxsize_Integer:1000] :Arguments: {depth, First[Transpose[init]], Last[Transpose[init]], n, dn, maxdist, maxsize, DNProcess[rlist, depth]} :ArgumentTypes: {Integer, IntegerList, IntegerList, Integer, Integer, Integer, Integer, Manual} :ReturnType: Manual :End: :Evaluate: XDNCountEvolveList[{depth_Integer, rlist_List}, init_List, n_Integer, maxdist_Integer:20, maxsize_Integer:1000] := XDNCountEvolveList[{depth, rlist}, init, {n, 1}, maxdist, maxsize] :Begin: :Function: XDNDistinctCountEvolveList :Pattern: XDNDistinctCountEvolveList[{depth_Integer, rlist_List}, init_List, n_Integer, maxdist_Integer:20, maxsize_Integer:1000] :Arguments: {depth, First[Transpose[init]], Last[Transpose[init]], n, maxdist, maxsize, DNProcess[rlist, depth]} :ArgumentTypes: {Integer, IntegerList, IntegerList, Integer, Integer, Integer, Manual} :ReturnType: Manual :End: