!7

sclass Experiment > DynCalculatedList {
  LinkedHashMap<S, T3<Long>> results; // code -> true count, false count, error count
  transient int timeout = 10000;
  
  void start {
    thread "Test Code" { testCode("1 == 2"); }
  }
  
  void testCode(fS code) {
    fO o = evalJava_prep2(evalJava_prep(code));
    O result = null;
    pcall {
      result = evalWithTimeoutOrNull(timeout, func { evalJava_main2(o) });
    }
    temp enter();
    T3<Long> t = results.get(code);
    if (t == null) results.put(code, t = new T3(0L, 0L, 0L));
    if (isTrue(result)) t.a++;
    else if (isFalse(result)) t.b++;
    else t.c++;
    changeAndUpdate();
  }
  
  L<S> calc() {
    ret map(results, func(S key, T3<Long> value) -> S {
      value.a + "/" + value.b + "/" + value.c + ": " + shorten(key, 100)
    });
  }
}