!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
    
  ]];
  
  // We help the AI by declaring some "power words" in form of regular expressions
  
  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)); // to see if the regexps work
    
    for (ReadingComprehensionTest.Question q : test.questions) {
      print_nlBefore(q.question);
      LS matchedInQ = matchingRegexpsIC(regexps, q.question);
      if (empty(matchedInQ)) matchedInQ = ll(""); // match all
      bool firstType = containsWord(q.question, "first");
      
      new Best<S> best;
      for (S answer : q.answers) {
        LS regexps2 = ll(quoteRegexp(dropPunctuation(answer))); // treat the whole answer as a regexp
        LS regexps2b = matchingRegexpsIC(regexps, answer); // find the regexps that match the answer
        double score = 0;
        if (firstType) { // mode 1: find what appears first in text
          Int idx = firstNonNegativeInt(multiCall indexOfEntryContainingAllRegexpsIC(multi(regexps2, regexps2b), test.sentences));
          if (idx != null) score = -idx; else continue;
        } else // mode 2: find sentence in text that matches question + answer best
          score = or0(firstNonZeroDouble(multiCall ai_regexpMixScoreIC(multi(regexps2, regexps2b), matchedInQ, test.sentences, quote(answer))));
        best.put(answer, score);
      }
      print(">> " + or(best!, "?")); // print answer
    }
  }
}

Began life as a copy of #1023742