Data commit

Task/Casting-out-nines/ZX-Spectrum-Basic/casting-out-nines.basic

@@ -0,0 +1,13 @@
+10 LET Base=10
+20 LET N=2
+30 LET c1=0
+40 LET c2=0
+50 LET k=1
+60 IF k>=(Base^N)-1 THEN GO TO 150
+70 LET c1=c1+1
+80 IF FN m(k,Base-1)=FN m(k*k,Base-1) THEN LET c2=c2+1: PRINT k;" ";
+90 LET k=k+1
+100 GO TO 60
+150 PRINT '"Trying ";c2;" numbers instead of ";c1;" numbers saves ";100-(c2/c1)*100;"%"
+160 STOP
+170 DEF FN m(a,b)=a-INT (a/b)*b