34 lines
480 B
Text
34 lines
480 B
Text
~ "aoc.ua" ~ Lines
|
|
|
|
Input ← ⊜∘ ⊸≠ @\n &fras "input/day07.txt"
|
|
Input
|
|
⊃(
|
|
| =@^ ↘1
|
|
| =@S ⊢
|
|
)
|
|
Manifold ←
|
|
Beam ←
|
|
|
|
Split ← +⊃(⬚0↻1|⬚0↻¯1)
|
|
|
|
# Count ? Manifold Beam
|
|
Part₁ ← (
|
|
⊙⊙0
|
|
∧(
|
|
# Splitters Beam Count
|
|
⊸↧
|
|
⊸/+
|
|
|
|
# Taken Splits Beam Count
|
|
⊃(⋅⊙∘|+⊙⋅⋅∘)
|
|
# Splits Beam Count'
|
|
|
|
⊸Split
|
|
⊙-
|
|
≠₀+ # Beam' ? Forked Passthrough
|
|
# Beam' Count'
|
|
)
|
|
◌
|
|
)
|
|
|
|
Part₁ Manifold Beam
|