Составить два списка из четных и нечетных элементов исходного

#include <iostream>
#include <functional>
using namespace std;
 
typedef std::pair<bool, int>  li_t;
typedef std::function<li_t()> fi_t;
 
int main() {    
    fi_t nil  = []() -> li_t {return std::make_pair(false, 0);};
    auto null = [](li_t a) -> bool {return !a.first;};
    auto val  = [](li_t a) -> int  {return a.second;};
    
    auto cons = [](int a, const fi_t& l) -> fi_t {
        int p=0; return [=]() mutable -> li_t {
                    if (p) return l(); else {p=1; return std::make_pair(true, a);}};};
        
    auto filter = [cons,nil,null,val](const auto& p, const fi_t& l) -> fi_t {
        auto go = [p,cons,nil,null,val](const fi_t& l, const auto& la) -> fi_t {
            li_t e=l(); return null(e) ? nil : p(val(e)) ? cons(val(e), la(l, la)) : la(l, la);};
        return go(l, go);};
      
    auto show = [null,val](const fi_t& l) -> int {
        auto go = [null,val](const fi_t& l, auto& la) -> int {
            li_t e=l(); if (null(e)) {cout<<'\n'; return 0;}
                        else {cout<<val(e)<<'\t'; return la(l, la);}};
        return go(l, go);};
        
    auto listFromTo = [cons,nil](int i, int n) -> fi_t {
        auto go = [n,cons,nil](int i, const auto& la) -> fi_t {
            return i<=n ? cons(i, la(i+1, la)) : nil;};
        return go(i, go);};
    
    fi_t evens = filter([](int i)->bool {return i%2==0;}, listFromTo(5, 25));
    fi_t odds  = filter([](int i)->bool {return i%2!=0;}, listFromTo(5, 25));   
 
    show(evens);
    show(odds);
    return 0;
}