Function problem_11

examples/99_problems.cpp:89–99

P11 (*) Modified run-length encoding.

// P11 (*) Modified run-length encoding.
void problem_11()
{
    const auto modify = [](const auto& p) -> Ints {
        return p.first == 1 ? Ints({ p.second })
                            : Ints({ static_cast<int>(p.first), p.second });
    };

    print_result(fwd::apply(xs,
        fwd::run_length_encode(),
        fwd::transform(modify)));
}

// P12 (**) Decode a run-length encoded list.
void problem_12()