package Ġorg . ad vent of code Ċ Ċ class ĠDay 0 1 () Ġ{ ĊĠ Ġprivate Ġfun Ġchar Value ( c : ĠChar ): ĠInt Ġ= Ġwhen Ġ( c ) Ġ{ ĊĠĠĠ Ġ'(' Ġ-> Ġ 1 ĊĠĠĠ Ġ')' Ġ-> Ġ- 1 ĊĠĠĠ Ġelse Ġ-> Ġ 0 ĊĠ Ġ} ĊĊĠ Ġfun Ġextract Ops ( s : ĠString ): ĠList < Int > Ġ= Ġs ĊĠĠĠ Ġ. map Ġ{ Ġchar Value ( it ) Ġ} ĊĠĠĠ Ġ. toList () ĊĊĠ Ġfun Ġpart 1 ( ops : ĠList < Int >) Ġ= Ġops . sum () ĊĊĠ Ġ@ Opt In ( Experimental Std lib Api :: class ) ĊĠ Ġfun Ġpart 2 ( ops : ĠList < Int >): ĠInt Ġ= Ġops . as Sequence () ĊĠĠĠ Ġ. scan ( 0 ) Ġ{ Ġacc , Ġv Ġ-> Ġacc Ġ+ Ġv Ġ} ĊĠĠĠ Ġ. indexOf (- 1 ) Ċ Ċ }