How to Make Fibonacci Confusing
前几天同事发了这么一段代码:
(fn =>
(f => f(f))(f => fn(n => f(f)(n))))(g => n =>
[1, 2].indexOf(n) > -1 ? 1 : g(n - 1) + g(n - 2)
)(10);
你看这段代码时,一定是这样的心情:
好端端的 斐波那契
是怎么变成这样的,因吹斯听,我们来回放一下。
从正常的写法开始:
const fib = n =>
[1, 2].indexOf(n) >= 0
? 1
: fib(n - 1) + fib(n - 2);
为了让上面看起来不像递归,改写一下,把递归调用改成调用参数 g
:
const wrappedFib = g => n =>
[1, 2].indexOf(n) >= 0
? 1
: g(n - 1) + g(n - 2);
不管 g
传什么,例如就传 null
,1,2 两项都可以计算了,因为压根和 g
无关。
wrappedFib(null)(1);
wrappedFib(null)(2);
如果要计算第 3 项,那么 g
可以是 wrappedFib(null)
。
let g = wrappedFib(null);
wrappedFib(g)(3);
同理,第 4 项:
let g = wrappedFib(wrappedFib(null));
wrappedFib(g)(4);
第 5 项......第 N 项我就不列了。
看起来需要构造一个 g
,它由无限层 wrappedFib
组成。
递归的思想:
const g = n => wrappedFib(g)(n);
运行一下试试吧:
const wrappedFib = g => n =>
[1, 2].indexOf(n) >= 0
? 1
: g(n - 1) + g(n - 2);
const g = n => wrappedFib(g)(n);
console.log(wrappedFib(g)(10));
g
本身是由无限层wrappedFib
组成的,所以wrappedFib(g)
和g
是等价的。因此也可以直接调
console.log(g(10))
。
const g = n => wrappedFib(g)(n);
又看到了明显的递归对不对,试着把它藏起来。思想跟刚开始一样,通过参数传进来。
这段要花点时间理解。
const g = (f => n =>
wrappedFib(f(f))(n))(f => n =>
wrappedFib(f(f))(n)
);
函数本身和函数传参一样,换个写法:
const g = (f => f(f))(f => n =>
wrappedFib(f(f))(n)
);
能到这里,我们和最终的代码已经很接近了。
把 g
中的 wrappedFib
去掉,通过参数 fn
传进来。
const gWaitForWrappedFib = fn =>
(f => f(f))(f => n => fn(f(f))(n));
const g = gWaitForWrappedFib(wrappedFib);
好了,去掉常量的定义,全部连起来吧:
(fn =>
(f => f(f))(f => fn(n => f(f)(n))))(g => n =>
[1, 2].indexOf(n) > -1 ? 1 : g(n - 1) + g(n - 2)
)(10);
拆解这段代码挺烧脑,膜拜一下代码的作者。
更新
读《The Little Schemer》时发现:这段代码和
Y-Combinator
有关。Mark,以后再写个续。
How to Make Fibonacci Confusing的更多相关文章
- 算法与数据结构(九) 查找表的顺序查找、折半查找、插值查找以及Fibonacci查找
今天这篇博客就聊聊几种常见的查找算法,当然本篇博客只是涉及了部分查找算法,接下来的几篇博客中都将会介绍关于查找的相关内容.本篇博客主要介绍查找表的顺序查找.折半查找.插值查找以及Fibonacci查找 ...
- #26 fibonacci seqs
Difficulty: Easy Topic: Fibonacci seqs Write a function which returns the first X fibonacci numbers. ...
- 关于java的递归写法,经典的Fibonacci数的问题
经典的Fibonacci数的问题 主要想展示一下迭代与递归,以及尾递归的三种写法,以及他们各自的时间性能. public class Fibonacci { /*迭代*/ public static ...
- 斐波拉契数列(Fibonacci) 的python实现方式
第一种:利用for循环 利用for循环时,不涉及到函数,但是这种方法对我种小小白来说比较好理解,一涉及到函数就比较抽象了... >>> fibs = [0,1] >>&g ...
- fibonacci数列(五种)
自己没动脑子,大部分内容转自:http://www.jb51.net/article/37286.htm 斐波拉契数列,看起来好像谁都会写,不过它写的方式却有好多种,不管用不用的上,先留下来再说. 1 ...
- POJ3070 Fibonacci[矩阵乘法]
Fibonacci Time Limit: 1000MS Memory Limit: 65536K Total Submissions: 13677 Accepted: 9697 Descri ...
- Fibonacci 数列算法分析
/************************************************* * Fibonacci 数列算法分析 ****************************** ...
- 算法系列:Fibonacci
Copyright © 1900-2016, NORYES, All Rights Reserved. http://www.cnblogs.com/noryes/ 欢迎转载,请保留此版权声明. -- ...
- UVa #11582 Colossal Fibonacci Numbers!
巨大的斐波那契数 The i'th Fibonacci number f (i) is recursively defined in the following way: f (0) = 0 and ...
随机推荐
- SQL Server使用sp_rename重命名约束注意事项
在SQL Server中,我们可以使用sp_name这个系统存储过程重命名数据库中对象的名称. 此对象可以是表. 索引. 列. 别名,约束等数据类型(具体可以参考官方文档).上周在使用这个函数重构数据 ...
- Visual Studio Code-批量在文末添加文本字段
小技巧一例,在vs code或notepad++文末批量添加文本字段信息,便于数据信息的完整,具体操作如下: Visual Studio Code批量添加"@azureyun.com&quo ...
- 二维前缀和模板题:P2004 领地选择
思路:就是使用二维前缀和的模板: 先放模板: #include<iostream> using namespace std; #define ll long long ; ll a[max ...
- [AI分享]零高数理解人工智能和深度学习
- 使用WSL吧
WSL(Windows Subsystem for Linux)已经装在电脑上好一阵子了,谁如果还没装的,可以看看本文,至少知道个大概,觉得有用的话知道该如何做. 简介 WSL简单说就是一个能让你在W ...
- mybatis在xml文件中处理转义字符
第一种方法: 用了转义字符把>和<替换掉,然后就没有问题了. AND start_date <= CURRENT_DATE AND end_date >= CURRENT_DA ...
- SQL优化 MySQL版 - 避免索引失效原则(一)
避免索引失效原则(一) 精力有限,剩余的失效原则将会在 <避免索引失效原则(二)>中连载出来,请谅解 作者 : Stanley 罗昊 [转载请注明出处和署名,谢谢!] 避免索引失效的一些原 ...
- word中如何只修改英文的颜色
替换->更多->使用通配符,查找[a-zA-Z],替换为^&,字体选红色
- 04-创建kubeconfig认证文件
本文档记录自己的学习历程! 创建 kubeconfig 文件 kubelet.kube-proxy 等 Node 机器上的进程与 Master 机器的 kube-apiserver 进程通信时需要认证 ...
- C#工具:MySQL忘记密码解决方法
1.进入管理员控制台停止mysql服务:net stop mysql; 2.进入mysql的安装路径,如我的安装路径为C:\Program Files\MySQL\MySQL Server 5.5,打 ...