function genshu(m)
//m==a**2*b
//12==(2)**2*(3)
//variable m=input("m")
if(is_int(sqrt(m)))
return [to_string(sqrt(m))]
else
variable g=alloc_array([floor(sqrt(m),0)])
for variable a=1 to floor(sqrt(m),0) step 1
for variable b=1 to m/(a**2) step 1
if(and(is_int(a),is_int(b),m==a**2*b))
g[a-1]=a
//printf("%s",[a,b])
break
else
continue
endif
next
next
//return [armax(g)+"*√"+m/(armax(g)**2)]
return [armax(g)+"*"+m/(armax(g)**2)+"**0.5"]
endif
endf

//子程序
function armax(d)
return quick_sort(1,d)[0]
endf
function armin(d)
return quick_sort(0,d)[0]
endf
function is_int(n)
try
if n>0
endif
catch
return false
endtry
if floor(n)==n
return true
else
return false
endif
endf

暂时对正整数可行

//需完善以下情况

写个程序识别"√"和"/√"

// √1.8==√(9/5)==3/√5==3*√5/5
help
str_sqrt(m)//m="√5"
endh
function str_sqrt(m)
variable a=to_string(m)
//printf("sqrt(%s)",split(a,"√")[1])
return ["sqrt("+split(a,"√")[1]+")"][0]
endf

help
str_dsqrt(m)//m="/√5"
endh
function str_dsqrt(m)
variable a=to_string(m)
//printf("sqrt(%s)\\1",split(a,"/√")[1])
return ["sqrt("+split(a,"/√")[1]+")"+"\\1"][0]
endf
help
str_dsqrt_val(m)//m="/√5"
endh
function str_dsqrt_val(m)
return evaluate(str_dsqrt(m))
endf
help
str_sqrt_val(m)//m="√5"
endh
function str_sqrt_val(m)
return evaluate(str_sqrt(m))
endf