Data update

Task/Additive-primes/MiniScript/additive-primes.mini

@@ -0,0 +1,28 @@
+isPrime = function(n)
+	if n <= 3 then return n > 1
+	if n % 2 == 0 or n % 3 == 0 then return false
+	
+	i = 5
+	while i ^ 2 <= n
+		if n % i == 0 or n % (i + 2) == 0 then return false
+		i += 6
+	end while
+	return true
+end function
+
+digitSum = function(n)
+	sum = 0
+	while n > 0
+		sum += n % 10
+		n = floor(n / 10)
+	end while
+	return sum
+end function
+
+additive = []
+
+for i in range(2, 500)
+	if isPrime(i) and isPrime(digitSum(i)) then additive.push(i)
+end for
+print "There are " + additive.len + " additive primes under 500."
+print additive

Task/Additive-primes/R/additive-primes.r

@@ -0,0 +1,9 @@
+digitsum <- function(x) sum(floor(x / 10^(0:(nchar(x) - 1))) %% 10)
+
+is.prime <- function(n) n == 2L || all(n %% 2L:max(2,floor(sqrt(n))) != 0)
+
+range_int <- 2:500
+v <- sapply(range_int, \(x) is.prime(x) && is.prime(digitsum(x)))
+
+cat(paste("Found",length(range_int[v]),"additive primes less than 500"))
+print(range_int[v])

Task/Additive-primes/Wren/additive-primes.wren

@@ -1,5 +1,5 @@
-import "/math" for Int
-import "/fmt" for Fmt
+import "./math" for Int
+import "./fmt" for Fmt
 
 var sumDigits = Fn.new { |n|
     var sum = 0