!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, f guess_match);
}

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

static void testGuessMethod(Map<S, Bool> examples, O method) {
  new Scorer scorer;
  for (S key : keys(examples)) {
    Bool value = examples.get(key);
    S guess = (S) callF(method, examples, s);
    Bool guessed = mapGet(examples, guess);
    scorer.add(eq(value, guessed));
  }
  scorer.print();
}

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