/* Ċ Ġ* ĠCopyright Ġ 2 0 1 7 - 2 0 2 0 Ġthe Ġoriginal Ġauthor Ġor Ġauthors . Ċ Ġ* Ċ Ġ* ĠLicensed Ġunder Ġthe ĠApache ĠLicense , ĠVersion Ġ 2 . 0 Ġ( the Ġ" License "); Ċ Ġ* Ġyou Ġmay Ġnot Ġuse Ġthis Ġfile Ġexcept Ġin Ġcompliance Ġwith Ġthe ĠLicense . Ċ Ġ* ĠYou Ġmay Ġobtain Ġa Ġcopy Ġof Ġthe ĠLicense Ġat Ċ Ġ* Ċ Ġ* ĠĠĠĠĠ Ġhttp :// www . apache . org / licenses / LICENSE - 2 . 0 Ċ Ġ* Ċ Ġ* ĠUnless Ġrequired Ġby Ġapplicable Ġlaw Ġor Ġagreed Ġto Ġin Ġwriting , Ġsoftware Ċ Ġ* Ġdistributed Ġunder Ġthe ĠLicense Ġis Ġdistributed Ġon Ġan Ġ" AS ĠIS " ĠBASIS , Ċ Ġ* ĠWITHOUT ĠWARRANTIES ĠOR ĠCONDITIONS ĠOF ĠANY ĠKIND , Ġeither Ġexpress Ġor Ġimplied . Ċ Ġ* ĠSee Ġthe ĠLicense Ġfor Ġthe Ġspecific Ġlanguage Ġgoverning Ġpermissions Ġand Ċ Ġ* Ġlimitations Ġunder Ġthe ĠLicense . Ċ Ġ*/ Ċ package Ġorg . k oin . core . time Ċ Ċ import Ġkotlin . time . Experimental Time Ċ import Ġkotlin . time . Time Source Ċ Ċ /** Ċ Ġ* ĠMeasure Ġfunctions Ċ Ġ* Ċ Ġ* Ġ@ author ĠAr na ud ĠG i ul ian i Ċ Ġ*/ Ċ Ċ /** Ċ Ġ* ĠMeasure Ġcode Ġexecution Ċ Ġ*/ Ċ @ Opt In ( Experimental Time :: class ) Ċ fun Ġmeasure Duration ( code : Ġ() Ġ-> ĠUnit ): ĠDouble Ġ{ ĊĠĠĠ Ġval Ġclock Ġ= ĠTime Source . Mon otonic ĊĠĠĠ Ġval Ġmark Ġ= Ġclock . mark Now () ĊĠĠĠ Ġcode () ĊĠĠĠ Ġreturn Ġmark . elapsed Now (). in Milliseconds Ċ } Ċ Ċ @ Opt In ( Experimental Time :: class ) Ċ fun Ġmeasure Duration ( message : ĠString , Ġcode : Ġ() Ġ-> ĠUnit ) Ġ{ ĊĠĠĠ Ġval Ġtime Ġ= Ġmeasure Duration ( code ) ĊĠĠĠ Ġprintln ("$ message Ġ- Ġ$ time Ġms ") Ċ } Ċ Ċ /** Ċ Ġ* ĠMeasure Ġcode Ġexecution Ġand Ġget Ġresult Ċ Ġ*/ Ċ @ Opt In ( Experimental Time :: class ) Ċ fun Ġ< T > Ġmeasure Duration For Result ( code : Ġ() Ġ-> ĠT ): ĠPair < T , ĠDouble > Ġ{ ĊĠĠĠ Ġval Ġclock Ġ= ĠTime Source . Mon otonic ĊĠĠĠ Ġval Ġmark Ġ= Ġclock . mark Now () ĊĠĠĠ Ġval Ġresult Ġ= Ġcode () ĊĠĠĠ Ġreturn ĠPair ( result , Ġmark . elapsed Now (). in Milliseconds ) Ċ } Ċ Ċ @ Opt In ( Experimental Time :: class ) Ċ fun Ġ< T > Ġmeasure Duration For Result ( message : ĠString , Ġcode : Ġ() Ġ-> ĠT ): ĠT Ġ{ ĊĠĠĠ Ġval Ġ( result , Ġtime ) Ġ= Ġmeasure Duration For Result ( code ) ĊĠĠĠ Ġprintln ("$ message Ġ- Ġ$ time Ġms ") ĊĠĠĠ Ġreturn Ġresult Ċ } Ċ