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 dot Net 2024-04-19 16:56:29 -07:00
parent 0df55f9f24
commit aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
val .isPrime = f .i == 2 or .i > 2 and
not any f(.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 = f fold f{+}, s2n toString .i
val .sumDigits = fn(.i) fold fn{+}, s2n string .i
writeln "Additive primes less than 500:"
@ -9,10 +9,10 @@ var .count = 0
for .i in [2] ~ series(3..500, 2) {
if .isPrime(.i) and .isPrime(.sumDigits(.i)) {
write $"\.i:3; "
write $"\{.i:3} "
.count += 1
if .count div 10: writeln()
}
}
writeln $"\n\n\.count; additive primes found.\n"
writeln $"\n\n\{.count} additive primes found.\n"