#include<stdio.h>
#include<stdlib.h>
#include<string.h>
#include<ctype.h>

#define MAXCH 10
#define MAXWORD 1000

FILE *openCommandlineFile(int, char **);


typedef struct dt {
     char tango[MAXCH];
    int count;
} Data;

enum{NO,YES};

int WordCnt(Data * tp, int num, char *ptr)
{
  int pos;
  int find;
  char buf[MAXCH+1],*p;
  while(*ptr != '\0'){
    while( *ptr != '\0' && !isalpha(*ptr)){
       ptr++;
    }
    if( *ptr == '\0'){
       break;
    }
   
    
    p=buf;
    for(pos=0;pos<MAXCH && isalpha(*ptr);pos++){
       *p++=*ptr++;/* bufにptrの値を入れていく */
    }
    *p='\0';/*buf文字列の最後に\0を入れる*/
    while(*ptr != '\0' && isalpha(*ptr)){
      ptr++;
    }

    find=NO;
    for(pos=0;pos<num;pos++){/*numは最初0に初期化されているから最初はif(!find)文へいく*/
       if(strcmp(tp[pos].tango,buf)==0){
           tp[pos].count++;
           find=YES;
           break;
       }
    }
    if(!find){/*find=NOのとき*/
       strcpy(tp[num].tango,buf);
       tp[num].count=1;
       num++;
    }
    
  }
 return num;
}
  



int main(int argc, char **argv)
{
    FILE *fp;
    char line[1000];
    Data dataBase[MAXWORD]; 
    int num=0;
    int cnt;
    
    fp = openCommandlineFile(argc, argv);
    if ( fp == NULL ) {
        exit(-1);
    }

    while(fgets(line, sizeof line,fp)!=NULL){
      num=WordCnt(dataBase,num,line);
      if(MAXWORD<num){
         break;
      }
      
    }
                                         
    
    fclose(fp);

   
    printf("頻度  単語\n");
    for ( cnt = 0; cnt < num; cnt++) {
        printf("%4d ", dataBase[cnt].count);
        printf("%s",dataBase[cnt].tango);
      
       

        putchar('\n');                      
       
    }

    return 0;
}

/*
  コマンドライン解析を行い、コマンドラインの第2引数のファイル
  オープンして返す。引数なしの場合は標準入力を返す。
*/
FILE *openCommandlineFile(int argc, char **argv)
{
    FILE *fp;

    if (argc <= 1) {
        return stdin;
    } else if (argc >= 3) {
        fprintf(stderr, "引数が多すぎます。\n");
        return NULL;
    } else { // argc == 2
        fp = fopen(argv[1], "r");
        if (fp == NULL) {
            fprintf(stderr, "ファイルを開けません。\n");
            return NULL;
        }
    }
    return fp;
}

int hash_func(char *str){
 int n,length,h,weight;
 length=strlen(key);
 for(n=weight=h=0;n<length;++n,++weight)
 {
  if(weight>7)
    weight=0;
  h+=(int)key[n]<<(4*weight);
 }
 return (unsigned int)h%HASHSIZE;
}

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

#define HASHSIZE  307

typedef struct Data { char *word; int count; struct Data *next; } Data;

Data *hashtab[HASHSIZE];

unsigned int hash(const char *word)
{
    unsigned int v = 0;
    while (*word) v = v*31 + *word++;
    return v % HASHSIZE;
}

Data *add(const char *word)
{
    Data *p;  unsigned int v = hash(word);

    for (p = hashtab[v]; p && strcmp(p->word, word); p = p->next) ;
    if (p) p->count++;
    else {
        p = malloc(sizeof(Data));
        if (p == NULL) return NULL;
        p->word = strdup(word);
        if (p->word == NULL) { free(p); return NULL; }
        p->count = 1;
        p->next = hashtab[v];
        hashtab[v] = p;
    }
    return p;
}

void word_count(FILE *fp)
{
    char word[256];  int i;  Data *p;

    while (fscanf(fp, "%*[^a-zA-Z]"), fscanf(fp, "%[a-zA-Z]", word) == 1)
        if (add(word) == NULL) puts("out of memory"), exit(1);

    puts("頻度  単語");
    for (i = 0; i < HASHSIZE; i++)
        for (p = hashtab[i]; p; p = p->next)
            printf("%4d  %s\n", p->count, p->word);
}

int main(int argc, char *argv[])
{
    FILE *fp;

    if (argc > 2) puts("too many argument");
    else if (argc <= 1) word_count(stdin);
    else if (fp = fopen(argv[1], "r")) word_count(fp);
    else puts("can't open file");
    return 0;
}