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 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,18 +1,20 @@
val .isPrime = fn(.i) .i == 2 or .i > 2 and
not any fn(.x) .i div .x, pseries 2 .. .i ^/ 2
val isPrime = fn(i) {
i == 2 or i > 2 and
not any(fn x: i div x, pseries(2 .. i ^/ 2))
}
val .sumDigits = fn(.i) fold fn{+}, s2n string .i
val sumDigits = fn i: fold(fn{+}, s2n(string(i)))
writeln "Additive primes less than 500:"
var .count = 0
var cnt = 0
for .i in [2] ~ series(3..500, 2) {
if .isPrime(.i) and .isPrime(.sumDigits(.i)) {
write $"\{.i:3} "
.count += 1
if .count div 10: writeln()
for i in [2] ~ series(3..500, 2) {
if isPrime(i) and isPrime(sumDigits(i)) {
write "{{i:3}} "
cnt += 1
if cnt div 10: writeln()
}
}
writeln $"\n\n\{.count} additive primes found.\n"
writeln "\n\n{{cnt}} additive primes found.\n"