package Ġplus _ minus Ċ Ċ fun Ġmain () Ġ{ ĊĠĠĠ Ġplus Minus ( array Of (- 4 , 3 ,- 9 , 0 , 4 , 1 )) Ċ } Ċ Ċ fun Ġplus Minus ( arr : ĠArray < Int >) Ġ{ ĊĠĠĠ Ġval Ġneg Count Ġ= Ġarr . count Ġ{ Ġit Ġ< Ġ 0 Ġ} ĊĠĠĠ Ġval Ġzero Count Ġ= Ġarr . count Ġ{ Ġit Ġ== Ġ 0 Ġ} ĊĠĠĠ Ġval Ġpos Count Ġ= Ġarr . count Ġ{ Ġit Ġ> Ġ 0 } ĊĠĠĠ Ġval Ġarr Len Ġ= Ġarr . size . toDouble () ĊĊĠĠĠ Ġarr . distinct By Ġ{ Ġ Ġ} ĊĊĠĠĠ Ġprintln ("% . 6 f ". format ( pos Count . div ( arr Len ))) ĊĠĠĠ Ġprintln ("% . 6 f ". format ( neg Count . div ( arr Len ))) ĊĠĠĠ Ġprintln ("% . 6 f ". format ( zero Count . div ( arr Len ))) Ċ }