// This version is good when the probabilities returned
// are monotonically decreasing. To look for the best results
// when probabilities tend to increase over time, use
// PSCollectMostProbable.

static <A> IVF1<A> psCollect(IProbabilisticScheduler ps, Cl<WithProbability<A>> out) {
  ret a -> {
    if (out != null)
      out.add(withPreciseProbability(ps.currentProbability(), a));
  };
}

svoid <A> psCollect(ProbabilisticScheduler ps,
  Cl<WithProbability<A>> results_out,
  int maxResults,
  IVF1<IVF1<A>> action) {
  action.get(psCollect(ps, results_out));
  stepUntil(ps, () -> l(results_out) >= 10);
}

static <A> L<WithProbability<A>> psCollect(int maxResults, IVF2<IProbabilisticScheduler, IVF1<A>> action) {
  new ProbabilisticScheduler ps;
  new L<WithProbability<A>> results;
  psCollect(ps, results, maxResults, out -> action.get(ps, out));
  ret results;
}