package Ġsales _ by _ match Ċ Ċ fun Ġmain () Ġ{ ĊĠĠĠ Ġval Ġarr Ġ= ĠarrayOf ( 1 , 2 , 1 , 2 , 1 , 3 , 2 ) ĊĠĠĠ Ġval Ġ( result , Ġleft ) Ġ= Ġsock Merchant ( arr ) ĊĠĠĠ Ġprintln ("$ result Ġ$ left ") Ċ } Ċ Ċ fun Ġsock Merchant ( ar : ĠArray < Int >): ĠPair < Int , ĠList < Int >> Ġ{ ĊĠĠĠ Ġval Ġctr Arr Ġ= Ġmutable ListOf < Int >() ĊĠĠĠ Ġvar Ġcount Ġ= Ġ 0 ĊĊĠĠĠ Ġfor Ġ( i Ġin Ġar ) Ġ{ ĊĠĠĠĠĠĠĠ Ġif Ġ( ctr Arr . contains ( i )){ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġctr Arr . remove ( i ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġcount ++ ĊĠĠĠĠĠĠĠ Ġ} Ġelse Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġctr Arr . add ( i ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġreturn ĠPair ( count , Ġctr Arr ) Ċ }