Data commit

Task/Amicable-pairs/ZX-Spectrum-Basic/amicable-pairs.basic

@@ -0,0 +1,19 @@
+10 LET limit=20000
+20 PRINT "Amicable pairs < ";limit
+30 FOR n=1 TO limit
+40 LET num=n: GO SUB 1000
+50 LET m=num
+60 GO SUB 1000
+70 IF n=num AND n<m THEN PRINT n;" ";m
+80 NEXT n
+90 STOP
+1000 REM sumprop
+1010 IF num<2 THEN LET num=0: RETURN
+1020 LET sum=1
+1030 LET root=SQR num
+1040 FOR i=2 TO root-.01
+1050 IF num/i=INT (num/i) THEN LET sum=sum+i+num/i
+1060 NEXT i
+1070 IF num/root=INT (num/root) THEN LET sum=sum+root
+1080 LET num=sum
+1090 RETURN