sclass AIStrategy_RandomWithVariation<A> extends AIStrategy<A> {
  F0<A> random;
  F1<A> vary;
  
  *() {}
  *(IF1<A, Number> judge, IF0<A> random, IF1<A> vary) {
    setJudge(judge);
    this.random = toF0(random);
    this.vary = toF1(vary);
  }

  public bool step() { go(); true; }
  
  void go {
    submit(guess());
  }
  
  A guess() {
    A a = null;
    if (odd(round++) && vary != null && best.has())
      a = callF(vary, best!);
    if (a == null)
      a = callF(random);
    ret a;
  }
}