Total circles area: Difference between revisions
Content added Content deleted
(→{{header|Uiua}}: improved algorithm) |
|||
Line 3,803:
[0.0152957411 0.0638919221 0.9771215985]]
# Scale total range to (0-Dim,0-Dim), save MaxXorY for later.▼
▲# Scale total range to (0-Dim,0-Dim), save for later.
Dim ← 500
Zcs ← ≡(⬚0-MinXY) Cs
Scs ← ⁅×Dim÷: Ncs Scale▼
MaxXorY ← /↥/↥≡(+⊃(⊢|↘1)↻¯1) Zcs
# For each r generate a 2r.2r grid and set cells that are within circle.
InCircle ← <ⁿ2⟜(⊞(/+≡ⁿ2⊟).+⇡⊃(×2|¯))
Line 3,819 ⟶ 3,817:
&p &pf "Runtime (s): "
×ⁿ2 ÷Dim
&p &pf "*Very* approximate area: "
|