package Ġcode forces . round 5 7 6 Ċ Ċ fun Ġmain () Ġ{ Ċ ĉ val Ġ( n , Ġsize InBytes ) Ġ= Ġread Ints () Ċ ĉ val Ġsorted Map Ġ= Ġsorted Map Of < Int , ĠInt >() Ċ ĉ for Ġ( x Ġin Ġread Ints ()) Ġ{ Ċĉ ĉ sorted Map [ x ] Ġ= Ġsorted Map . get OrDefault ( x , Ġ 0 ) Ġ+ Ġ 1 Ċ ĉ } Ċ ĉ val Ġcount Ġ= Ġsorted Map . values . toList () Ċ ĉ val Ġoptions Ġ= Ġmin Of ( 1 Ġshl Ġmin Of ( size InBytes Ġ* Ġ 8 Ġ/ Ġn , Ġ 3 0 ), Ġcount . size ) Ċ ĉ var Ġsaved Ġ= Ġcount . take ( options ). sum () Ċ ĉ var Ġans Ġ= Ġsaved Ċ ĉ for Ġ( i Ġin Ġ 0 Ġuntil Ġcount . size Ġ- Ġoptions ) Ġ{ Ċĉ ĉ saved Ġ+= Ġcount [ i Ġ+ Ġoptions ] Ġ- Ġcount [ i ] Ċĉ ĉ ans Ġ= Ġmax Of ( ans , Ġsaved ) Ċ ĉ } Ċ ĉ println ( n Ġ- Ġans ) Ċ } Ċ Ċ private Ġfun Ġread Ln () Ġ= Ġread Line () !! Ċ private Ġfun Ġread Strings () Ġ= Ġread Ln (). split (" Ġ") Ċ private Ġfun Ġread Ints () Ġ= Ġread Strings (). map Ġ{ Ġit . toInt () Ġ} Ċ