!7

sclass DevelopFromExamples > DynTextArea {
  S whatToTry;
  transient ReliableSingleThread rst = new(r think);

  JComponent visualize() {
    ret withCenteredButtons(centerAndSouthWithMargins(
      jhsplit(super.visualize(), dm_printLogComponent()),
      jsection("Stuff to try", dm_fieldTextField('whatToTry))), "Think", rst);
  }
  
  void think {
    loadFunctions_preferDiskCache();
    L<Pair<S>> examples;
    for (S line : tlftj(examples)) pcall {
      L<S> l = splitAtDoubleArrow_bothDirections(s);
      if (l(l) == 2) addPair(examples, first(l), second(l));
    }
    
    print("Thinking about " + n2(examples, "example"));
    for (fS s : words(whatToTry))
      if (isStandardFunction(s)) {
        F1<S, S> f = func(S in) -> S { struct(callAndMake_orDirect(s, unstruct(in))) };
        if (worksOnAllExamples(f, examples))
          print("WORKS: " + f);
        else
          print("Nope: " + f);
      }
    print("Done");
  }
}