package Ġorg . open rnd r . extra . p 5 Ċ Ċ import Ġkotlin . math . sqrt Ċ Ċ fun Ġdistance ( x 1 : ĠDouble , Ġy 1 : ĠDouble , Ġx 2 : ĠDouble , Ġy 2 : ĠDouble ): ĠDouble Ġ{ ĊĠĠĠ Ġvar Ġxx 1 Ġ= Ġx 1 ĊĠĠĠ Ġvar Ġyy 1 Ġ= Ġy 1 ĊĠĠĠ Ġxx 1 Ġ-= Ġx 2 ĊĠĠĠ Ġyy 1 Ġ-= Ġy 2 ĊĠĠĠ Ġreturn Ġsqrt ( xx 1 Ġ* Ġxx 1 Ġ+ Ġyy 1 Ġ* Ġyy 1 ) Ċ } Ċ Ċ const Ġval ĠQU AR TER _ PI Ġ= Ġ 0 . 7 8 5 3 9 8 2 Ċ const Ġval ĠTWO _ PI Ġ= Ġ 6 . 2 8 3 1 8 5 5 Ċ const Ġval ĠHAL F _ PI Ġ= Ġ 1 . 5 7 0 7 9 6 4 Ċ const Ġval ĠT AU Ġ= ĠTWO _ PI