60/uiua: wip
This commit is contained in:
@@ -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