!7

concept Sentence {
  S text;
  S action;
}

concept Example {
  L<S> tok;
  IntRange subjectTokens;
}

abstract sclass Guesser {
  abstract IntRange getSubjectTokens(L<S> tok);
}

Guesser > G1 {
  IntRange getSubjectTokens(L<S> tok) {
    ret new IntRange(0, 1);
  }
}

p {
  loadConceptsFrom(#1008607);
  L<Example> material = learningMaterial();
  pnlStruct(material);
  checkGuesser(material, new G1);
}

svoid checkGuesser(L<Example> testMaterial, Guesser g) {
  int score = 0, n = 0;
  for (Example e : testMaterial) {
    IntRange r = pcall(g, "getSubjectTokens", e.tok);
    if (eq(e.subjectTokens, r)) ++score;
    ++n;
  }
  printScore(struct(g), score, n);
}

static L<Example> learningMaterial() {
  L<Pair<S, IntRange>> out = new L;
  for (Sentence s) {
    if (s.action == null) continue;
    IntRange r = ai_parseSubjectAction(s.action);
    if (r != null) {
      L<S> tok = nlTok5(s.text);
      out.add(Example(tok, tokenRangeToCharRange(tok, r)));
    }
  }
  ret out;
}