import Ġjava . util . Scanner Ċ Ċ fun Ġcount Trip lets ( r : ĠLong , Ġseq : ĠSequence < Long >): ĠLong Ġ{ ĊĠ Ġval Ġh 2 Ġ= ĠHashMap < Long , ĠLong >(). with Default Ġ{ Ġ_ Ġ-> Ġ 0 L Ġ} ĊĠ Ġval Ġh 3 Ġ= ĠHashMap < Long , ĠLong >(). with Default Ġ{ Ġ_ Ġ-> Ġ 0 L Ġ} ĊĊĠ Ġreturn Ġseq . fold ( 0 L , Ġ{ Ġacc , Ġx Ġ-> ĊĠĠĠ Ġval Ġinc Ġ= Ġh 3 . getValue ( x ) ĊĠĠĠ Ġh 3 [ x * r ] Ġ= Ġh 3 . getValue ( x * r ) Ġ+ Ġh 2 . getValue ( x ) ĊĠĠĠ Ġh 2 [ x * r ] Ġ= Ġh 2 . getValue ( x * r ) Ġ+ Ġ 1 ĊĠĠĠ Ġacc Ġ+ Ġinc ĊĠ Ġ}) Ċ } Ċ Ċ fun Ġmain (_ args : ĠArray < String >) Ġ{ ĊĠ Ġval Ġscanner Ġ= ĠScanner ( System .` in `) ĊĠ Ġval Ġn Ġ= Ġscanner . nextInt () ĊĠ Ġval Ġr Ġ= Ġscanner . next Long () ĊĠ Ġprintln ( count Trip lets ( r , Ġgenerate Sequence Ġ{ Ġscanner . next Long () Ġ}. take ( n ))) Ċ } Ċ