static <A> A highestByFunction(Iterable<A> l, O f) {
  A best = null;
  O bestValue = null;
  if (l != null) for (A a : l) {
    O val = callF(f, a);
    if (best == null || cmp(val, bestValue) > 0) {
      best = a;
      bestValue = val;
    }
  }
  ret best;
}

static <A> A highestByFunction(O f, Iterable<A> l) {
  ret highestByFunction(l, f);
}

static <A> A lambdaMapLike highestByFunction(IF1<A, ? extends Comparable> f, Iterable<A> l) {
  ret highestByFunction(l, (O) f);
}

static <A> A highestByFunction(Iterable<A> l, IF1<A, ? extends Comparable> f) {
  ret highestByFunction(f, l);
}

Began life as a copy of #1011185