Линейный однонаправленный список

#include <iostream>
#include <sstream>
#include <fstream>
 
struct node {
    node* next;
    int   val;
    node(int v):next(NULL), val(v){}
};
 
struct slist {
    node* head, *tail;
};
 
void  slist_init(slist* ls) { ls->head = ls->tail = NULL; }
void  slist_load(slist* ls, std::istream& _in);
node* slist_push_front(slist* ls, int val);
node* slist_push_back(slist* ls, int val);
node* slist_insert(slist* ls, node* p, int val);
node* slist_erase(slist* ls, node* p);
void  slist_clear(slist* ls);
 
int main(void){
    node* p;
    slist ls;
    slist_init(&ls);
 
    char s[] = "1 2 3 -4 5 -6 2 7 8 -9 -2 1";
    std::istringstream sp(s);
    slist_load(&ls, sp);
 
/*  ввод из файла
    std::ifstream fp("file.txt");
    slist_load(&ls, fp);
    fp.close();
*/
 
    //1)Продублировать все элементы со значением, большим заданного. 
    int val = 5;
    for(p = ls.head; p != NULL; p = p->next){
        if(p->val > val)
            p = slist_insert(&ls, p, p->val);
    }
 
    /* 2) Удалить из списка после каждого элемента с заданным значением
    один элемент, если его значение отлично от заданного. */
    val = 2;
    p   = ls.head;
    while(p != NULL){
        if((p->val == val) && (p->next != NULL && p->next->val != val))
            p = slist_erase(&ls, p->next);
        else
            p = p->next;
    }
 
    //3) Определить произведение значений всех положительных элементов списка.
    int m = 1, g = 0;
    for(p = ls.head; p != NULL; p = p->next){
        if(p->val > 0){
            m *= p->val;
            g  = 1;
        }
    }
    std::cout << "muls: " << ((g) ? m : 0) << std::endl;
 
    //4) Удвоить в списке первое вхождение четного элемента.
    for(p = ls.head; p != NULL; p = p->next){
        if((p->val % 2) == 0){
            slist_insert(&ls, p, p->val);
            break;
        }
    }
 
    //вывод
    for(p = ls.head; p != NULL; p = p->next)
        std::cout << p->val << ' ';
    slist_clear(&ls);
    std::cin.get();
    return 0;
}
 
//загрузка чисел из потока
void  slist_load(slist* ls, std::istream& _in){
    int v;
    for(unsigned i = 0; _in >> v; ++i){
        if(i & 1)
            slist_push_front(ls, v);
        else
            slist_push_back(ls, v);
    }
}
 
//вставка в начало списка
node* slist_push_front(slist* ls, int val){
    node* p = new node(val);
    if(ls->head == NULL)
        ls->head = ls->tail = p;
    else {
        p->next  = ls->head;
        ls->head = p;
    }
    return p;
}
 
//вставка в конец списка
node* slist_push_back(slist* ls, int val){
    node* p = new node(val);
    if(ls->head == NULL)
        ls->head = ls->tail = p;
    else {
        ls->tail->next = p;
        ls->tail = p;
    }
    return p;
}
 
//вставка в произвольное место
node* slist_insert(slist* ls, node* pos, int val){
    node* p, *i = ls->head, *j = ls->head;
    while(i != pos){
        j = i;
        i = i->next;
    }
 
    if(i == ls->head)
        p = slist_push_front(ls, val);
    else {
        p = new node(val);
        j->next = p;
        p->next = i;
    }
    return p->next;
}
 
//удаление элемента
node* slist_erase(slist* ls, node* pos){
    node* p, *i = ls->head, *j = ls->head;
    while(i != pos){
        j = i;
        i = i->next;
    }
 
    p = pos->next;
    if(i == ls->head){
        ls->head = ls->head->next;
        if(ls->head == NULL)
            ls->tail = NULL;
    } else {
        j->next = i->next;
        if(pos == ls->tail)
            ls->tail = j;
    }
    delete pos;
    return p;
}
 
//удаление всех
void slist_clear(slist* ls){
    node* t, *&p = ls->head;
    while(p != NULL){
        t = p;
        p = p->next;
        delete t;
    }
    ls->tail = NULL;
}