为删除一个元素，只标记上该元素被删除（使用一个附加的bit域），表中删除元素和非被删除元素的个数作为数据结构的一部分被保留。如果被删除元素和非被删除元素的个数一样多，遍历整个链表，对所有被标记的节点执行标准的删除算法。
谁能帮写个参考例程呢？谢谢。

typedef struct nodeDate {
   int flag;         // 删除标志。0:删除；1:使用中。
   ... ...
} *Date;

typedef struct node {
    Date date;
    struct node *next;         // 下一个元素。-1:最后一个元素。
} *Node;

void Pack(Node* head) {
    Node p, q;

    q = *head;
    for (p=*head; p->next > 0; p=q->next)
        if (! p->date->flag ) {
            q->next = p->next;
            free(p->date);
            free(p);
        } else
            q = p;
}