- 注册时间
- 2017-1-14
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 10442
- 在线时间
- 小时
|
题目1。A = {1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,......},
用A前n^2个数码, 恰好可以组成n个n位数,当n个数乘积最小时,其中最大的n位数=R(n)。R(n)是这样一串数。
{1, 24, 369, 2469, 24579, 235689, 2345789, 13456789, 123456789, 1234567899, 12344567899, 123345667899, 1233455677899, 12234456677899, 122334556678899, 1223344556778899, 12233445566778899, 112233445566778899}
Table[s = Sort[Mod[Range[0, n^2 - 1], 9] + 1]; v = s[[ ;; n]]; Do[w = Ordering[v, 1][[1]]; v[[w]] = v[[w]]*10 + d, {d, s[[n + 1 ;;]]}]; Max[v], {n, 18}]
编码依据: 1,将A前n^2个数码进行升序排列。2,分配n个最小数码(非0)为最高位,使n个数每个都有一个当前值。3,每次进行相同的分配:依次取数码填在当前值最小的数后面。4,最后得到最小的n位数=R(n)。
题目2。A = {1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9,1,2,3,4,5,......},
用A前n^2个数码, 恰好可以组成n个n位数,当n个数乘积最大时,其中最小的n位数=R(n)。R(n)是这样一串数。
{1, 32, 763, 7642, 77542, 886532, 8865432, 88765431, 987654321, 9876654321, 98776543321, 988765543321, 9887665443221, 98877655433221, 988876655433221, 9888776554433211, 98887766554433211, 998877665544332211}
Table[s = Sort[Mod[Range[0, n^2 - 1], 9] + 1, Greater]; t = s[[ ;; n]]; Do[w = Ordering[t, 1][[1]]; t[[w]] = t[[w]]*10 + d, {d, s[[n + 1 ;;]]}]; Min[t], {n, 18}]
编码依据: 1,将A前n^2个数码进行降序排列。2,分配n个最大数码为最高位,使n个数每个都有一个当前值。3,每次进行相同的分配:依次取数码填在当前值最小的数后面。4,最后得到最小的n位数=R(n)。
题目3。A = {1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,......},
用A前n^2个数码, 恰好可以组成n个n位数,当n个数乘积最小时,其中最大的n位数=R(n)。R(n)是这样一串数。
{1, 24, 369, 2469, 23579, 234679, 2245789, 22345789, 123456789, 1023456789, 10234567899, 102344567899, 1023345667899, 10223445677899, 101233455677899, 1012334456678899, 10122344556778899, 101223344566778899}
Table[s = Sort[Mod[Range[n^2], 10]]; t = Count[s, 0]; v = s[[t + 1 ;; t + n]]; Do[w = Ordering[v, 1][[1]]; v[[w]] = v[[w]]*10 + d, {d, Join[s[[1 ;; t]], s[[t + n + 1 ;;]]]}]; Max[v], {n, 18}]
编码依据: 1,将A前n^2个数码进行升序排列。2,分配n个最小数码(非0)为最高位,使n个数每个都有一个当前值。3,每次进行相同的分配:依次取数码填在当前值最小的数后面。4,最后得到最小的n位数=R(n)。
题目4。A = {1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,......},
用A前n^2个数码, 恰好可以组成n个n位数,当n个数乘积最大时,其中最小的n位数=R(n)。R(n)是这样一串数。
{1, 32, 763, 6642, 77531, 875421, 8865421, 88754321, 887654321, 9876543210, 98765543210, 987765432210, 9877665433210, 98876554432210, 988766554332110, 9887766544322110, 98887665544322110, 988877655443322110}
Table[s = Sort[Mod[Range[n^2], 10], Greater]; t = s[[ ;; n]]; Do[w = Ordering[t, 1][[1]]; t[[w]] = t[[w]]*10 + d, {d, s[[n + 1 ;;]]}]; Min[t], {n, 18}]
编码依据: 1,将A前n^2个数码进行降序排列。2,分配n个最大数码为最高位,使n个数每个都有一个当前值。3,每次进行相同的分配:依次取数码填在当前值最小的数后面。4,最后得到最小的n位数=R(n)。 |
|