blob: f79835c794eb5dd6948990231acb5b4d3d436397 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
_fix ← { 𝕩 ≡ 𝔽 𝕩 ? 𝕩 ; 𝕊 𝔽 𝕩 }
d←>'0'-˜•FLines"day09"
l←d<⌊´{∞⊸»˘⌾(⍉∘⌽⍟𝕩)d}¨↕4
•Out +´⥊(1+d)×l
s← (1+↕×´≢d)×⌾⥊ l
Rise←(d≠9)⊸×(»⌈«⌈«˘⌈»˘⌈⊣)
m←⥊ Rise _fix s
•Out ×´3↑∨≠¨⊔(m>0)/m
# m← ⥊ Rise⍟50 s
{
_fix ← { 𝕩 ≡ 𝔽 𝕩 ? 𝕩 ; 𝕊 𝔽 𝕩 }
•Out ×´3↑∨≠¨⊔(>⟜0 / ⊢) ⥊ ((d≠9)⊸× »⌈«⌈«˘⌈»˘⌈⊣) _fix (1+↕×´≢d)×⌾⥊l
}
# 512
# 1600104
# Rise←{(d≠9)×(»𝕩)⌈(«𝕩)⌈(«˘𝕩)⌈(»˘𝕩)⌈𝕩}
# l←d<(∞»˘⌾⍉d)⌊(∞«˘⌾⍉d)⌊(∞«˘d)⌊(∞»˘d)
|