百度之星的一道与斐波那契数列有关的题

wayne · 发表于 2012-12-21 12:31:13

16# chyanog 仔细看了你的代码, 发现有很多闪光的地方. 非常不错! 我上面贴的是最原始的代码,是C语言实现的原型.

wayne · 发表于 2012-12-21 13:05:37

这是一个彻底字符串处理的版本,有点长:

f[a0_, b0_, n0_] :=
Module[{a = a0, b = b0, n = n0, i, t, tmp},
tmp = NestWhile[# <> ToString@Tr@ToExpression[Characters[StringTake[#, -2]]] &,
"baiduStar" <> ToString[a] <> ToString[b], StringFreeQ @@ StringSplit[StringInsert[#, " ", -3]] &];
tmp = IntegerDigits@ToExpression@First@StringCases[tmp, NumberString];
t = StringJoin[ToString /@ tmp];
t = StringPosition[t, StringTake[t, -2]][[1, 1]];
tmp[[If[n < t, n, Mod[n - t, Length[tmp] - t - 1] + t]]]]

复制代码

chyanog · 发表于 2012-12-21 17:49:30

用字符串处理也不错；xx我习惯写成Table[0, {10}, {10}]的 PS ：python的字符串操作很方便，我估计mathematica6引入的Span就是借鉴了py的切片，py中的字符串和列表一样都能用切片的

chyanog · 发表于 2012-12-21 18:03:28

21# wayne 这就过奖了，几行代码会有几个闪光点，

wayne · 发表于 2012-12-21 21:13:33

23# chyanog 谁借鉴谁还不一定吧,你查过先后顺序吗. Table[0, {10}, {10}] 或者 ConstantArray[0, {10, 10}] 或者 0 IdentityMatrix[10] 都可以

chyanog · 发表于 2012-12-21 21:18:51

25# wayne 貌似Array[0 &, {10, 10}]最短

wayne · 发表于 2012-12-21 21:24:58

26# chyanog 哈哈, 这个相当于是没有输入参数的纯函数了!漂亮! 没想到还可以玩这个小trick 呢!

wayne · 发表于 2012-12-21 21:32:46

发现跟chyanog比起来,我的代码很中规中矩阿. 有兴趣可以关注一下官网举办的one-liner比赛吧.

chyanog · 发表于 2012-12-21 21:37:39

28# wayne 我也是中规中矩啊，one-liner比赛也听说过，还没怎么关注

chyanog · 发表于 2012-12-21 21:47:12

23# chyanog 谁借鉴谁还不一定吧,你查过先后顺序吗. Table[0, {10}, {10}] 或者 ConstantArray[0, {10, 10}] 或者 0 IdentityMatrix[10] 都可以 wayne 发表于 2012-12-21 21:13

先后顺序已经考察过了，Python的早一些

账号		自动登录	找回密码
密码			欢迎注册

[提问] 百度之星的一道与斐波那契数列有关的题