Total circles area: Difference between revisions
→{{header|Uiua}}
(Added Uiua solution) |
|||
Line 3,810:
Dim ← 500
Scale ← /↥♭≡(+⊃(⊢|↘1)↻¯1) Ncs
Scs ←
# For each r generate a 2r.2r grid and set cells that are within circle.
InCircle ← <ⁿ2⟜(⊞(/+≡ⁿ2⊟).+⇡⊃(×2|¯))
Line 3,829:
stdout:
Runtime (s): 3.7929999999978463
*Very* approximate area: 21.
</pre>
[[File:UiuaOverlappingCircles.png|300px|thumbnail|center|Overlapping translucent circles]]
<p></p>
=={{header|VBA}}==
Analytical solution adapted from Haskell/Python.
| |||