!7

p {
  Concepts concepts = new Concepts(#1008059).safeLoad();
  Concept bot = findConceptWhere(concepts, "SelectBot", name := "greet");
  Map<S, Bool> examples = (Map) get(bot, "examples");
  testGuessMethod(examples, filterByValue(examples, true), f guess_match);
}

static bool guess_match(Map<S, Bool> examples, S s) {
  for (S key : keys(examples))
    if (match(key, s))
      ret examples.get(key);
  false;
}

static void testGuessMethod(Map<S, Bool> examples, Map<S, Bool> filteredExamples, O method) {
  new Scorer scorer;
  for (S key : keys(examples)) {
    Bool value = examples.get(key);
    if (value == null) continue;
    bool guessed = isTrue(callF(method, filteredExamples, key));
    scorer.add(eq(value, guessed));
  }
  scorer.print();
}

sclass Scorer {
  int score, total;
  
  void add(bool correct) {
    ++total;
    if (correct) ++score;
  }
  
  void print() {
    main.print(ratioToIntPercent(score, total) + "% correct");
  }
}