modelverse/performance/code/dict_iterate.alc

include "primitives.alh"

Void function log_dict_keys(dict : Element, n : Integer):
	Element keys
	Element k
	Integer i

	i = 0
	keys = dict_keys(dict)
	while (read_nr_out(keys) > 0):
		k = set_pop(keys)
		if (i == n):
			log(k)
			i = 0

		i = i + 1

	return!

Element function create_dict(n : Integer):
	Integer i
	Element dict

	i = 0
	dict = create_node()

	while (i < n):
		dict_add(dict, i, 0)
		i = i + 1

	return dict!

Void function test_main():
	Integer size
	Integer log_skip
	Integer trip_count
	Integer i

	size = input()
	log_skip = input()
	trip_count = input()
	i = 0
	while (i < trip_count):
		log_dict_keys(create_dict(size), log_skip)
		i = i + 1

	return!