fork download
copy 
  1. // GROUP_29_2022510088_2022510126.fs
  2. let p1 = [| 6.0; 148.0; 72.0; 35.0; 0.0; 33.6; 0.627; 50.0 |]
  3. let p2 = [| 1.0; 85.0; 66.0; 29.0; 0.0; 26.6; 0.351; 31.0 |]
  4.  
  5. let mutable sumSq = 0.0
  6. for i in 0 .. 7 do
  7.     sumSq <- sumSq + ((p1.[i] - p2.[i]) ** 2.0)
  8.  
  9. let distance = sqrt sumSq
  10. printfn "Euclidean Distance: %f" distance
Success #stdin #stdout 0.04s 30656KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Euclidean Distance: 66.903484
https://ideone.com/ZQdcck
language:
F# (mono 4.1)
created:
17 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!