!7

static SS map = unstructMap([[lhm{null="assumed", "what is a bear?"="rejected", "a bear is an animal"="assumed", "a bear is dangerous"="assumed", "\"dude\" is a word for someone"="assumed", "Pouet is a website"="assumed", "an integer is a whole number"="assumed", "what is a small bird"="rejected", "what is a good joke"="assumed", "peter is a fun guy"="confirmed", "john is a person"="confirmed"}]]);

static L<S> tests = ll("what is a bunny", "klaus is a fool", "john is a joker");

p {
  dropValuesFromMapOtherThan(map, 'confirmed, 'rejected);
  
  final int wordIndex = 0;
  L<S> input = map(func(S s) { getWord(s, wordIndex) }, keys(map));
  L<S> output = valuesList(map);
  Map<S, Bool> map = mapValuesToBool(twoListsToHashMap(input, output), 'confirmed);
  int diff = countValues(map, true)-countValues(map, false);
  print("diff=" + diff);
  final bool defaultValue = diff > 0;
  final Set<S> exceptions = new TreeSet(keysWithValue(map, !defaultValue));
  O decider = func(S s) { contains(exceptions, getWord(s, wordIndex)) ? !defaultValue : defaultValue };
  
  for (S test : tests)
    print(" " + test + " => " + callF(decider, test));
}