guess.scpexe

来自「一个脚本语言的解释器」· SCPEXE 代码 · 共 27 行

function main()
{
	srand();
	num = rand(101);
	nums = null;
	count = 0;
	println("please guess a number [0-100]:");
	while(true)
	{
		in = getline().integer();
		nums[count] = in;
		count=count+1;
		if(in > num) 
			println("greater");
		else if(in < num)
			println("smaller");
		else
		{
			println("BINGO!");
			break;
		}
	}
	println(nums);
	exec("pause");
	return num;
}