双方向連結リストのインサートソートの書き直し

前記事で使ったダブルポインタを利用して書き換えました

#include<stdio.h>
#include<stdlib.h>
#include<time.h>
#define MAX 30
typedef struct link_tag{
  struct link_tag *next;
  struct link_tag *prev;
  int id;
}linked_list;
void delete_element(linked_list*,int);
void insert_sort(linked_list**);
void insert_list(linked_list*,linked_list*);
void sub_sort(linked_list**,linked_list*);
void regist_element(linked_list**,linked_list*);
int count_list(linked_list*);
linked_list* head_point(linked_list*);
linked_list* create_element(int);
int main()
{
  int i;
  linked_list *head=NULL,*p;
  srand((unsigned)time(NULL));
  for(i=0;i<MAX;i++)
    regist_element(&head,create_element(rand()%MAX));
  for(p=head,i=1;p;p=p->next,i++)
    printf("%d : %d\n",i,p->id);
  printf("sorted : \n");
  insert_sort(&head);
  for(p=head,i=1;p;i++,p=p->next)
    printf("%d : %d\n",i,p->id);
  printf("\n");
  return 0;
}

int count_list(linked_list *list)
{
  int i=0;
  while(list){
    i++;
    list = list->next;
  }
  return i;
}
linked_list* create_element(int id)
{
  linked_list* new;
  if(!(new = (linked_list*)malloc(sizeof(linked_list)))){
    fprintf(stderr,"failed secure memory\n");
    exit(1);
  }
  new->next = NULL;
  new->prev = NULL;
  new->id = id;
  return new;
}
void regist_element(linked_list **former,linked_list* latter)
{
  linked_list *p;
  if(*former == NULL){
    *former = latter;
    return;
  }
  p = *former;
  while(p->next)
    p = p->next;
  p->next = latter;
  latter->prev = p;
}

void insert_sort(linked_list **head)
{
  linked_list *p,*n;
  p = (*head)->next;
  (*head)->next = NULL;
  while(p){
    n = p->next;
    sub_sort(head,p);
    p = n;
  }
}

void sub_sort(linked_list **head,linked_list *el)
{
  linked_list *p = *head;
  if(p->id > el->id){
    el->next = *head;
    (*head)->prev = el;
    *head = el;
    return;
  }
  while(p->next){
    if(p->next->id < el->id)
        p = p->next;
    else
      break;
  }
    insert_list(p,el);
}

void insert_list(linked_list* p,linked_list* t)
{
  if(p->next){
    p->next->prev = t;
  }
  t->next = p->next;
  p->next = t;
  t->prev = p;
}

実行結果

$ ./list
1 : 24
2 : 23
3 : 1
4 : 29
5 : 2
6 : 5
7 : 21
8 : 9
9 : 1
10 : 15
11 : 5
12 : 5
13 : 8
14 : 2
15 : 1
16 : 10
17 : 23
18 : 23
19 : 15
20 : 0
21 : 12
22 : 7
23 : 23
24 : 9
25 : 23
26 : 6
27 : 8
28 : 21
29 : 4
30 : 17
sorted :
1 : 0
2 : 1
3 : 1
4 : 1
5 : 2
6 : 2
7 : 4
8 : 5
9 : 5
10 : 5
11 : 6
12 : 7
13 : 8
14 : 8
15 : 9
16 : 9
17 : 10
18 : 12
19 : 15
20 : 15
21 : 17
22 : 21
23 : 21
24 : 23
25 : 23
26 : 23
27 : 23
28 : 23
29 : 24
30 : 29

メイン関数のfor文をいつもとは変わった書き方をしてみました