Сформировать двунаправленный список целых чисел

#include <iostream>
#include <cstdlib>
 
struct node {
    node* prev;
    node* next;
    int   val;
};
 
typedef struct {
    node* head;
    node* tail;
} list_t;
 
inline void list_init(list_t* lst);
bool  list_add(list_t* lst, int val);
void  list_clear(list_t* lst);
node* list_delete(list_t* lst, node* pos);
void  list_remove(list_t* lst, bool (*pcmp)(int));
 
bool icmp(int val) { return ((val % 2) == 0); }
 
 
int main(void){
    list_t lst;
    list_init(&lst);
    for(int i = 0; i < 10; ++i){
        int n = 1 + rand() % 9;
        list_add(&lst, n);
        std::cout << n << ' ';
    }
    std::cout << std::endl;
 
    //удалить все чётные числа
    list_remove(&lst, &icmp);
 
    //вывести с начало
    for(const node* a = lst.head; a != NULL; a = a->next)
        std::cout << a->val << ' ';
    std::cout << std::endl;
 
    //вывести с конца
    for(const node* b = lst.tail; b != NULL; b = b->prev)
        std::cout << b->val << ' ';
    std::cout << std::endl;
    list_clear(&lst);
    return 0;
}
 
//удаление элементов по функтору
void list_remove(list_t* lst, bool (*pcmp)(int)){
    for(node* p = lst->head; p != NULL; ){
        if((*pcmp)(p->val))
            p = list_delete(lst, p);
        else
            p = p->next;
    }
}
 
//удаление элемента
node* list_delete(list_t* lst, node* pos){
    node*  p;
    node*& h = lst->head;
    node*& t = lst->tail;
    if(pos == NULL)
        return NULL;
    else if(pos == h){
        p = h = h->next;
        if(h != NULL)
            h->prev = NULL;
        else
            t = NULL;
    } else if(pos == t){
        p = NULL;
        t = t->prev;
        if(t != NULL)
            t->next = NULL;
        else
            h = NULL;
    } else {
        pos->prev->next = pos->next;
        pos->next->prev = pos->prev;
        p = pos->next;
    }
    delete pos;
    return p;
}
 
//вставка в конец списка
bool list_add(list_t* lst, int val){
    node* p = new (std::nothrow) node();
    if(p == NULL)
        return false;
 
    p->prev = p->next = NULL;
    p->val  = val;
 
    if(lst->head == NULL)
        lst->head = lst->tail = p;
    else {
        p->prev = lst->tail;
        lst->tail->next = p;
        lst->tail = p;
    }
    return true;
}
 
//удаление всех
void list_clear(list_t* lst){
    node* t;
    while(lst->head != NULL){
        t = lst->head;
        lst->head = lst->head->next;
        delete t;
    }
    lst->tail = NULL;
}
 
//инициализация
inline void list_init(list_t* lst){
    lst->head = lst->tail = NULL;
}