公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
318 浏览
If[#1 > 2, 2 #0[#1 - #0[#1 - 2]], 1] & /@ {1, 2, 5}
用户: 奋斗的大灰狼 (206 分)

1个回答

+2 投票
 
已采纳

Slot帮助里面有解释的,

首先,#0 stands for the whole pure function:

 f[#0] &[x]
 f[f[#0] &]

然后看个递归定义的例子,A recursive definition for factorial using #0:

f = If[#1 == 1, 1, #1 #0[#1 - 1]] &
f[10]
10!

输出 

If[#1 == 1, 1, #1 #0[#1 - 1]] &
3628800
3628800

所以f=If[#1 > 2, 2 #0[#1 - #0[#1 - 2]], 1] & 相当于g = If[#1 > 2, 2 g[#1 - g[#1 - 2]], 1] &

f=If[#1>2,2 #0[#1-#0[#1-2]],1]&;
g=If[#1>2,2 g[#1-g[#1-2]],1]&;
f /@ Range[10]
g /@ Range[10]

输出

{1, 1, 2, 4, 4, 2, 4, 4, 8, 4}
{1, 1, 2, 4, 4, 2, 4, 4, 8, 4}

 

用户: 随堂测验 (606 分)
采纳于 用户:奋斗的大灰狼
...