fun Ġmain () Ġ{ ĊĠĠĠ Ġval ĠT Ġ= Ġread Line () !!. toInt () ĊĠĠĠ Ġrepeat ( T , Ġ:: case ) Ċ } Ċ Ċ fun Ġcase ( t : ĠInt ) Ġ{ ĊĠĠĠ Ġval ĠN Ġ= Ġread Line () !!. toInt () ĊĠĠĠ Ġval ĠVs Ġ= Ġread Line () !!. split To Sequence (' Ġ'). map Ġ{ Ġit . toInt () Ġ}. toList () ĊĊĠĠĠ Ġval Ġarray Ġ= ĠVs . to IntArray () ĊĠĠĠ Ġtrouble Sort ( array ) ĊĠĠĠ Ġval Ġfirst Error Index Ġ= Ġarray . as Sequence (). zip With Next (). indexOf First Ġ{ Ġit . first Ġ> Ġit . second Ġ} ĊĊĠĠĠ Ġval Ġy Ġ= Ġif Ġ( first Error Index Ġ== Ġ- 1 ) Ġ" OK " Ġelse Ġfirst Error Index ĊĠĠĠ Ġprintln (" Case Ġ# ${ t Ġ+ Ġ 1 }: Ġ$ y ") Ċ } Ċ Ċ // Ġ 3 Ġâī ¤ ĠN Ċ fun Ġtrouble Sort ( array : ĠInt Array ) Ġ{ ĊĠĠĠ Ġdo Ġ{ ĊĠĠĠĠĠĠĠ Ġvar Ġchanged Ġ= Ġfalse ĊĠĠĠĠĠĠĠ Ġfor Ġ( i Ġin Ġ 0 Ġuntil Ġarray . size Ġ- Ġ 2 ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġif Ġ( array [ i ] Ġ> Ġarray [ i Ġ+ Ġ 2 ]) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġt Ġ= Ġarray [ i ] ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġarray [ i ] Ġ= Ġarray [ i Ġ+ Ġ 2 ] ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġarray [ i Ġ+ Ġ 2 ] Ġ= Ġt ĊĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġchanged Ġ= Ġtrue ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ġwhile Ġ( changed ) Ċ } Ċ Ċ main ()