1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
// Copyright Abel Sinkovics (abel@sinkovics.hu) 2012.
// Distributed under the Boost Software License, Version 1.0.
// (See accompanying file LICENSE_1_0.txt or copy at
// http://www.boost.org/LICENSE_1_0.txt)
#include <example_in_haskell.hpp>
#include <iostream>
int main()
{
using boost::mpl::int_;
std::cout
<< "fib 6 = " << fib::apply<int_<6> >::type::value << std::endl
<< "fact 4 = " << fact::apply<int_<4> >::type::value << std::endl
<< "times4 3 = " << times4::apply<int_<3> >::type::value << std::endl
<< "times11 2 = " << times11::apply<int_<2> >::type::value << std::endl;
}
|
