2
0
mirror of https://github.com/boostorg/hana.git synced 2026-02-03 09:12:14 +00:00
Files
hana/example/applicative.cpp
2014-08-25 12:33:49 -04:00

44 lines
1.2 KiB
C++

/*
@copyright Louis Dionne 2014
Distributed under the Boost Software License, Version 1.0.
(See accompanying file LICENSE.md or copy at http://boost.org/LICENSE_1_0.txt)
*/
#include <boost/hana/detail/assert.hpp>
#include <boost/hana/detail/constexpr.hpp>
#include <boost/hana/foreign.hpp>
#include <boost/hana/functional.hpp>
#include <boost/hana/maybe.hpp>
#include <boost/hana/tuple.hpp>
using namespace boost::hana;
int main() {
//! [ap]
BOOST_HANA_CONSTEXPR_LAMBDA auto f = _ + _;
BOOST_HANA_CONSTEXPR_ASSERT(
ap(lift<Tuple>(f), tuple(1, 2), tuple(3, 4, 5))
==
tuple(
f(1, 3), f(1, 4), f(1, 5),
f(2, 3), f(2, 4), f(2, 5)
)
);
BOOST_HANA_CONSTEXPR_LAMBDA auto g = [](auto a, auto b, auto c) {
return a * b * c;
};
BOOST_HANA_CONSTEXPR_ASSERT(
ap(lift<Maybe>(g), just(1), just(2), just(3)) == just(1 * 2 * 3)
);
BOOST_HANA_CONSTANT_ASSERT(
ap(lift<Maybe>(g), just(1), nothing, just(3)) == nothing
);
//! [ap]
//! [lift]
BOOST_HANA_CONSTEXPR_ASSERT(lift<Tuple>('x') == tuple('x'));
BOOST_HANA_CONSTEXPR_ASSERT(lift<Maybe>('x') == just('x'));
//! [lift]
}