| 数学
|
a[1]=6;;一[n个_]:=a【n】_]:=]=整数反转[From数字[压扁[更换[更换[更换[拆分[整数位数[a【n】]=-1]]], {x个_,年_}->{x个,长度[{x个,年}]}, {1}], {x个_,年_,z(z)_}->{x个,长度[{x个,年,z(z)}]}, {1}], {x个_}->{x个,长度[{x个}]}{1}]]]];
IntegerReverse[FromDigits[Flatten[Replace[Replace[Split[IntegerDigits[a[n-1]],{x_,y_}->{x,Length[{x,y}]},{1}],{x_,y_,z_}->{x,Longth[},y,z}],{x}->{x,长度[{x}]},{1}]]];数组[a,10](*伊万·伊纳基耶夫2019年7月23日*)
数组[a,10](*伊万·伊纳基耶夫2019年7月23日*)
|