11 lines
223 B
Plaintext
11 lines
223 B
Plaintext
# Experimental!
|
||
# project euler 44
|
||
p ← ÷2×⊸(-1×3)
|
||
c ← =0-⊸⌊°p
|
||
# ⧈₂/(↧∩c⊃+-) p +1⇡100
|
||
# ⍢+₁/(¬↥∩c⊃+-∩p) 1_2
|
||
# &p⟜/-p
|
||
⌊▽⊸(c∂p) +1.5⇡100000000
|
||
≡(p⊂⟜+₁)
|
||
▽⊸(c≡/+)
|