!752

sS suckerID = "#1004698", algoID = "#1004706";

static O sucker;

p {
  load("algoID");
  showTheForm();
}

svoid showTheForm {
  final JTextField tf = new JTextField(algoID);
  final JLabel score = jrightAlignedLabel();
  score.setFont(typeWriterFont(35));
  final JLabel len = jrightAlignedLabel();
  final JLabel cs = jrightAlignedLabel();
  Runnable start = r {
    algoID = trim(tf.getText());
    save("algoID");
    thread { wakeSucker(suckerID, algoID, score, len, cs); }
  };
  onEnter(tf, start);
  showForm(
    "Algorithm/strategy to feed (ID):", tf,
    "What we feed:", jlabel(suckerID + " - " + getSnippetTitle(suckerID)),
    "Score", score,
    "Text Size", len,
    "Code Size", cs,
    null, jbutton("Start", start));
}

static void wakeSucker(S suckerID, S algoID, JLabel scoreField, JLabel len, JLabel cs) {
  ping();
  
  scoreField.setText("Calculating...");

  if (sucker == null) {
    print("Waking...");
    sucker = run(suckerID);
  }
  
  print("Feeding...");
  
  S text = (S) callOpt(sucker, "getText");
  
  S lua = loadSnippet(algoID);
  
  Sandbox s = luaSandbox();
  evalLua(s, lua);
  LuaValue strategy = s.get("strategy");
  
  if (!strategy.isnil()) {
    assertNotNull(text);
    LuaValue result = strategy.call(text);
    assertTrue(result.isstring());
    lua = result.tojstring();
    print("CODE:\n" + indentx(lua));
  }

  cs.setText(n(l(lua), "Byte"));
  S desc = "L " + lua;
  O algo = makeLuaTextPredictAlgoFor(desc, sucker);
  
  O result = callOpt(sucker, "suck", desc, algo);
  double score = cast get(sucker, "lastScore");
  scoreField.setText(formatDouble(score, 2) + " %");
  len.setText(n(l(text), "Byte"));
  if (isTrue(result))
    print("NEW BEST!!!!!");
}

Began life as a copy of #1004701