Select Code to Download

    $set_S[$r] = [$r];

    $set_S[$r] = $r;

    print "$set_S[$s]\t$epsilons[$s]\t";
    $set_S[$s] = $set_S[$s] + $epsilons[$s];
    print $set_S[$s], "\n";