1 // Copyright Louis Dionne 2013-2017
2 // Distributed under the Boost Software License, Version 1.0.
3 // (See accompanying file LICENSE.md or copy at http://boost.org/LICENSE_1_0.txt)
4
5 #include <boost/hana/assert.hpp>
6 #include <boost/hana/equal.hpp>
7 #include <boost/hana/scan_right.hpp>
8 #include <boost/hana/tuple.hpp>
9
10 #include <sstream>
11 namespace hana = boost::hana;
12
13
__anon4a3190410102(auto x) 14 auto to_string = [](auto x) {
15 std::ostringstream ss;
16 ss << x;
17 return ss.str();
18 };
19
__anon4a3190410202(auto element, auto state) 20 auto f = [](auto element, auto state) {
21 return "f(" + to_string(element) + ", " + to_string(state) + ")";
22 };
23
main()24 int main() {
25 // with initial state
26 BOOST_HANA_RUNTIME_CHECK(hana::scan_right(hana::make_tuple(1, "2", '3'), 4, f) == hana::make_tuple(
27 "f(1, f(2, f(3, 4)))",
28 "f(2, f(3, 4))",
29 "f(3, 4)",
30 4
31 ));
32
33 // without initial state
34 BOOST_HANA_RUNTIME_CHECK(hana::scan_right(hana::make_tuple(1, "2", '3'), f) == hana::make_tuple(
35 "f(1, f(2, 3))",
36 "f(2, 3)",
37 '3'
38 ));
39 }
40