#include <stdio.h>
#include <stdlib.h>
#include <conio.h>

/*=============================
  制作于：Aug 16, 2016
  by QQ:1729403632
===============================*/

#define ST 64 //字符串大小

void mergesort(int *, int);
void _mergesort(int *, int, int, int *);
void merge(int *, int, int, int, int *);
char * s_gets(char *, int);

int main(int argc, char * argv[]){
  FILE * sor, * dest; //sor源文件 dest目标文件
  int * ptr;//临时数组
  int i, n; //n表示元素个数
  char fname[ST]; //临时存储字符串

  printf(\"请输入元素个数:\");
  while( scanf(\"%d\", &n) != 1 || n <= 0 ){
    printf(\"输入错误,请重新输入！\\n\");
    while(getchar() != \'\\n\')
      continue;
  }
  while(getchar() != \'\\n\')
      continue;

  ptr = (int *)malloc( (size_t)n * sizeof(int) ); //申请动态数组//////
  if(ptr == NULL){
    fprintf(stderr, \"FAIL TO ASK FOR MEMORY SPACE\\n\");
    exit(EXIT_FAILURE);
  }

  printf(\"请输入原文件名:\");
  if( s_gets(fname, ST) == NULL ){
    fprintf(stderr, \"Fail to get a string\\n\");
    exit(EXIT_FAILURE);
  }

  sor = fopen(fname, \"r\"); //打开包含数据的源文件
  if(sor == NULL){
    fprintf(stderr, \"Fail to open the source file\\n\");
    exit(EXIT_FAILURE);
  }

  for(i = 0; i < n; i++) //获取数据到动态数组
    if( fscanf(sor, \"%d\", &ptr[i]) != 1 ){
      fprintf(stderr, \"Fail to get the data\\n\");
      exit(EXIT_FAILURE);
    }

  mergesort(ptr, n); //排序

  printf(\"请输入要保存数据的文件名：\");
  if( s_gets(fname, ST) == NULL ){
    fprintf(stderr, \"Fail to get a string\\n\");
    exit(EXIT_FAILURE);
  }

  dest = fopen(fname, \"w\"); //打开目标文件
  if(dest == NULL){
    fprintf(stderr, \"Fail to open the destination file\\n\");
    exit(EXIT_FAILURE);
  }

  for(i = 0; i < n; i++){ //输出数据到目标文件
    if( fprintf(dest, \"%d\\t\", ptr[i]) < 0 ){
      fprintf(stderr, \"Fail to save the data\\n\");
      exit(EXIT_FAILURE);
    }
    if( ((i + 1) % 10) == 0){ //如果写满10个就换行
      if( fprintf(dest, \"\\n\") < 0 ){
        fprintf(stderr, \"Fail to save the data\\n\");
        exit(EXIT_FAILURE);
      }
    }
  }

  if( fclose(sor) != 0 ){ //关闭源文件
    fprintf(stderr, \"Fail to close the source file\\n\");
    exit(EXIT_FAILURE);
  }
  if( fclose(dest) != 0 ){ //关闭目标文件
    fprintf(stderr, \"Fail to close the destination file\\n\");
    exit(EXIT_FAILURE);
  }
  free(ptr); //释放内存

  printf(\"成功完成！\\n请按任意键继续^ ^\\b\\b\");

  getch();
  return 0;
}

void mergesort(int * ar, int size){
  if(size > 0){
    int * temp;
    temp = (int *)malloc( (size_t)size * sizeof(int) ); /////
    if(temp == NULL){
      fprintf(stderr, \"Fail to ask for MEMORY SPACE\\n\");
      exit(EXIT_FAILURE);
    }
    _mergesort(ar, 0, size - 1, temp); //归并排序
    free(temp);
  }
}

void _mergesort(int * ar, int start, int end, int * temp){
  if(start < end){
    int mid = (start + end) / 2;
    _mergesort(ar, start, mid, temp);  //左子数组排序
    _mergesort(ar, mid + 1, end, temp);  //右子数组排序
    merge(ar, start, mid, end, temp);  //合并子数组
  }
}

void merge(int * ar, int p, int q, int r, int * temp){
  int i = p, j = q + 1, k = 0;
  while(i <= q && j <= r){
    if(ar[i] < ar[j])
      temp[k++] = ar[i++];
    else
      temp[k++] = ar[j++];
  }
  while(i <= q)  //如果序列[i...q]存在，追加
    temp[k++] = ar[i++];
  while(j <= r)  //如果序列[j...r]存在，追加
    temp[k++] = ar[j++];

  for(k = 0; k <= (r - p); k++)
    ar[p + k] = temp[k];
}

char * s_gets(char * st, int size){
  char * re;
  int i = 0;

  re = fgets(st, size, stdin);
  if(re){
    while(st[i] != \'\\n\' && st[i] != \'\\0\') //如果没有到输入字符串结束
      i++;  //递增
    if(st[i] == \'\\n\') //如果字符串最后一个字符是\'\\n\'
      st[i] = \'\\0\'; //把它变成\'\\0\'
    else //否则缓冲区内还有一部分超出读取范围的字符没有被读取
      while(getchar() != \'\\n\') //把这些字符读取完（清空缓冲区）
        continue;
  }

  return re;
}