Как ты пишешь забаву, которая рекурсивна в Erlang?

Question

Я пытаюсь написать рекурсивное веселье в оболочке Erlang, но получаю исключение для несвязанной переменной:

1> Foo = fun(X) -> Foo(X) end.
* 1: variable 'Foo' is unbound

Это, наверное, само собой разумеется, но я не пытаюсь создать бесконечный цикл! Это простой пример ошибки, которую я получаю.

Answer 1

Вы можете сделать это с помощью небольшого аргумента:

1> Foo = fun(F, X) -> F(F, X) end.
#Fun<erl_eval.12.113037538>
2> Foo(Foo, a).
<...infinite loop!>

Хитрость здесь в том, чтобы отправить функцию в качестве аргумента самому себе, чтобы разрешить рекурсию.

Альтернативный способ сделать это за один выстрел:

1> Foo = fun(X) -> Fun = fun(F,Y) -> F(F,Y) end, Fun(Fun,X) end.
#Fun<erl_eval.6.13229925>
2> Foo(a).

Например:

1> Foo = fun(Max) ->
1>     Fun = fun(F, X) when X > Max -> [];
1>              (F, X) -> [X | F(F, X+1)]
1>           end,
1>     Fun(Fun, 0)
1> end.
#Fun<erl_eval.6.13229925>
2> Foo(10).
[0,1,2,3,4,5,6,7,8,9,10]

Начиная с OTP 17.0 существуют именные забавы, которые значительно облегчают задачу:

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]]

Answer 2

После Erlang 17 вы также можете использовать «Funs с именами» вариант:

Foo = fun F(X) -> F(X) end.

Таким образом, легче понять, что F - это сама функция в определении. Кроме того, Foo и F могут быть одной и той же переменной.

Answer 3

Кроме того, вы можете использовать Y комбинатор. Y Комбинатор в Эрланге объясняет.

Answer 4

Мне нужно было быстро отправить несколько пакетов по UDP для тестирования, и вот как я это сделал, используя приведенные выше примеры:

Sendtimes = fun F(0,Socket) -> ok;
        F(Times,Socket) -> gen_udp:send(Socket, {127,0,0,1}, 5555, ["Message #:" ++ [Times]]),
        F(Times-1,Socket) end.

Answer 5

Очевидно, что Foo назначается только после определения веселья, поэтому к нему нельзя получить доступ из него.

Я не думаю, что Erlang позволяет вызывать анонимную функцию из себя. Просто сделайте его именованным.