Erlang 中的 S 组合器

Question

我开始学习 lambda 演算，我需要在 Erlang 中实现 I、S、K 组合器。 当然，S、K、I代表：

S = λxyz.xz(yz) K = λxy.x I = λx.x

我可以毫无问题地理解纸上的 I=SKK 变换（如下所示：为了证明 SKK 和 II 是 beta 等价的，lambda 演算）但似乎当涉及到函数式语言和高阶函数时，我不明白它......

我设法做到了 I 和 K （可以说在模块 test 中）：

i(X) -> X.
k(X) -> fun(Y) -> X end.

我也知道如何运行 K x (K x) (SKK x = K x (K x))

kxk(X) -> (k(X))(k(X)).

但我无法编写 S 组合器。我尝试过：

s(X) -> fun (Y) -> fun(Z) -> X,Z (Y,Z) end end.

但是，我仍然无法将 SKK x 转换为 x

我尝试像这样运行它：

skkx(X) ->  s((k((k(X))))).

任何帮助将不胜感激，因为我完全迷失了。

Answer 1

从 Erlang shell：

1> I = fun (X) -> X end.
#Fun<erl_eval.6.80247286>
2> K = fun (X) -> fun (Y) -> X end end.
#Fun<erl_eval.6.80247286>
3> S = fun (X) -> fun (Y) -> fun (Z) -> (X(Z))(Y(Z)) end end end.
#Fun<erl_eval.6.80247286>
4> ((S(K))(K))(42).
42

或者作为模块中的函数：

i(X) -> X.
k(X) -> fun(Y) -> X end.
s(X) -> fun (Y) -> fun (Z) -> (X(Z))(Y(Z)) end end.