!7

sclass MatchInput > DynPrintLogWithInput {
  start { dm_useLocallyCopiedMechLists(); }
  
  void update(S s) {
    print("\n> " + s);
    L<S> pats = mL("English sentence patterns");
    L<S> tok = javaTokWithAngleBracketsC(s);
    printStruct(tok);
    PlanInMotion<S> plan = new(pats);
    L<Pair<S, L<Pair<S>>>> results = new L; // pattern + match
    for (S pat : plan.master()) {
      L<S> tokPat = javaTokWithAngleBracketsC(pat);
      L<Pair<S>> match = uniquify(dropTwinPairsIC(zipTwoListsToPairs_ifSameLength(tokPat, tok)));
      if (match != null)
        addPair(results, pat, antiFilter(f parsing_checkMatchPairUsingMechList, match));
    }
    
    for (Pair<S, L<Pair<S>>> p : sortedByComparator(results, (Comparator<Pair<S, L<Pair<S>>>>) lengthOfPairBListComparator()))
      print("  Result: Choose pattern " + quote(p.a) + " for input "  + quote(s) + " if match: " + p.b);
  }
}