1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
// Copyright (C) 2009-2012 Lorenzo Caminiti
// Distributed under the Boost Software License, Version 1.0
// (see accompanying file LICENSE_1_0.txt or a copy at
// http://www.boost.org/LICENSE_1_0.txt)
// Home at http://www.boost.org/libs/local_function
#include <boost/local_function.hpp>
#include <boost/function.hpp>
#include <boost/phoenix/core.hpp>
#include <boost/phoenix/function.hpp>
#include <boost/detail/lightweight_test.hpp>
//[phoenix_factorial_local
int main(void) {
using boost::phoenix::arg_names::arg1;
int BOOST_LOCAL_FUNCTION(int n) { // Unfortunately, monomorphic.
return (n <= 0) ? 1 : n * factorial_impl(n - 1);
} BOOST_LOCAL_FUNCTION_NAME(recursive factorial_impl)
boost::phoenix::function< boost::function<int (int)> >
factorial(factorial_impl); // Phoenix function from local function.
int i = 4;
BOOST_TEST(factorial(i)() == 24); // Call.
BOOST_TEST(factorial(arg1)(i) == 24); // Lazy call.
return boost::report_errors();
}
//]
|
