/*
 * @(#) wl_hgram.c - Text words length histogram calculator.
 * (c) 1995 Ivan Maidanski <ivmai@chat.ru> http://ivmai.chat.ru
 * Freeware program source. All rights reserved.
 **
 * Language: ANSI C
 * Tested with: BSD GNU CC
 * Last modified: 1995-10-28 14:50:00 GMT+04:00
 */

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

#define MAXWORD 20
#define WIDTH 40

typedef unsigned int twordcount;
typedef int tchar;
typedef enum {IN,OUT} tinout;

main ()
{
 twordcount wlen[MAXWORD];
 twordcount i,j,max=0,overflow=0;
 tinout status=OUT;
 tchar ch;
 for (i=0;i<MAXWORD;i++) wlen[i]=0;
 printf("Input Text:\n");
 while ((ch=getchar())!=EOF)
 {
  if (isspace(ch))
  {
   if (status==IN)
    {
     status=OUT;
     if (i<MAXWORD) wlen[i]++;
      else overflow++;
    }
  }
   else
    if (status==IN)
     i++;
     else
     {
      status=IN;
      i=0;
     }
 }
 if (status==IN)
  if (i<MAXWORD)
   wlen[i]++;
   else overflow++;
 for (i=0;i<MAXWORD;i++)
  if (wlen[i]>max) max=wlen[i];
 if (max<WIDTH) max=WIDTH;
 printf("\nResult Histogram:");
 if (overflow)
  {
   printf(" (%d too long word(s) found)",overflow);
   overflow=MAXWORD-1;
  }
  else
   {
    for (i=0;i<MAXWORD;i++)
     if (wlen[i]) overflow=i;
   }
 printf("\n");
 for (i=0;i<=overflow;i++)
 {
  printf("%2d - %2d |",i+1,wlen[i]);
  for (j=wlen[i]*WIDTH/max;j>0;j--) printf("*");
  printf("\n");
 }
 printf("\n");
 return 0;
}