!7

static int maxWords = 100000;

static int maxWordLength = 10;

static int topTenTargetLength = 10;

static Map<S, Long> map;

static L<S> topTen;

p-subst {

  tt();

  centerHigherConsole();

  map = l_persistentTreeMap("Words + count");

  topTen = l_persistentList("Top Ten");

  printTopTen();

  botIfMain();

}

svoid addWordHits(Collection<S> words) {

  for (S word : words) {

    word = shorten(word, maxWordLength);

    long count = longMultiSet_add(map, word);

    insertToTopTen(word, count);

  }

}

svoid insertToTopTen(S word, long count) {

  int originalIndex = indexOf(topTen, word);

  int i = originalIndex < 0 ? l(topTen) : originalIndex;

  while (i > 0 && count >= toLong(map.get(topTen.get(i-1))))

    --i;

  if (i >= topTenTargetLength || i == originalIndex) ret;

  if (originalIndex >= 0) topTen.remove(originalIndex);

  topTen.add(i, word);

  truncateList(topTen, topTenTargetLength);

}

svoid printTopTen {

  printAsciiHeading("TOP TEN");

  pnl(map(topTen, func(S s) { s + " - " + map.get(s) }));

}

answer {

  if "clear top ten" { topTen.clear(); ret "OK"; }

  addWordHits(words2(s));

  printTopTen();

  try answer "OK";

}