Ini satu lagi sederhana:

Tantangan

Diberi dua titik dalam ruang n-dimensi, menghasilkan jarak di antara mereka, juga disebut jarak Euclidean.

• Koordinat akan menjadi bilangan rasional; satu-satunya batasan adalah batasan bahasa Anda.
• Dimensi terendah adalah 1, tertinggi adalah apa pun yang bisa ditangani oleh bahasa Anda
• Anda dapat mengasumsikan bahwa kedua titik tersebut memiliki dimensi yang sama dan tidak akan ada input kosong.
• Jarak harus benar ke setidaknya 3 tempat desimal. Jika bahasa Anda tidak mendukung angka floating point, keluarkan seluruh nomor terdekat.

Aturan

• Seperti biasa, fungsi atau program lengkap diizinkan.
• Masukan dapat diambil dari argumen STDIN, baris perintah atau fungsi.
• Format input terserah Anda, tentukan yang mana yang Anda gunakan dalam jawaban Anda.
• Output dapat diberikan dengan mencetak ke stdout atau mengembalikan nilai.
• Ini adalah kode-golf sehingga byte-count terendah akan menang! Dalam kasus seri, jawaban sebelumnya menang.

Uji kasus

Setiap titik diwakili oleh daftar panjang n.

[1], [3] -> 2
[1,1], [1,1] -> 0
[1,2], [3,4] -> 2.82842712475
[1,2,3,4], [5,6,7,8] -> 8
[1.5,2,-5], [-3.45,-13,145] -> 150.829382085
[13.37,2,6,-7], [1.2,3.4,-5.6,7.89] -> 22.5020221314

Selamat Coding!

MATL , 2 byte

ZP

Cobalah online !

The ZPfunction (sesuai dengan MATLAB pdist2) menghitung semua jarak berpasangan antara dua set poin, menggunakan jarak Euclidean secara default. Setiap set poin adalah sebuah matriks, dan setiap titik adalah sebuah baris. Dalam hal ini menghasilkan hasil tunggal, yaitu jarak antara dua titik.

MATL, 4.0 3 byte

Terima kasih atas -1 oleh @AndrasDeak!

-Zn

Membaca dua vektor (melalui input implisit yang diminta oleh -) lalu mengurangkannya dan menghitung norma perbedaannya dengan Zn.

Cobalah secara Online!

Pyth, 2 byte

.a

.a - L2 norma perbedaan vektor A [0] dan A [1].

Secara harfiah fungsi yang melakukan masalah ini

Coba di sini.

Jelly , 4 byte

_²S½

Cobalah online!

Bagaimana itu bekerja

_²S½    Main link. Left input: A (list). Right input: B (list).

_       Subtract B from A, element by element.
 ²      Square all differences.
  S     Add all squares.
   ½    Take the square root of the sum.

Mathematica, 11 byte

Norm[#-#2]&

Input sebagai dua daftar, output sebagai angka. Jika input tepat (bilangan bulat, rasional, dll.) Output akan tepat juga. Jika input berisi angka titik-mengambang, output akan menjadi float juga.

Oktaf, 15 byte

@(x,y)norm(x-y)

Contoh:

octave:1> d=@(x,y)norm(x-y);
octave:2> d([13.37,2,6,-7], [1.2,3.4,-5.6,7.89])
ans =  22.502

CJam, 11 8 byte

Terima kasih kepada Dennis untuk menghemat 3 byte.

q~.-:mhz

Jalankan semua test case.

Penjelasan

q~   e# Read and evaluate input.
.-   e# Vectorised difference.
:mh  e# Reduce √(x²+y²) over the list.
z    e# Take abs() to handle 1D input.

Lihat tip ini untuk alasan mengapa :mhberhasil.

Haskell, 46 byte

d :: Floating c => [c] -> [c] -> c
d a=sqrt.sum.map((^2).uncurry(flip(-))).zip a

Haskell, 35 byte (By @nimi)

d :: Float c => [c] -> [c] -> c
d a=sqrt.sum.zipWith(((^2).).(-))a

Haskell, 31 byte

Seperti jawaban Scala ini , mengambil input sebagai urutan tupel

<hack>

d :: Float c => [(c,c)] -> c
d=sqrt.sum.map$(^2).uncurry(-)

</hack>

Contoh:

Prelude> d [1] [3]
2.0
Prelude> d [1,1] [1,1]
0.0
Prelude> d [1,2,3,4] [5,6,7,8]
8.0
Prelude> d [1.5,2,-5] [-3.45,-13,145]
150.82938208452623
Prelude> d [13.37,2,6,-7] [1.2,3.4,-5.6,7.89]
22.50202213135522

APL, 14 11 byte

.5*⍨(+/-×-)

Ini adalah fungsi kereta diad yang membawa vektor di kiri dan kanan dan mengembalikan norma Euclidean dari perbedaan mereka.

Penjelasan:

       -×-)  ⍝ Squared differences
    (+/      ⍝ Sum them
.5*⍨         ⍝ Take the square root

Coba di sini

Disimpan 3 byte berkat Dennis!

J, 9 byte

+&.*:/-/>

Ini adalah fungsi yang mengambil satu set koordinat dari yang lain ( -/>), dan kemudian melakukan jumlah di +bawah &.kuadrat *:.

Input harus dalam format di x y z;a b cmana x y zset koordinat pertama Anda dan a b cyang lainnya.

Java, 130 117 114 107 105 byte

Ini adalah solusi yang jelas. Saya biasanya tidak bermain golf di Jawa, tetapi saya ingin tahu apakah Jawa bisa mengalahkan versi Brainfuck. Sepertinya saya tidak melakukan pekerjaan dengan baik .. Mungkin orang bisa menggunakan Map / Reduce baru dari Java 8 untuk menghemat beberapa byte.

Terima kasih kepada @ flawr (13 bytes), @KevinCruijssen (9 bytes) dan @DarrelHoffman (3 bytes)!

Golf:

double d(float[]a,float[]b){float x=0,s;for(int i=0;i<a.length;x+=s*s)s=a[i]-b[i++];return Math.sqrt(x);}

Tidak Disatukan:

double d(float[] a, float[] b) {
  float x=0,s;

  for(int i=0; i<a.length; x+=s*s)
    s = a[i] - b[i++];

  return Math.sqrt(x);
}

Julia, 16 byte

N(x,y)=norm(x-y)

Ini adalah fungsi yang menerima dua array dan mengembalikan norma Euclidean dari perbedaannya sebagai float.

Anda dapat memverifikasi semua kasus uji sekaligus online di sini .

golflua , 43 karakter

\d(x,y)s=0~@i,v i(x)s=s+(v-y[i])^2$~M.q(s)$

Bekerja dengan menyebutnya sebagai

> w(d({1,1},{1,1}))
0
> w(d({1,2},{3,4}))
2.82842712475
> w (d({1,2,3,4},{5,6,7,8}))
8

Setara Lua akan

function dist(x, y)
    s = 0
    for index,value in ipairs(x)
       s = s + (value - y[index])^2
    end
    return math.sqrt(s)
end

Serius, 12 byte

,iZ`i-ª`MΣ√A

Cobalah online!

Penjelasan:

,iZ`i-ª`MΣ√A
,iZ           get input, flatten, zip
   `   `M     map:
    i-ª         flatten, subtract, square
         Σ√A  sum, sqrt, abs

Ruby, 52

->p,q{t=0;p.size.times{|i|t+=(p[i]-q[i])**2}
t**0.5}

Dalam program uji

f=->p,q{t=0;p.size.times{|i|t+=(p[i]-q[i])**2}
t**0.5}

p f[[1], [3]] # 2
p f[[1,1], [1,1]] # 0
p f[[1,2], [3,4]] # 2.82842712475
p f[[1,2,3,4], [5,6,7,8]] # 8
p f[[1.5,2,-5], [-3.45,-13,145]] # 150.829382085
p f[[13.37,2,6,-7], [1.2,3.4,-5.6,7.89]] # 22.5020221314

AppleScript, 241 239 byte

Ini adalah kode golf, tapi saya sudah memasukkan komentar dalam formulir --.

on a()    -- Calling for getting input
set v to{1}          -- Arbitrary placeholder
repeat until v's item-1=""       -- Repeat until no input is gathered
set v to v&(display dialog""default answer"")'s text returned   -- Add input to list
end      -- End the repeat
end      -- End the method
set x to a()   -- Set the array inputs
set y to a()
set z to 0     -- Sum placeholder
set r to 2     -- 2 is the first significant array index
repeat(count of items in x)-2     -- Loop through all but first and last of the array
set z to z+(x's item r-y's item r)^2    -- Add the square of the difference
end   -- End the repeat
z^.5  -- Return the square root of the sum

Ini menggunakan algoritma yang sama dengan sebagian besar program lain di sini.

Perl 6, 30 29 26 24 byte

{sqrt [+] ([Z-] $_)»²}

(Terima kasih @ b2gills untuk 2 byte lebih hilang)

pemakaian

my &f = {sqrt [+] (@^a Z-@^b)»²};

say f([1], [3]); # 2
say f([1,1], [1,1]); # 0
say f([1,2], [3,4]); # 2.82842712474619
say f([1,2,3,4], [5,6,7,8]); # 8
say f([1.5,2,-5], [-3.45,-13,145]); # 150.829382084526
say f([13.37,2,6,-7], [1.2,3.4,-5.6,7.89]); # 22.5020221313552

JavaScript ES7, 45 ES6, 37 byte

a=>Math.hypot(...a.map(([b,c])=>b-c))

Mengharapkan array pasangan koordinat, satu dari setiap vektor, misalnya [[1, 5], [2, 6], [3, 7], [4, 8]]. Jika itu tidak dapat diterima, maka untuk 42 byte:

(a,b)=>Math.hypot(...a.map((e,i)=>e-b[i]))

Mengharapkan dua array dengan panjang yang sama dengan dua vektor N-dimensi, mis [1, 2, 3, 4], [5, 6, 7, 8]. Sunting: Disimpan 3 byte berkat @ l4m2. (Juga, apakah tidak ada yang memperhatikan kesalahan ketik saya?)

Python 2, 47 byte

Solusi lurus ke depan. Fungsi mengharapkan 2 poin sebagai urutan angka, dan mengembalikan jarak di antara mereka.

lambda a,b:sum((d-e)**2for d,e in zip(a,b))**.5

Contoh:

>>> f([13.37, 2, 6, -7], [1.2, 3.4, -5.6, 7.89])
22.50202213135522

𝔼𝕊𝕄𝕚𝕟, 6 karakter / 13 byte

МŰМŷ…ï

Try it here (Firefox only).

Menghitung norma perbedaan array input.

Scala, 67 62 byte

def e(a:(Int,Int)*)=math.sqrt(a map(x=>x._2-x._1)map(x=>x*x)sum)

Membutuhkan input sebagai urutan / vektor dari var-arg tuple
Contoh:

scala> e((1, 5), (2, 6), (3, 7), (4, 8))
res1: Double = 8.0

C #, 72 byte

(float[]i,float[]n)=>System.Math.Sqrt(i.Zip(n,(x,y)=>(x-y)*(x-y)).Sum())

Solusi sederhana menggunakan Linq.

Sage, 35 byte

lambda a,b,v=vector:norm(v(a)-v(b))

Fungsi ini mengambil 2 daftar sebagai input dan mengembalikan ekspresi simbolik. Jarak dihitung dengan melakukan pengurangan vektor pada daftar dan menghitung norma Euclidean dari vektor yang dihasilkan.

Cobalah online

TI-Basic (TI-84 Plus CE), 15 byte

Prompt A,B
√(sum((LA-LB)2

TI-Basic adalah bahasa tokenized .

Meminta input sebagai dua daftar, dan mengembalikan jarak Euclidian di antara mereka Ans

Penjelasan:

Prompt A,B    # 5 bytes, Prompts for two inputs; if the user inputs lists:
           # they are stored in LA and LB
√(sum((LA-LB)2 # 10 bytes, Euclidian distance between points
           #(square root of (sum of (squares of (differences of coordinates))))

R, 4 byte

dist

Ini adalah fungsi bawaan untuk menghitung matriks jarak dari setiap matriks masukan. Default untuk jarak euclidean.

Contoh penggunaan:

> x=matrix(c(1.5,-3.45,2,-13,-5,145),2)
> x
      [,1] [,2] [,3]
[1,]  1.50    2   -5
[2,] -3.45  -13  145
> dist(x)
         1
2 150.8294

Jika Anda merasa kecewa karena ini built-in, maka ini versi non-built-in (atau setidaknya, ini kurang built-in ...) untuk 22 byte (dengan terima kasih kepada Giuseppe ):

pryr::f(norm(x-y,"F"))

Ini adalah fungsi anonim yang mengambil dua vektor sebagai input.

Haskell, 32 byte

((sqrt.sum.map(^2)).).zipWith(-)

λ> let d = ((sqrt.sum.map(^2)).).zipWith(-)
λ> d [1] [3]
2.0
λ> d [1,1] [1,1]
0.0
λ> d [1,2] [3,4]
2.8284271247461903
λ> d [1..4] [5..8]
8.0
λ> d [1.5,2,-5] [-3.45,-13,145]
150.82938208452623
λ> d [13.37,2,6,-7] [1.2,3.4,-5.6,7.89]
22.50202213135522

Python 3, 70 Karakter

Loop melalui, menemukan kuadrat dari perbedaan dan kemudian akar dari penjumlahan:

a=input()
b=input()
x=sum([(a[i]-b[i])**2 for i in range(len(a))])**.5

Mathcad, byte

Menggunakan operator besaran vektor (nilai absolut) bawaan untuk menghitung ukuran perbedaan antara dua titik (dinyatakan sebagai vektor).

Ukuran golf Mathcad ditahan sampai saya mendapatkan (atau orang lain) untuk membuka diskusi tentang meta. Namun, cara terpendek (dengan asumsi bahwa input vektor titik tidak berkontribusi pada skor) adalah 3 "byte", dengan 14 byte untuk versi fungsional.

Pyke, 7 byte

,A-MXs,

Coba di sini!

Transpose, terapkan kurangi, map square, sum, sqrt.

Ruby, 50 byte

Zip, lalu petakan / kurangi. Hampir tidak memunculkan jawaban Ruby lainnya dari @LevelRiverSt dengan 2 byte ...

->p,q{p.zip(q).map{|a,b|(a-b)**2}.reduce(:+)**0.5}

Cobalah online