예를 들어 총주기 : 477,918,603
업데이트 1 : Lemoine의 추측 을 사용하도록 업데이트되었습니다 .
업데이트 2 : 에라토스테네스 의 체 를 사용하도록 업데이트되었습니다 . 소수를 순전히 찾지 않고 .
로 실행 :
python3 assemble.py 52489-prime-partitions.golf
python3 golf.py 52489-prime-partitions.bin x=<INPUT>
예제 실행 :
$ python3 golf.py 52489-prime-partitions.bin x=10233
5
5
10223
Execution terminated after 194500 cycles with exit code 0.
입력 예를위한 사이클 수 :
Input Cycles
9 191
12 282
95 1,666
337 5,792
1023749 21,429,225
20831531 456,481,447
(N+1)*8
힙 의 첫 번째 바이트는 N+1
64 비트 값을 포함하는 배열로 간주 됩니다. (힙의 크기가 제한되어 있기 때문에이 기능은 작동합니다 N < 2^57
.) 의 항목 값은 다음 중 i*8
하나임 을 나타냅니다 i
.
Value Description
-1 Not a prime
0 Unknown
1 The largest prime found
n > 1 This is a prime and the next prime is n
배열 만들기를 마치면 다음과 같이 보입니다. [-1, -1, 3, 5, -1, 7, -1, 11, -1, -1, -1, 13, ...]
.
우리 는 에라토스테네스 의 체를 사용합니다 를 사용하여 배열을 만듭니다.
다음 프로그램은 의사 코드에서 다음을 수행합니다.
if is_prime(x):
print x
else:
if is_even(x):
for p in primes:
if is_prime(x - p):
print p, x - p
exit
else:
if is_prime(x - 2):
print 2, x - 2
else:
for p in primes:
if is_prime(x - 2 * p):
print p, p, 2 * p
exit
이것은 Lemoine의 추측 과 Goldbach의 약한 추측 때문에 작동 합니다. Lemoine의 추측은 아직 입증되지 않았지만 아마도 2 ^ 57 이하의 숫자에 대해서는 사실 일 것입니다.
call build_primes
mov q, x
call is_prime
jnz print_prime, a
and b, x, 1
jz find_pair, b
# Check if x - 2 is a prime
sub q, x, 2
call is_prime
jnz print_prime_odd2, a
# Input: x, b
find_pair:
mov p, 2
find_pair_loop:
mov d, p
jz find_pair_even, b
add d, d, p
find_pair_even:
sub q, x, d
call is_prime
jnz print_prime2_or_3, a
shl i, p, 3
lw p, i
jmp find_pair_loop
print_prime2_or_3:
jz print_prime2, b
mov x, p
call write_int_ln
print_prime2:
mov x, p
call write_int_ln
mov x, q
call print_prime
print_prime_odd2:
mov p, 2
call print_prime2
print_prime:
call write_int_ln
halt 0
# Input: x
# Memory layout: [-1, -1, 3, 5, -1, 7, -1, 11, ...]
# x: max integer
# p: current prime
# y: pointer to last found prime
# i: current integer
build_primes:
sw 0, -1
sw 8, -1
sw 16, 1
mov y, 16
mov p, 2
build_primes_outer:
mulu i, r, p, p
jnz build_primes_final, r
geu a, i, x
jnz build_primes_final, a
build_primes_inner:
shl m, i, 3
sw m, -1
add i, i, p
geu a, i, x
jz build_primes_inner, a
build_primes_next:
inc p
shl m, p, 3
lw a, m
jnz build_primes_next, a
sw y, p
mov y, m
sw y, 1
jmp build_primes_outer
build_primes_final:
inc p
geu a, p, x
jnz build_primes_ret, a
shl m, p, 3
lw a, m
jnz build_primes_final, a
sw y, p
mov y, m
sw y, 1
jmp build_primes_final
build_primes_ret:
ret
# Input: q
# Output: a
is_prime:
shl m, q, 3
lw a, m
neq a, a, -1
ret a
write_int:
divu x, m, x, 10
jz write_int_done, x
call write_int
write_int_done:
add m, m, ord("0")
sw -1, m
ret
write_int_ln:
call write_int
mov m, ord("\n")
sw -1, m
ret