- UID
- 1
- 帖子
- 3992
|
5#
发表于 2012-6-20 22:16
楼上上在群里谈及编程验证此题,可惜C++我不懂,倒是用 Mathematica 编得出来,贴了在
http://kkkkuingggg.5d6d.net/thread-539-1-1.html
g[n_, d_] := If[Mod[n, d] == 0, -1, 1];
lst = Table[-k, {k, 1, 100}];
Do[lst = lst*Table[g[k, n], {k, 1, 100}], {n, 1, 100}]
lst
得到结果
{1, -2, -3, 4, -5, -6, -7, -8, 9, -10, -11, -12, -13, -14, -15, 16,
-17, -18, -19, -20, -21, -22, -23, -24, 25, -26, -27, -28, -29, -30,
-31, -32, -33, -34, -35, 36, -37, -38, -39, -40, -41, -42, -43, -44,
-45, -46, -47, -48, 49, -50, -51, -52, -53, -54, -55, -56, -57, -58,
-59, -60, -61, -62, -63, 64, -65, -66, -67, -68, -69, -70, -71, -72,
-73, -74, -75, -76, -77, -78, -79, -80, 81, -82, -83, -84, -85, -86,
-87, -88, -89, -90, -91, -92, -93, -94, -95, -96, -97, -98, -99, 100}
可以看出只有完全平方数前面是正的,所以结果符合上面的答案。
链接内后面还有各步状态的数据,由于太长,就不贴过来了。
|
基本信息:kuing,GG,19880618~?,地道广州人,高中毕业,无业游民,不等式爱好者,论坛混混;
现状:冇钱又冇样、冇型又冇款、冇身材又冇文采、冇学历又冇能力、冇高度冇速度冇力度兼夹冇野做!(粤语) |
|