package Ġgc j . y 2 0 2 0 . kick start _ c Ċ Ċ import Ġkotlin . math . pow Ċ Ċ private Ġfun Ġsolve (): ĠLong Ġ{ Ċ ĉ read Ln () Ċ ĉ val Ġpref Ġ= Ġmutable Map Of ( 0 Ġto Ġ 1 ) Ċ ĉ var Ġpref Sum Ġ= Ġ 0 ; Ġvar Ġmin Pref Sum Ġ= Ġ 0 Ċ ĉ return Ġread Ints (). map Ġ{ Ġx Ġ-> Ċĉ ĉ pref Sum Ġ+= Ġx Ċĉ ĉ pref [ pref Sum ] Ġ= Ġ( pref [ pref Sum ] Ġ?: Ġ 0 ) Ġ+ Ġ 1 Ċĉ ĉ min Pref Sum Ġ= Ġmin Of ( min Pref Sum , Ġpref Sum ) Ċĉ ĉ ( 0 .. ( pref Sum Ġ- Ġmin Pref Sum ). sqrt Floor ()). sum By Ġ{ Ġpref [ pref Sum Ġ- Ġit Ġ* Ġit ] Ġ?: Ġ 0 Ġ} Ġ- Ġ 1 L Ċ ĉ }. sum () Ċ } Ċ Ċ private Ġfun ĠInt . sqrt Floor () Ġ= Ġto Double (). pow ( 0 . 5 ). toInt () Ċ Ċ fun Ġmain () Ġ= Ġrepeat ( readInt ()) Ġ{ Ġprintln (" Case Ġ# ${ it Ġ+ Ġ 1 }: Ġ${ solve () }") Ġ} Ċ Ċ private Ġfun Ġread Ln () Ġ= Ġread Line () !! Ċ private Ġfun Ġread Int () Ġ= Ġread Ln (). toInt () Ċ private Ġfun Ġread Strings () Ġ= Ġread Ln (). split (" Ġ") Ċ private Ġfun Ġread Ints () Ġ= Ġread Strings (). map Ġ{ Ġit . toInt () Ġ} Ċ