!7

sclass Token {
  S text;
  CNC group;
  int index;
  
  toString { ret text; }
}

sclass CNC {
  S text; // if known
  new L<Token> tokens;
}

p-exp {
  S s = "There are 6 chess pieces. How many chess pieces do you know?";
  CNC in1 = makeCNC("There are 6 chess pieces. How many chess pieces do you know?");
  CNC out1 = makeCNC("6 I guess");
  CNC in2 = makeCNC("There are 16 chess pieces. How many chess pieces do you know?");
  
  LPair<Token> l = zipCNC(in1, in2);
  if (l == null) ret;
  l = antiFilter(l, func(Pair<Token> p) -> Bool { eqic(p.a.text, p.b.text) });
  print("Remaining differences:");
  pnl(l);
  SS daMap = pairsToMap(pairListMap(func(Token t) -> S { t.text }, l));
  printStruct(daMap);
  S result = join(mapTokens_getOrKeep(collect(out1.tokens, 'text), daMap));
  assertEqualsVerbose("16 I guess", result);
}

static CNC makeCNC(S s) {
  CNC cnc = nu(CNC, text := s);
  L<S> tok = javaTokWithAngleBrackets(s);
  for i over tok:
    cnc.tokens.add(nu(Token, text := tok.get(i), group := cnc, index := i);
  ret cnc;
}

// may return null (no match)
static LPair<Token> zipCNC(CNC cnc1, CNC cnc2) {
  ret zipTwoListsToPairs_ifSameLength(cnc1.tokens, cnc2.tokens);
}

static LPair<Token> dropSame(LPair<Token> l) {
  ret antiFilter(l, func(Pair<Token> p) -> Bool { eqic(p.a.text, p.b.text) });
}