#version 2.0

function found_item(bool b,string s)
{
	if(b)
	{
		write("\tFound \"" + s + "\" item.\n");
	}
	else
	{
		write("\tNot found any \"" + s + "\" item.\n");
	}
}

function t24_linsearch(seq<u32> s) : bool
{
	bool b = false;

	foreach(i in 0u..seqlen(s) exclusive while !b)
	{
		b = s[i]%2u == 0u;
	}

	return b;
}

function t24()
{
	write("t24:\n");

	seq<u32> s;

	s = hiext(s, 3u);
	s = hiext(s, 1u);
	s = hiext(s, 4u);
	s = hiext(s, 7u);
	s = hiext(s, 5u);

	write("Even item exist.\n");
	bool b = t24_linsearch(s);
	found_item(b, "even");

	s[2u] = 9u;
	write("There is no more even item.\n");
	b = t24_linsearch(s);
	found_item(b, "even");
}

main
{
	t24();
}