60/uiua: wip

This commit is contained in:
2025-10-06 20:46:44 +02:00
parent ba5c5fd00a
commit 818e46ee08

6
60/take2.ua Normal file
View 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