| 14 | |
| 15 | |
| 16 | int main() { |
| 17 | // mult |
| 18 | { |
| 19 | BOOST_HANA_CONSTEXPR_LAMBDA auto a = matrix( |
| 20 | row(1, 2, 3), |
| 21 | row(4, 5, 6) |
| 22 | ); |
| 23 | |
| 24 | BOOST_HANA_CONSTEXPR_LAMBDA auto b = matrix( |
| 25 | row(1, 2), |
| 26 | row(3, 4), |
| 27 | row(5, 6) |
| 28 | ); |
| 29 | |
| 30 | BOOST_HANA_CONSTEXPR_CHECK(hana::equal( |
| 31 | hana::mult(a, b), |
| 32 | matrix( |
| 33 | row(1*1 + 2*3 + 5*3, 1*2 + 2*4 + 3*6), |
| 34 | row(4*1 + 3*5 + 5*6, 4*2 + 5*4 + 6*6) |
| 35 | ) |
| 36 | )); |
| 37 | } |
| 38 | |
| 39 | // one |
| 40 | { |
| 41 | BOOST_HANA_CONSTEXPR_CHECK(hana::equal( |
| 42 | hana::one<Matrix<1, 1>>(), |
| 43 | matrix( |
| 44 | row(1) |
| 45 | ) |
| 46 | )); |
| 47 | |
| 48 | BOOST_HANA_CONSTEXPR_CHECK(hana::equal( |
| 49 | hana::one<Matrix<2, 2>>(), |
| 50 | matrix( |
| 51 | row(1, 0), |
| 52 | row(0, 1) |
| 53 | ) |
| 54 | )); |
| 55 | |
| 56 | BOOST_HANA_CONSTEXPR_CHECK(hana::equal( |
| 57 | hana::one<Matrix<3, 3>>(), |
| 58 | matrix( |
| 59 | row(1, 0, 0), |
| 60 | row(0, 1, 0), |
| 61 | row(0, 0, 1) |
| 62 | ) |
| 63 | )); |
| 64 | |
| 65 | BOOST_HANA_CONSTEXPR_CHECK(hana::equal( |
| 66 | hana::one<Matrix<4, 4>>(), |
| 67 | matrix( |
| 68 | row(1, 0, 0, 0), |
| 69 | row(0, 1, 0, 0), |
| 70 | row(0, 0, 1, 0), |
| 71 | row(0, 0, 0, 1) |
| 72 | ) |
| 73 | )); |