|
（*最多只能工作999999*）
小于等于20={0，4，3，3，6，4，5，3，5，6，6，10，10，12，10，11，10，12,12，8}
十位数={0，6，8，8，5，8，9，8，10，9}
百位数={0，3，6，6，9，6，7，6，8，8}
千={0，10，9，9，12}
f[x_]：=如果[x==0，4，如果[x>999&&x<5000，千[[商[x，1000]+1]]+f[Mod[x，1000]]，
如果[
x<1000，
如果[Mod[x，100]<=20，上限为20[[Mod[x，100]+1]]，上限为20[[Mod[x，10]+1]]+十[[Mod[商[x，10:，10]+1]]+百[[商[x，100]，10]+1]]+千[[商[x，1000]，10]+1]]，
5+f[商[x，1000]]+如果[Mod[x，1000]==0，0，f[Mod[x，1000]]
]
]]
对于[i=0，i<=10000，i++，
j=0；
打印[i，“”，f[i]]
| 