!7

// Text + questions from https://lingua.com/english/reading/my-day/

cmodule MyDay > DynPrintLog {
  transient ReadingComprehensionTest test;
  switchable S text = [[
    
    Text
    ----
    
    First, I wake up. Then, I get dressed. I walk to school. I do not ride a bike. I do not ride the bus. I like to go to school. It rains. I do not like rain. I eat lunch. I eat a sandwich and an apple.
    
    I play outside. I like to play. I read a book. I like to read books. I walk home. I do not like walking home. My mother cooks soup for dinner. The soup is hot. Then, I go to bed. I do not like to go bed.
    
    
    Question 1:
    What happens first?
    1 Get dressed	2 Wake up
    3 Eat lunch	4 Walk to school
    
    Question 2:
    What do I like?
    1 Books	2 Rain
    3 Walking home	4 Going to bed
    
    Question 3:
    How do I go to school?
    1 I ride a bike.	2 I walk.
    3 I ride the bus.	4 I drive a car.
    
    Question 4:
    What do I eat for dinner?
    1 Sandwich	2 Pie
    3 Soup	4 Apple
    
    Question 5:
    What do I not like?
    1 Going to school	2 Going to bed
    3 Playing	4 Soup
    
  ]];
  
  transient LS regexps = ll("(?<!not )like", "not like", "dinner", "school", "bed");

  start-thread {
    test = ai_parseReadingComprehensionTest_v1(text);
    pnl(map_curry renderLineWithMatchingRegexpsIC(regexps, test.sentences));
    
    for (ReadingComprehensionTest.Question q : test.questions) {
      print_nlBefore(q.question);
      LS matchedInQ = matchingRegexpsIC(regexps, q.question);
      if (empty(matchedInQ)) matchedInQ = ll(""); // match all
      
      new Best<S> best;
      for (S answer : q.answers) {
        /*outerProductPairs(ll(
            ll(quoteRegexp(dropPunctuation(answer))),
            matchedInA),
          ll(matchedInQ));
          regexps1 -> ai_regexpMixScoreIC(regexps1, matchedInQ, test.sentences, quote(answer));*/
        double score = ai_regexpMixScoreIC(ll(quoteRegexp(dropPunctuation(answer))), matchedInQ, test.sentences, quote(answer));
        if (score == 0)
          score = ai_regexpMixScoreIC(matchingRegexpsIC(regexps, answer), matchedInQ, test.sentences, quote(answer));
        best.put(answer, score);
      }
      print(">> " + best);
    }
  }
}