package Ġday one Ċ Ċ import Ġmy utilities . Utils Ċ Ċ fun Ġmain () Ġ{ ĊĠĠĠ Ġval Ġdata Ġ= ĠUtils . readFile (" depth s . txt "). map Ġ{ Ġit . toInt () Ġ} ĊĊĠĠĠ Ġvar Ġi Ġ= Ġ 0 ĊĠĠĠ Ġvar Ġcount Ġ= Ġ 0 ĊĠĠĠ Ġwhile Ġ( i Ġ< Ġdata . size Ġ- Ġ 3 ) Ġ{ ĊĠĠĠĠĠĠĠ Ġif Ġ( data [ i ] Ġ< Ġdata [ i Ġ+ Ġ 3 ]) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġcount ++ ĊĠĠĠĠĠĠĠ Ġi ++ ĊĠĠĠ Ġ} ĊĠĠĠ Ġprintln ( count ) Ċ }