Можно ли создать рекурсивную анонимную функцию?

__SUB__ появилось в какой-то версии перла.
Ну и + наверняка можно goto сделать на метку.
https://rosettacode.org/wiki/Y_combinator#Perl

Вот зачем гадить в теги? При чем тут lisp?

Вот зачем гадить в теги? При чем тут lisp?

чтобы развести специальную олимпиаду, конечно же

Y комбинатор?

LISP при том, что когда я рекурсивно программлю на Perl - почему-то вспоминаю о функциональных языках и в частности - о LISP :)

Можно.

LISP при том, что когда я рекурсивно программлю на Perl - почему-то вспоминаю о функциональных языках и в частности - о LISP :)

Как я понял, тебе нужно не ФП-решение (Y комбинатор), а какой-то перлячий хак. Соответственно - Lisp тут явно лишний.

Удваиваю вариант с __SUB__. Но он относительно новый, поэтому далеко не всюду взлетит.

Всегда можно накостылить - положить лямбду в переменную и передать её другой лямбде, как это сделал чуть выше theNamelessOne. В Common Lisp это можно спрятать за макрос и сделать красиво.

«__SUB__» начиная с perl 5.16, и «goto» если нужен tail call:

sub { say $_[0]; goto __SUB__ if --$_[0] }->(my $n = 10)

никакого смысла давать им имена нет

Это зря. Избегаю полностью анонимных функций - удобно когда стектрейсы помогают дебагу:

my $maybe_set_subname = sub { $ARG[1]; };

# Supported on Perl 5.22+
eval {
    require Sub::Util;

    if (my $set_subname = Sub::Util->can('set_subname')) {
        $maybe_set_subname = $set_subname;
    }
};

my $lambda= sub {};
$maybe_set_subname->('name_of_lambda', $lambda);

(lambda f: f(f))(lambda f: f(f))

Пояснение: первая анонимная функция только запускает рекурсию, дальше работает анонимная функция-аргумент. В реальном коде первая функция-«пускалка» будет иметь тот же вид, а рабочая усложняться.

Сдаётся мне, что подход с goto - по сути просто замена рекурсии на цикл?

Функциональные фичи perl'а во многом представляют собой синтактический сахар, поэтому только костыльные варианты есть, в то же время в lisp'e или ocaml'e рекурсивная анонимная функция создается стандартными средствами.

Круто! Сам придумал?

поэтому только костыльные варианты есть, в то же время в lisp'e или ocaml'e рекурсивная анонимная функция создается стандартными средствами.

Чем вариант на лиспе менее костылен, чем аналогичный на perl?

Сам придумал?

Хорошая шутка.

Почему шутка? Мне правда понравилось. Я б, наверное, не догадался так сделать.

да, так и есть

Идея довольно очевидная. Я не знаю Перл, но monk, кажется, то же самое нарисовал выше меня по треду в более наглядном примере: Можно ли создать рекурсивную анонимную функцию? (комментарий)

В свою очередь его пример калька с лиспового варианта theNamelessOne.

Вот в J есть self-reference $:

fac =: (* $:@:<:)`1: @. (0&=)

fix (\blah -> if blabla then blah else quu    )
       ^--- анонимная рекурсивная функция -^^

не лисп и не перл правда

опередил

Очень удобный ЯП. Можно любой набор символов выдавать за рабочую программу.

Почти всегда так оно и получается) Хотя практичнее там будет писать в «явном» стиле, где есть более-менее стандартные ключевые слова