package Ġcom . github . war ri or zz . a oc čĊč Ċ import Ġjava . nio . file . Files č Ċ import Ġjava . nio . file . Path č Ċ import Ġkotlin . math . abs čĊč Ċ private Ġfun Ġmain () Ġ{ čĊĠĠĠ Ġprintln (" Day Ġ 7 :") čĊčĊĠĠĠ Ġval Ġcr abs Ġ= ĠFiles . read All Lines ( Path . of ("./ input / day - 0 7 . txt ")) [ 0 ]. split ("," ). map Ġ{ Ġit . toInt () Ġ} čĊĠĠĠ Ġval Ġsolution Ġ= Ġ( cr abs . min Of Ġ{ Ġit Ġ} .. cr abs . max Of Ġ{ Ġit Ġ}). map Ġ{ Ġaverage Ġ-> čĊĠĠĠĠĠĠĠ Ġcr abs . map Ġ{ Ġabs ( it Ġ- Ġaverage ) Ġ}. reduce Ġ{ Ġacc , Ġi Ġ-> Ġacc Ġ+ Ġi Ġ} čĊĠĠĠ Ġ}. min Of Ġ{ Ġit Ġ} čĊĠĠĠ Ġval Ġsolution 2 Ġ= Ġ( cr abs . min Of Ġ{ Ġit Ġ} .. cr abs . max Of Ġ{ Ġit Ġ}). map Ġ{ Ġaverage Ġ-> čĊĠĠĠĠĠĠĠ Ġcr abs . map Ġ{ Ġfactor ial But Not As You Think ( abs ( it Ġ- Ġaverage )) Ġ}. reduce Ġ{ Ġacc , Ġi Ġ-> Ġacc Ġ+ Ġi Ġ} čĊĠĠĠ Ġ}. min Of Ġ{ Ġit Ġ} čĊĠĠĠ Ġprintln (" Solution Ġpart Ġ 1 : Ġ$ solution ") čĊĠĠĠ Ġprintln (" Solution Ġpart Ġ 2 : Ġ$ solution 2 ") č Ċ } čĊč Ċ private Ġfun Ġfactor ial But Not As You Think ( n : ĠInt ): ĠInt Ġ= Ġif Ġ( n Ġ> Ġ 0 ) Ġn Ġ+ Ġfactor ial But Not As You Think ( n Ġ- Ġ 1 ) Ġelse Ġ 0 čĊč Ċ fun Ġday 0 7 () Ġ= Ġmain () čĊ