aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Additive-primes/Langur/additive-primes.langur
View file

@ -1,15 +1,15 @@
val isPrime = fn(i) {
i == 2 or i > 2 and
not any(fn x: i div x, pseries(2 .. i ^/ 2))
not any(series(2 .. i ^/ 2, asconly=true), by=fn x:i div x)
}
val sumDigits = fn i: fold(fn{+}, s2n(string(i)))
val sumDigits = fn i: fold(s2n(string(i)), by=fn{+})
writeln "Additive primes less than 500:"
var cnt = 0
for i in [2] ~ series(3..500, 2) {
for i in [2] ~ series(3..500, inc=2) {
if isPrime(i) and isPrime(sumDigits(i)) {
write "{{i:3}} "
cnt += 1