Fungsi PHP rekursif anonim

Apakah mungkin untuk memiliki fungsi PHP yang bersifat rekursif dan anonim? Ini adalah upaya saya untuk membuatnya berfungsi, tetapi tidak lulus dalam nama fungsi.

$factorial = function( $n ) use ( $factorial ) {
    if( $n <= 1 ) return 1;
    return $factorial( $n - 1 ) * $n;
};
print $factorial( 5 );

Saya juga sadar bahwa ini adalah cara yang buruk untuk menerapkan faktorial, itu hanya sebuah contoh.

Agar itu berfungsi, Anda harus memberikan $ factorial sebagai referensi

$factorial = function( $n ) use ( &$factorial ) {
    if( $n == 1 ) return 1;
    return $factorial( $n - 1 ) * $n;
};
print $factorial( 5 );

Saya tahu ini mungkin bukan pendekatan yang sederhana, tetapi saya belajar tentang teknik yang disebut "memperbaiki" dari bahasa fungsional. The fixFungsi dari Haskell dikenal lebih umum sebagai combinator Y , yang merupakan salah satu yang paling terkenal combinators titik tetap .

Titik tetap adalah nilai yang tidak diubah oleh suatu fungsi: titik tetap dari fungsi f adalah x sehingga x = f (x). Sebuah titik tetap combinator y adalah fungsi yang mengembalikan titik tetap untuk setiap fungsi f. Karena y (f) adalah titik tetap dari f, kita memiliki y (f) = f (y (f)).

Pada dasarnya, kombinator Y menciptakan fungsi baru yang mengambil semua argumen dari yang asli, ditambah argumen tambahan yang merupakan fungsi rekursif. Cara kerjanya lebih jelas menggunakan notasi curried. Alih-alih menulis argumen dalam kurung ( f(x,y,...)), menulis mereka setelah fungsi: f x y .... Combinator Y didefinisikan sebagai Y f = f (Y f); atau, dengan argumen tunggal untuk fungsi berulang Y f x = f (Y f) x,.

Karena PHP tidak secara otomatis menjelajah fungsi, ini sedikit hack untuk membuat fixpekerjaan, tapi saya pikir ini menarik.

function fix( $func )
{
    return function() use ( $func )
    {
        $args = func_get_args();
        array_unshift( $args, fix($func) );
        return call_user_func_array( $func, $args );
    };
}

$factorial = function( $func, $n ) {
    if ( $n == 1 ) return 1;
    return $func( $n - 1 ) * $n;
};
$factorial = fix( $factorial );

print $factorial( 5 );

Perhatikan bahwa ini hampir sama dengan solusi penutupan sederhana yang diposkan orang lain, tetapi fungsinya fixmenciptakan penutupan untuk Anda. Combinator titik tetap sedikit lebih kompleks daripada menggunakan penutup, tetapi lebih umum, dan memiliki kegunaan lain. Sementara metode penutupan lebih cocok untuk PHP (yang bukan bahasa yang sangat fungsional), masalah asli lebih merupakan latihan daripada untuk produksi, sehingga kombinator Y adalah pendekatan yang layak.

Meskipun bukan untuk penggunaan praktis, ekstensi tingkat-C mpyw-junk / phpext-callee menyediakan rekursi anonim tanpa menetapkan variabel .

<?php

var_dump((function ($n) {
    return $n < 2 ? 1 : $n * callee()($n - 1);
})(5));

// 5! = 5 * 4 * 3 * 2 * 1 = int(120)

Di versi PHP yang lebih baru Anda dapat melakukan ini:

$x = function($depth = 0) {
    if($depth++)
        return;

    $this($depth);
    echo "hi\n";
};
$x = $x->bindTo($x);
$x();

Ini berpotensi menyebabkan perilaku aneh.

Anda dapat menggunakan Y Combinator di PHP 7.1+ seperti di bawah ini:

function Y
($le)
{return
    (function ($f) 
     {return
        $f($f);
     })(function ($f) use ($le) 
        {return
            $le(function ($x) use ($f) 
                {return
                    $f($f)($x);
                });
        });
}

$le =
function ($factorial)
{return
    function
    ($n) use ($factorial)
    {return
        $n < 2 ? $n
        : $n * $factorial($n - 1);
    };
};

$factorial = Y($le);

echo $factorial(1) . PHP_EOL; // 1
echo $factorial(2) . PHP_EOL; // 2
echo $factorial(5) . PHP_EOL; // 120

Mainkan dengannya: https://3v4l.org/7AUn2

Kode sumber dari: https://github.com/whitephp/the-little-phper/blob/master/src/chapter_9.php

Dengan kelas anonim (PHP 7+), tanpa mendefinisikan variabel:

echo (new class {
    function __invoke($n) {
        return $n < 2 ? 1 : $n * $this($n - 1);
    }
})(5);