n个（n） 0 0 1 1 2个1 3 2 4 3 5 4 6 4 7 5 8 5 9 6 10 7 11 7 12 8 13 9 14 10 15 10 16 11 17 12 18 13 19 13 20 14 10000 6823 
f 0=0 f n=n-f（f$f$n-1） main=输入StrLn。 显示$map f[0..20] -- => [0,1,1,2,3,4,4,5,5,6,7,7,8,9,10,10,11,12,13,13,14] 
±0=0 ±n:=n-±±（n-1） 
-$:^:3@<:^:* 如果n=0，a（n）=n-n=0 n-a（a（a（n-1））），如果n>0 -$：^:3@<：^:*输入：n *得到n的符号（n=0=>0，n>0=>1） ^：执行多次 （0次表示它只是一个标识函数） <：减少n $：递归调用自身 ^：3三次 @n-1上 -将n减去该结果并返回 
! n=n>0&&n-~- n个 
a=函数（n）ifelse（n<1,0，n-a（a（n-1））） >a（1） 1 >a（10） 7 
{⍵=0:0⋄⍵-∇⍣3⊢⍵-1} 
0000000:16e0d7 bdcdf8 8cdf1b e6cfbb 840d3 f bf659b e187。。。。。。。。。。。。。。？。 e.8。。 0000015:f8639b 39dc37 fc893f 666c05 e7 ed10 b88b3 f ae0df.c.9.7。。？ 弗勒~~。。。？。。？ 000002a:676ed8 bd9940 7fdc3b 36619e f1 gn…@。。； 6a。。 设置numin，设置numout 得到 jmp公司 jmp公司 rwd 3，add 1，rwd 1，add一，fwd 4，sub一 jnz公司 rwd 3，子1 jnz公司 rwd 3，加1，fwd 2 jmp公司 rwd 1，sub 1，fwd 3，sub一，fwd2，add三 jmp公司 rwd 2型 jmp公司 第三轮驱动 jnz公司 fwd 6、get、rwd 4、sub 1 jmp公司 前向1，副1 jmp公司 第三轮驱动 jnz公司 子1 jmp公司 前进档3 jnz公司 rwd 4，子1 jnz公司 前进档1 jmp公司 rwd 1，加1，fwd 1和加1 jnz公司 分线1、分线3、分线1 jmp公司 前进档3 jnz公司 rwd 1，子1 jnz公司 rwd 2，获取 没有 第三轮驱动 jnz公司 fwd 3、get、rwd 2 jmp公司 fwd 2，加1 jmp公司 前进档3 jnz公司 rwd 1，加1，rwd 2 jmp公司 第三轮驱动 jnz公司 前向1，副1 jnz公司 前进档2 jmp公司 rwd 2，加1，fwd 2和sub 1 jnz公司 没有 获取，fwd 3 jnz公司 rwd 1，加1，fwd 2 jnz公司 rwd 2，子1 jmp公司 rwd 1、sub 1、fwd 1和sub 1 jnz公司 rwd 1，放 
int c（int n）{返回n>0？n-c（c（c）（n-1））：0；} 类Main{ 静态int c（int n）{ 返回n>0 ？ n-c（c（c（n-1））） : 0; } 公共静态void main（String[]a）{ for（int i=0；i<21；i++）{ System.out.println（i+“：”+c（i））； } System.out.println（“1000:”+c（1000））； } } 0: 0 1: 1 2: 1 3: 2 4: 3 5: 4 6: 4 7: 5 8: 5 9: 6 10: 7 11: 7 12: 8 13: 9 14: 10 15: 10 16: 11 17: 12 18: 13 19: 13 20: 14 （最后一个案例耗时太长。） 
a=n=>n&&n-a（a（a（n-1）） 
`如果`（n=0,0，n-a（a（a，n-1））） >a:=n->ifelse（n=0,0，n-a（a（n-1）））； >seq（a（i），i=0..10）； 0, 1, 1, 2, 3, 4, 4, 5, 5, 6, 7 dsn[zdddd1-；a；a；a-r:aln！=L]dsLx； 应用程序 $直流 10000dsn[zdddd1-；a；a；a-r:aln！=L]dsLx； 应用程序 dsn#将n存储为“n”，并将副本作为深度缓冲区保存（参见下文） [#开环定义 z#第i项的推动堆栈深度i dddd#堆栈深度重复四次，总共五个副本 1-#获取i-1作为上一学期的索引 #请注意，如果我们没有复制上面的n，或留下其他内容 #在堆栈上，0-1应该是-1，这不是有效的数组索引 ; a； a； a#获取a（a（a）（i-1）） -#计算i-a（a（a）（i-1）） r#排列堆栈以存储第i个术语：TOS|i（i-a（a（i-1））） ：a#将第i个术语存储在数组“a”中 在= L#负载n.如果n= i、 我们还没有计算完项，所以执行循环 ]#闭环定义。 请注意，我们从五份i: #i-1用于上学期 #i-a（…）用于计算当前项 #。。。 i:a用于存储当前术语 #我进去了= L用于检查回路退出条件 #i的一个副本留在堆栈上以递增计数器 dsLx#复制循环宏，存储并执行复制 ; a#从循环中存储在堆栈上的最后一个i将等于n，因此使用此函数获得a（n） p#打印a（n） 
int a（int n）{返回n？n-a（a（a）（n-1））：0；} #定义C｛constexpr static int a（）｛return 模板<int N>结构H C N-H； 模板结构H；}}； 标准：：cout<<a（20）<<'\n'；// 正常版本 标准：：cout<<H<20>：：a（）<<'\n'；// 模板版本 移动esi，14 
$a={$n=$args[0]；如果（$n）{$n-（&$a（&$a（$n-1）））}其他{0}} 参数（$n）$o=，0； 1..$n|%{$o+=$_-$o[$o[[$_-1]]}$ o[-1]*$ n个 