memory-reallocation.r

storage <- list()
numbers <- c(4, 1, 15, 12, 0, 9, 9, 5, 5, 8, 7, 3, 14, 5, 12, 3)
count <- 0

while (!(list(numbers) %in% storage)) {
	storage <- append(storage, list(numbers))
	largest <- max(numbers)
	largestIndex <- which.max(numbers)
	numbers[largestIndex] = 0
	index <- largestIndex

	while (largest > 0) {
		index <- (index %% length(numbers)) + 1
		numbers[index] <- numbers[index] + 1
		largest <- largest - 1
	}

	count <- count + 1
}

print(numbers)
print(storage)
print(count)