Data commit

Task/Iterated-digits-squaring/ZX-Spectrum-Basic/iterated-digits-squaring.basic

@@ -0,0 +1,14 @@
+10 LET n=0
+20 FOR i=1 TO 1000
+30 LET j=i
+40 LET k=0
+50 LET k=INT (k+FN m(j,10)^2)
+60 LET j=INT (j/10)
+70 IF j<>0 THEN GO TO 50
+80 LET j=k
+90 IF j=89 OR j=1 THEN GO TO 100
+95 GO TO 40
+100 IF j>1 THEN LET n=n+1
+110 NEXT i
+120 PRINT "Version 1: ";n
+200 DEF FN m(a,b)=a-INT (a/b)*b: REM modulo