Combinatori di punti fissi in C ++
-
02-07-2019 - |
Domanda
Sono interessato a esempi concreti di utilizzo di combinatori a virgola fissa (come y-combinator in C ++. Hai mai usato un combinatore a virgola fissa con uovo o associa al vero codice live?
Ho trovato questo esempio nell'uovo un po 'denso:
void egg_example()
{
using bll::_1;
using bll::_2;
int r =
fix2(
bll::ret<int>(
// \(f,a) -> a == 0 ? 1 : a * f(a-1)
bll::if_then_else_return( _2 == 0,
1,
_2 * lazy(_1)(_2 - 1)
)
)
) (5);
BOOST_CHECK(r == 5*4*3*2*1);
}
Puoi spiegare come funziona tutto questo?
C'è un bell'esempio semplice forse usando il bind con forse un numero minore di dipendenze rispetto a questo?
Soluzione
Ecco lo stesso codice convertito in boost :: bind
notare il combinatore y e il suo sito di applicazione nella funzione principale. Spero che questo aiuti.
#include <boost/function.hpp>
#include <boost/bind.hpp>
#include <iostream>
// Y-combinator compatible factorial
int fact(boost::function<int(int)> f,int v)
{
if(v == 0)
return 1;
else
return v * f(v -1);
}
// Y-combinator for the int type
boost::function<int(int)>
y(boost::function<int(boost::function<int(int)>,int)> f)
{
return boost::bind(f,boost::bind(&y,f),_1);
}
int main(int argc,char** argv)
{
boost::function<int(int)> factorial = y(fact);
std::cout << factorial(5) << std::endl;
return 0;
}
Altri suggerimenti
#include <functional>
#include <iostream>
template <typename Lamba, typename Type>
auto y (std::function<Type(Lamba, Type)> f) -> std::function<Type(Type)>
{
return std::bind(f, std::bind(&y<Lamba, Type>, f), std::placeholders::_1);
}
int main(int argc,char** argv)
{
std::cout << y < std::function<int(int)>, int> ([](std::function<int(int)> f, int x) {
return x == 0 ? 1 : x * f(x - 1);
}) (5) << std::endl;
return 0;
}
Puoi spiegare come funziona tutto questo?
fix2 è un combinatore y (in particolare, è un combinatore per funzioni con due argomenti; il primo argomento è la funzione (ai fini della ricorsione), il secondo argomento è un argomento di funzione "proprio". Crea funzioni ricorsive.
bll :: ret (...) sembra creare una forma di un oggetto funzione, il cui corpo è
if(second arg == 0)
{
return 1;
}
else
{
return second arg * first arg(second arg - 1);
}
Il " pigro " è presumibilmente lì per fermare un'infinita espansione del primo argomento (funzione) (leggi sulla differenza tra combinatori y pigri e rigorosi per vedere perché).
Il codice è abbastanza orribile. Le funzioni anonime sono belle da avere, ma la pirateria informatica per ovviare alla mancanza di supporto sintattico di C ++ fa sì che non valga la pena.