Amicable pairs: Difference between revisions

Content added Content deleted

Inline

@@ Line 4,958: / Line 4,958: @@
         (with sum 0 d 0 f Filter( from: 1 to: 20000 apply: (lambda
                 (= sum 1)
-                (for i in Range(2 (toInt (sqrt @it) 1)) do
+                (for i in Range(2 (to-Int (sqrt @it))) do
                     (if (not (mod @it i))
                         (= d (/ @it i)) (+= sum i)
                         (if (neq d i) (+= sum d))))
                 (ret sum)))
-            (with v (toVec f)
+            (with v (to-vector f)
                 (for i in v do
                     (if (and (< i (size v))