Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
10 ' 3num_nz.ub : non zero 20 ' print=print+"\tmp\3num_nz.txt" 30 dim T$(3) 40 Sd%=7:Ed%=Sd%+6:' 7 digits through 7+6 digits 50 for P%=1 to 67 60 read A:T$(2)=cutspc(str(A@10)):A=A\10 70 T$(1)=cutspc(str(A@10)):A=A\10 80 T$(0)=cutspc(str(A@10)) 90 ' 100 A=(10^Sd%-1)\9*val(T$(0)):S$=cutspc(str(A)):G%=Sd%:V=10^(G%-1) 110 ' main loop 120 gosub 180:if G%>Ed% then 250 130 W=val(S$)*V 140 A=(isqrt(W)+1)^2:gosub 280 150 A=(isqrt(W*10)+1)^2:gosub 280 160 goto 120 170 ' 180 U$=S$:S$="":I%=G%:if G%>Ed% then return 190 if I%=0 then S$=T$(0)+S$:inc G%:V=V*10:return 200 X$=mid(U$,I%,1) 210 if X$=T$(0) then S$=T$(1)+S$:goto 240 220 if X$=T$(1) then S$=T$(2)+S$:goto 240 230 if X$=T$(2) then S$=T$(0)+S$:dec I%:gosub 190:return 240 S$=left(U$,I%-1)+S$:return 250 next P% 260 end 270 ' local j%,k%,l% 280 if A@10=0 then return 290 C$=cutlspc(str(A)):L%=len(C$) 300 for J%=L% to 1 step -1:E$=mid(C$,J%,1) 310 for K%=0 to 2 320 if T$(K%)=E$ then cancel for:goto 350 330 next K% 340 cancel for:return 350 next J% 360 print isqrt(A);",";A 370 return 380 ' non-zero data : 67 390 data 123,124,125,126,127,128,129,134,136,138 400 data 145,146,147,148,149,156,158,167,168,169 410 data 178,189,234,235,236,239,245,246,247,248 420 data 249,256,257,258,259,267,269,279,289,345 430 data 346,347,348,349,356,367,368,369,389,456 440 data 457,458,459,467,468,469,478,479,489,567 450 data 568,569,589,678,679,689,789