// Allows to vary the order by supplying a seed
//
// We add the seed to every LSFR value generated, and also start
// the LSFR with the seed.

sclass WeightlessShuffledIteratorWithSeed<A> extends WeightlessShuffledIterator<A> {
  final int cycleLength, offset;
  
  *(L<A> list) {
    this(list, 0);
  }

  *(L<A> list, int seed) {
    super(list);
    if (lsfr == null) ret with cycleLength = 0;
    lsfr.start(seed);
    cycleLength = lsfr.cycleLength();
    this.seed = lsfr.value-1;
    printVars ifdef WeightlessShuffledIterator_debug(+seed, +cycleLength, +offset, start := lsfr.value);
  }
  
  int postProcessLSFRValue(int i) {
    i += offset;
    ret i >= cycleLength ? i-cycleLength : i;
  }
}