Рекурсия: удалить из списка (цепочки) L все вхождения элемента Е

#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);};
    
    int N; cin >> N;    
 
    fi_t s0 = cons(N, cons(N-1, cons(N, cons(N+1, nil))));
    show(filter([N](int i)->bool {return i != N;}, s0));
 
    return 0;
}