[Wolsh]

var max_bag_index:uint; — должен быть инт, так как подвергается декременту в теле цикла.
var bag:Vector.<uint> — по сути константа, надо объявить и инициализировать один раз, чтобы не тратить драгоценные пикосекунды.
while (testee == previous1) { if (testee == previous2) { — чтобы не делать if на каждом витке while, можно заключить while в условие if (previous1 == previous2). Это состояние неизменно и определяет необходимость проверки testee вообще — если два предыдущих не равны, то пофиг чему равен testee.