Data update

Task/Amicable-pairs/FutureBasic/amicable-pairs.basic

@@ -0,0 +1,29 @@
+local fn Sigma( n as long ) as long
+  long i, root, sum = 1
+
+  if n == 1 then exit fn = 0
+  root = sqr(n)
+  for i = 2 to root
+    if ( n mod i == 0 ) then sum += i + n/i
+  next
+  if root * root == n then sum -= root
+end fn = sum
+
+void local fn CalculateAmicablePairs( limit as long )
+  long i, m
+
+  printf @"\nAmicable pairs through %ld are:\n", limit
+  for i = 2 to limit
+    m = fn Sigma(i)
+    if ( m > i )
+      if ( fn Sigma(m) == i ) then printf @"%6ld and %ld", i, m
+    end if
+  next
+end fn
+
+CFTimeInterval t
+t = fn CACurrentMediaTime
+fn CalculateAmicablePairs( 20000 )
+printf @"\nCompute time: %.3f ms",(fn CACurrentMediaTime-t)*1000
+
+HandleEvents