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

20
Task/Deceptive-numbers/Langur/deceptive-numbers.langur
View file

@ -1,14 +1,16 @@
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))
}
var .nums = []
var .repunit = 111_111
var nums = []
var repunit = 111_111
for .n = 9; len(.nums) < 10; .n += 2 {
.repunit = .repunit * 100 + 11
if not .isPrime(.n) and .repunit div .n {
.nums = more .nums, .n
for n = 9; len(nums) < 10; n += 2 {
repunit = repunit * 100 + 11
if not isPrime(n) and repunit div n {
nums = more(nums, n)
}
}
writeln .nums
writeln nums