60/uiua: wip
This commit is contained in:
6
60/take2.ua
Normal file
6
60/take2.ua
Normal file
@@ -0,0 +1,6 @@
|
||||
P ← =1/+≠1°/×
|
||||
C ← ↧∩(/↧P)⊸⍜°⋕(/⍚⊂⍉⧅≠2)
|
||||
# [primes less than n] ? n
|
||||
Primes ← ⍥(⊂2)>2⟜(▽⊸P+1⍜÷(⇡⌊)2)
|
||||
Primes700
|
||||
▽wait⊸≡poolC⧅>4
|
||||
Reference in New Issue
Block a user