[第十一关]Babbage problem 巴贝奇问题

这个好像比较简单吧，最小的整数计算出来是25264。

/*
ahk 1.x 
*/
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#Persistent	;保持后台运行
#SingleInstance FORCE ;单实例运行模式
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetBatchLines -1
ListLines Off

res1:="269696"

Gui, +LastFound +ToolWindow +AlwaysOnTop
Gui, Color, EAEAEA,2b2b2b
gui,margin,30,30
GUI, Font, w200 Q5 s10 c2b2b2b , Microsoft Yahei
GUI, ADD, BUTTON, Y+30 W200 default gstart, 开始
GUI, ADD, BUTTON, Y+30 W200  gcancleme, 停止
GUI, ADD, text, Y+20, Babbage result is ...
GUI, Font, w200 Q5 s16 cred bold , Microsoft Yahei
GUI, ADD, text, Y+10 w250 , % "calculating..."
gui,show,autosize center, Babbage problem
return

start:
loop
{
temp1:=a_index . res1
temp2:=sqrt(temp1)
temp3:=round(temp2,0)+0
temp4:=temp3**2

	if (temp1=temp4)
	{
		babbage_res:=round(temp2,0)+0
		guicontrol,,static2, % babbage_res
		break
	}

}
return

cancleme:
exitapp
return