Initial data commit

Task/Additive-primes/AppleScript/additive-primes-1.applescript

@@ -0,0 +1,46 @@
+on sieveOfEratosthenes(limit)
+    script o
+        property numberList : {missing value}
+    end script
+
+    repeat with n from 2 to limit
+        set end of o's numberList to n
+    end repeat
+
+    repeat with n from 2 to (limit ^ 0.5) div 1
+        if (item n of o's numberList is n) then
+            repeat with multiple from n * n to limit by n
+                set item multiple of o's numberList to missing value
+            end repeat
+        end if
+    end repeat
+
+    return o's numberList's numbers
+end sieveOfEratosthenes
+
+on sumOfDigits(n) -- n assumed to be a positive decimal integer.
+    set sum to n mod 10
+    set n to n div 10
+    repeat until (n = 0)
+        set sum to sum + n mod 10
+        set n to n div 10
+    end repeat
+
+    return sum
+end sumOfDigits
+
+on additivePrimes(limit)
+    script o
+        property primes : sieveOfEratosthenes(limit)
+        property additives : {}
+    end script
+
+    repeat with p in o's primes
+        if (sumOfDigits(p) is in o's primes) then set end of o's additives to p's contents
+    end repeat
+
+    return o's additives
+end additivePrimes
+
+-- Task code:
+tell additivePrimes(499) to return {|additivePrimes<500|:it, numberThereof:count}