Data update

Task/Additive-primes/EasyLang/additive-primes.easy

@@ -1,25 +1,28 @@
-proc isprime x . r .
-   r = 1
-   for i = 2 to sqrt x
-      if x mod i = 0
-         r = 0
-         break 2
-      .
+func prime n .
+   if n mod 2 = 0 and n > 2
+      return 0
    .
+   i = 3
+   sq = sqrt n
+   while i <= sq
+      if n mod i = 0
+         return 0
+      .
+      i += 2
+   .
+   return 1
 .
-proc digsum n . sum .
-   sum = 0
+func digsum n .
    while n > 0
       sum += n mod 10
       n = n div 10
    .
+   return sum
 .
 for i = 2 to 500
-   call isprime i r
-   if r = 1
-      call digsum i s
-      call isprime s r
-      if r = 1
+   if prime i = 1
+      s = digsum i
+      if prime s = 1
          write i & " "
       .
    .