19 lines
513 B
BQN
19 lines
513 B
BQN
⟨Split⟩←•Import"../bqn-libs/strings.bqn"
|
||
|
||
≢i←•FLines"input"
|
||
ParseGame←{
|
||
g‿rs←":"Split 𝕩
|
||
gid←•ParseFloat 1⊑" "Split g
|
||
rs↩" "⊸Split¨¨1↓¨¨","⊸Split¨";"Split rs
|
||
rs↩(+´{
|
||
𝕊n‿"red": ⟨•ParseFloat n,0,0⟩;
|
||
𝕊n‿"green": ⟨0,•ParseFloat n,0⟩;
|
||
𝕊n‿"blue": ⟨0,0,•ParseFloat n⟩
|
||
}¨)¨rs
|
||
gid‿rs
|
||
}
|
||
≢gs←ParseGame¨i
|
||
|
||
•Show +´(∧´¨∧´¨12‿13‿14⊸≥¨¨1⊸⊑¨gs)/⊑¨gs
|
||
|
||
•Show +´×´¨⌈´¨1⊸⊑¨gs
|