!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;
      tokPat = javaTokWithAngleBracketsC(pat);
      L<Pair<S>> match = uniquify(dropTwinPairsIC(zipTwoListsToPairs_ifSameLength(tokPat, tok)));
      if (match != null) {
        print("  Result: Choose pattern " + quote(pat) + " for input "  + quote(s) + " if match: " + sfu(match));
        results.add(pair(pat, match));
      }
    }
    
    // reduce from mech lists
    for (Pair<S, L<Pair<S>>> p : results) {
      L<Pair<S>> match = antiFilter(f parsing_checkMatchPairUsingMechList, p.b);
      if (l(match) < l(p.b)) {  
        print("  Reduced match to: " + sfu(match));
        p.b = match;
      }
    }
    
    print();
    pnlStruct(sortedByComparator(results, (Comparator) lengthOfPairBListComparator()));
  }
}

Began life as a copy of #1017199