/* 
 * File:   maketkk.c
 * Author: kouno
 *
 * Created on 2008/06/11, 14:19
 * Version 2
 */

#include <stdio.h>
#include <stdlib.h>
#define EXIT_FALSE 1
#define MAX_VERTEX_SIZE 15
#define MAX_EDGE_SIZE 2*MAX_VERTEX_SIZE
#define MAX_FACE_SIZE MAX_VERTEX_SIZE+1
#define MAX_TKK_SIZE 4*MAX_VERTEX_SIZE
char *outfile;
int t[MAX_FACE_SIZE];
int S[MAX_FACE_SIZE];
int p,r,k,a;

void output(void){
  int wk;
  FILE *fp;
  if(NULL==(fp=fopen(outfile,"a"))){
    printf("Cannot open file \n");
    return(EXIT_FALSE);
  }
  for(wk=1;wk<r;++wk){
    fprintf(fp,"%d,",t[wk]);
    printf("%d,",t[wk]);
    }
  fprintf(fp,"%d\n",t[r]);
  printf("%d\n",t[r]);
  fclose(fp);
}
void output_first(void){
  int wk;
  FILE *fp;
  if(NULL==(fp=fopen(outfile,"a"))){
    printf("Cannot open file \n");
    return(EXIT_FALSE);
  }
  fprintf(fp,"# p=%d r=p+1=%d a=6*p=%d\n",p,r,S[r]);
  printf("# p=%d r=p+1=%d a=6*p=%d\n",p,r,S[r]);
  for(wk=1;wk<r;++wk){
    fprintf(fp,"%d,",t[wk]);
    printf("%d,",t[wk]);
    }
  fprintf(fp,"%d\n",t[r]);
  printf("%d\n",t[r]);
  fclose(fp);
}

int check_and_set(void){
  int t1,wk,flag=0;
  for(k=r-1;0<k;k--){
    if(S[k-1]+(r-k+1)*(t[k]+1)<=a){t1=t[k];
      for(wk=k;wk<r;wk++){t[wk]=t1+1;S[wk]=S[wk-1]+t[wk];}
      t[r]=a-S[r-1];
      flag=1;
      break;
    }
  }
  return flag;
}

int check_and_set_data(void){
  while(0<k){if(check_and_set()){break;}}
  if(k==0){return 0;
  }else{
    return 1;
  }
}

int main(int argc, char** argv) {
  int wk;
  int ai=1;
  int two_option=0;
  int four_option=0;
  if(argc<=1){
    printf("Usage: %s [-2/-4] VertexNumber [outfile(default is tkkData)]\n",argv[0]);
    return EXIT_FALSE;
  }
  if(!strcmp(argv[ai], "-2")){two_option=1;ai++;}
  if(!strcmp(argv[ai], "-4")){four_option=1;ai++;}
  p=atoi(argv[ai]);
  if(argv[ai+1]){outfile=argv[ai+1];}else{outfile="tkkData";}
  r=p+1;
  a=6*p;
  if(two_option){
  t[1]=2;S[1]=2;
  for(wk=2;wk<r;wk++){t[wk]=2;S[wk]=S[wk-1]+t[wk];}
  t[r]=6*p-S[r-1];S[r]=S[r-1]+t[r];
  }else if(four_option){
  t[1]=4;S[1]=4;
  for(wk=2;wk<r;wk++){t[wk]=4;S[wk]=S[wk-1]+t[wk];}
  t[r]=6*p-S[r-1];S[r]=S[r-1]+t[r];
  }else{
  t[1]=3;S[1]=3;
  for(wk=2;wk<r;wk++){t[wk]=3;S[wk]=S[wk-1]+t[wk];}
  t[r]=6*p-S[r-1];S[r]=S[r-1]+t[r];
  }
  output_first();
  k=r-1;
  while(check_and_set_data()){output();}
  return (EXIT_SUCCESS);
}