Data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions

View file

@ -0,0 +1,32 @@
F is_prime(p)
I p < 2 | p % 2 == 0
R p == 2
L(i) (3 .. Int(sqrt(p))).step(2)
I p % i == 0
R 0B
R 1B
V c = 0
V ps = [1, 2, 3, 4, 5, 6, 7, 8, 9]
V nxt = [0] * 128
L
V nc = 0
L(a) ps
I is_prime(a)
c++
print(#8.format(a), end' I c % 5 == 0 {"\n"} E )
V b = a * 10
V l = a % 10 + b
b++
L b < l
nxt[nc] = b
nc++
b++
I nc > 1
ps = nxt[0 .< nc]
E
L.break
print("\n"c descending primes found)

View file

@ -0,0 +1,22 @@
F is_prime(p)
I p < 2 | p % 2 == 0
R p == 2
L(i) (3 .. Int(sqrt(p))).step(2)
I p % i == 0
R 0B
R 1B
[Int] descending_primes
L(n) 1 .< 2 ^ 9
V s =
L(i) (8 .. 0).step(-1)
I n [&] (1 << i) != 0
s = String(i + 1)
I is_prime(Int(s))
descending_primes.append(Int(s))
L(n) sorted(descending_primes)
print(#8.format(n), end' I (L.index + 1) % 5 == 0 {"\n"} E )
print("\n"descending_primes.len descending primes found)