series0

p2.rcs

tuple[int,list[str]] mostOccurringVariable(list[Declaration] asts) {
	list[str] vars = [];
	
	visit(asts) {
		case \variable(name,_): vars += name;
	}
	
	map[int,set[str]] invDist = invert(distribution(vars));
	int max = head(reverse(sort(toList(invDist<0>))));
	
	return <max,toList(invDist[max])>;
}

p3.rcs

tuple[int,list[str]] mostOccurringNumber(list[Declaration] asts) {
	list[str] values = [];
	
	visit(asts) {
		case \number(v) : values += v;
	}
	
	map[int,set[str]] invDist = invert(distribution(values));
	int max = head(reverse(sort(toList(invDist<0>))));
	
	return <max,toList(invDist[max])>;
}