!752

answer {
  exceptionToUser {
    if (!tb()) null;
    
    if "how many lines"
      ret lstr(getLog());
      
    if "how many users"
      ret lstr(getUsers());
      
    if "how many different words" 
      ret lstr(getWords());
      
    if "some users"
      ret some(getUsers());
      
    if "some words"
      ret some(getWords());
      
    if "longest message"
      ret shorten(longest(getTexts()), 100);
  }
}

static L getLog() {
  ret getTBLog();
}

static Set<S> getUsers() {
  ret asTreeSet(collectField(getLog(), "userName"));
}

static L<S> getTexts() {
  ret collectField(getLog(), "text");
}

static Set<S> getWords() {
  L<S> lines = getTexts();
  new TreeSet<S> set;
  for (S text : lines) {
    for (S t : codeTokens(nlTok(text))) {
      if (isExtendedIdentifier(t))
        set.add(t.toLowerCase());
    }
  }
  ret set;
}

static S some(Collection<S> c) {
  ret join(" ", selectRandom(asList(c), 10));
}

static S longest(L<S> l) {
  new Map<S, Integer> map;
  for (S s : l)
    map.put(s, l(s));
  ret highest(map);
}