Data update
This commit is contained in:
parent
0df55f9f24
commit
aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
15
Task/Additive-primes/Uiua/additive-primes.uiua
Normal file
15
Task/Additive-primes/Uiua/additive-primes.uiua
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
[] # list of primes to be populated
|
||||
↘2⇡500 # candidates (starting at 2)
|
||||
|
||||
# Take the first remaining candidate, which will be prime, save it,
|
||||
# then remove every candidate that it divides. Repeat until none left.
|
||||
⍢(▽≠0◿⊃⊢(.↘1)⟜(⊂⊢)|>0⧻)
|
||||
# Tidy up.
|
||||
⇌◌
|
||||
|
||||
# Build sum of digits of each.
|
||||
≡(/+≡⋕°⋕)...
|
||||
# Mask out those that result in non-primes.
|
||||
⊏⊚±⬚0⊏⊗
|
||||
# Return values and length.
|
||||
⧻.
|
||||
Loading…
Add table
Add a link
Reference in a new issue