| 数学
|
括号[tree_]:=(展平[{tree,,0} ]/. 0->{0})//.{1,,z(z)___,___,1,,a_List,b_List,,y__}:>{1,,z(z), {, {1,,一,,b条},},y} ;widthfirst[dectree_]:=b2d[Drop[Flatten[{表[Cases[Level[ #, {[编号{k个},},z(z)], _], _整数], {], {k个,,深度[#]-1}]}/.z->列表], -], -1 ] ] & @(支架@d2b[dectree]);ToCycles[订购[widthfirst/@wood[9]];比较中的函数A014486号.
|