package Ġcode forces . edu round 6 9 Ċ Ċ // Ġhttps :// co def or ces . com / contest / 1 1 9 7 / problem / B Ċ fun Ġmain () Ġ{ ĊĠĠĠ Ġval Ġ( n , Ġk ) Ġ= Ġread Ints () ĊĠĠĠ Ġval Ġa Ġ= Ġread Ints (). to IntArray () ĊĠĠĠ Ġprintln ("${ solve Problem ( n , Ġk , Ġa )} ") Ċ } Ċ Ċ private Ġfun Ġsolve Problem ( n : ĠInt , Ġk : ĠInt , Ġa : ĠInt Array ): ĠInt Ġ{ ĊĠĠĠ Ġval Ġdiffs Ġ= ĠInt Array ( n Ġ- Ġ 1 ) Ġ{ ĊĠĠĠĠĠĠĠ Ġa [ it Ġ+ Ġ 1 ] Ġ- Ġa [ it ] ĊĠĠĠ Ġ} ĊĠĠĠ Ġdiffs . sort () ĊĠĠĠ Ġreturn Ġdiffs . take ( n Ġ- Ġk ). sum () Ċ } Ċ Ċ private Ġfun Ġread Ints () Ġ= Ġread Line () !!. split (" Ġ"). map ( String :: toInt )