#! /bin/gawk -f
# Last edited on 2002-01-07 00:41:07 by stolfi

# usage: count-word-lengths < WORDFILE > FREQFILE
# Input must have one word per line
# Empty lines are ignored

BEGIN{
  hi = -1;
}

/./ {
  w = $1; m = length(w);
  nw[m]++; if (nw[m] == 1) { ww[m] = w; }
  hi = (m > hi ? m : hi);
}

END {
  printf "len nwords example           \n";
  printf "--- ------ ------------------\n";
  for(m=1;m<=hi;m++)
    { printf "%3d %6d %s\n", m, nw[m], ww[m]; }
}