Question

我正在阅读编程Erlang，当我将它们输入到erlang REPL：

＆＃xA;＆＃xA;

  perms（[]） - ＆gt; [[]];＆＃xA;烫发（L） - ＆gt; [[H | T] || H＆lt; -L，T＆lt;  -  perms（L  -  [H]）]。＆＃xA; * 1：语法错误：' - ＆gt;'＆＃xA;

＆ #xA;＆＃xA;

我知道我无法在shell中以这种方式定义函数，因此我将其更改为：

＆＃xA;＆＃xA;

  2＆gt; Perms = fun（[]） - ＆gt; [[]];（L） - ＆gt; [[H | T] || H＆lt; -L，T＆lt;  -  Perms（L  -  [H]）] end。＆＃xA; * 1：变量'Perms'未绑定＆＃xA;

＆＃xA; ＆＃xA;

这是否意味着我无法在shell中定义递归函数？

＆＃xA;

Answer 1

由于OTP 17.0有名为funs：

Funs现在可以命名为

README中的更多详细信息：

OTP-11537  Funs can now be a given a name. Thanks to to Richard O'Keefe
           for the idea (EEP37) and to Anthony Ramine for the
           implementation.

1> Perms = fun F([]) -> [[]];
               F(L) -> [[H|T] || H <- L, T <- F(L--[H])]
           end.    
#Fun<erl_eval.30.54118792>
2> Perms([a,b,c]).
[[a,b,c],[a,c,b],[b,a,c],[b,c,a],[c,a,b],[c,b,a]]

在旧版本中，你必须更聪明一点，但是一旦你得到它：

1> Perms = fun(List) ->
               G = fun(_, []) -> [[]];
                      (F, L) -> [[H|T] || H <- L, T <- F(F, L--[H])]
                   end,
               G(G, List)
           end.    
#Fun<erl_eval.30.54118792>
2> Perms([a,b,c]).
[[a,b,c],[a,c,b],[b,a,c],[b,c,a],[c,a,b],[c,b,a]]

是否可以在Erlang shell中定义递归函数？

1 个答案: