package Ġun ile cs Ċ Ċ fun Ġget Lon gest Har monic Sub sequence ( array Ġ: ĠArray < Int >) Ġ: ĠInt Ġ{ ĊĠĠĠ Ġval Ġvalues Count Ġ= Ġmutable Map Of < Int , ĠInt >() ĊĠĠĠ Ġarray . forEach Ġ{ Ġi Ġ-> Ġvalues Count [ i ] Ġ= Ġvalues Count . get OrDefault ( i , 0 ) Ġ+ Ġ 1 Ġ} ĊĠĠĠ Ġreturn Ġvalues Count . keys . max Of Ġ{ Ġn Ġ-> Ġvalues Count [ n ] !! Ġ+ Ġvalues Count . get OrDefault ( n Ġ+ Ġ 1 , Ġ- values Count [ n ] !! ) Ġ} Ċ } Ċ