fork(1) download

copy

	struct list{int k, s; list  * next, * pred;};
 
void del(list *p)
{
	p->pred->next=p->next;
	p->next->pred=p->pred;
	delete(p);
}
 
void priv(list * ph)
{
	list * p;
	list *pr;
	list *buf;
    for (p = ph->next; p != ph; p = p->next)
    {
        for (pr = p->next; pr != ph; pr = pr->next)
        {
            if (p->s==pr->s) 
			{p->k= p->k+pr->k; 
			buf=pr->pred;
			del(pr);
			pr=buf;}
        }
    }
}

prog.c:1:24: error: unknown type name 'list'
  struct list{int k, s; list  * next, * pred;};
                        ^
prog.c:3:10: error: unknown type name 'list'
 void del(list *p)
          ^
prog.c:10:11: error: unknown type name 'list'
 void priv(list * ph)
           ^

Standard output is empty