11 lines
203 B
Plaintext
11 lines
203 B
Plaintext
# project euler 87
|
||
P ← =1/+≠1°/×
|
||
Primes ← ⍥(⊂2)>2⟜(▽⊸P+1⍜÷₂(⇡⌊))
|
||
Primes 6
|
||
# +24°√⊣ # 7080 -> 50112265
|
||
⧅≥3
|
||
≡↻[1 2 3]¤⍉
|
||
◴/⊂⍉
|
||
/+ⁿ[2 3 4]⍉
|
||
⧻⊚<50
|