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;

  }

}