fork download
copy 
  1. # GROUP_29_2022510088_2022510126.pl
  2. my @p1 = (17,163,72,41,114,40.9,0.817,47);
  3. my @p2 = (0,114,80,34,285,44.2,0.167,27);
  4. my $sum_sq = 0;
  5.  
  6. for (my $i = 0; $i < 8; $i++) {
  7.     $sum_sq += ($p1[$i] - $p2[$i]) ** 2;
  8. }
  9.  
  10. my $distance = sqrt($sum_sq);
  11. print "Euclidean Distance: $distance\n";
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Euclidean Distance: 180.153580314131
https://ideone.com/qhAuUP
language:
Perl (perl 5.28.1)
created:
6 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!