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

9
Task/Lucas-Lehmer-test/Langur/lucas-lehmer-test.langur
View file

@ -1,7 +1,8 @@
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 .isMersennePrime = f(.p) {
val .isMersennePrime = fn(.p) {
if .p == 2: return true
if not .isPrime(.p): return false
@ -11,4 +12,4 @@ val .isMersennePrime = f(.p) {
} == 0
}
writeln join " ", map f $"M\.x;", filter .isMersennePrime, series 2300
writeln join " ", map fn(.x) $"M\.x;", filter .isMersennePrime, series 2300