นี่คืออีกวิธีง่าย ๆ :

ความท้าทาย

เมื่อกำหนดสองจุดในพื้นที่ n- มิติให้ส่งออกระยะห่างระหว่างพวกเขาหรือที่เรียกว่าระยะทางแบบยุคลิด

• พิกัดจะเป็นจำนวนตรรกยะ ข้อ จำกัด เพียงข้อ จำกัด ของภาษาของคุณ
• ขนาดต่ำสุดคือ 1 สูงสุดเป็นสิ่งที่ภาษาของคุณสามารถจัดการได้
• คุณอาจสมมติว่าจุดสองจุดนั้นมีขนาดเท่ากันและจะไม่มีอินพุตว่าง
• ระยะทางจะต้องถูกต้องไปยังตำแหน่งทศนิยมอย่างน้อย 3 ตำแหน่ง หากภาษาของคุณไม่รองรับหมายเลขทศนิยมให้เอาท์พุททั้งจำนวนที่ใกล้ที่สุด

กฎระเบียบ

• อนุญาตให้ใช้ฟังก์ชันหรือโปรแกรมเต็มรูปแบบตามปกติ
• อินพุตอาจถูกนำมาจาก STDIN, บรรทัดคำสั่งหรือฟังก์ชันอาร์กิวเมนต์
• รูปแบบการป้อนข้อมูลขึ้นอยู่กับคุณระบุว่าคุณใช้รูปแบบใดในคำตอบ
• เอาต์พุตอาจถูกจัดเตรียมโดยการพิมพ์ไปยัง stdout หรือค่าส่งคืน
• นี่คือโค้ดกอล์ฟที่ชนะการนับไบต์ต่ำที่สุด! ในกรณีที่เสมอกันคำตอบก่อนหน้านี้ชนะ

กรณีทดสอบ

แต่ละจุดถูกแสดงด้วยรายการความยาว 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

Happy Coding!

MATL , 2 ไบต์

ZP

ลองออนไลน์ !

ZPฟังก์ชั่น (ตรงกับของ MATLAB pdist2) คำนวณจากจำนวนทั้งหมดระยะทางระหว่างสองชุดของจุดโดยใช้ระยะทางยุคลิดโดยค่าเริ่มต้น ชุดของคะแนนแต่ละชุดเป็นเมทริกซ์และแต่ละจุดเป็นแถว ในกรณีนี้มันจะสร้างผลลัพธ์เดียวซึ่งเป็นระยะทางระหว่างจุดสองจุด

MATL, 4.0 3 ไบต์

ขอบคุณสำหรับ -1 โดย @AndrasDeak!

-Zn

อ่านสองเวกเตอร์ (ผ่านการป้อนข้อมูลนัยที่มีการร้องขอโดย-) แล้ว substracts Znเหล่านั้นและคำนวณบรรทัดฐานของความแตกต่างของพวกเขาด้วย

ลองออนไลน์!

Pyth, 2 ไบต์

.a

.a - บรรทัดฐาน L2 ของผลต่างเวคเตอร์ของ A [0] และ A [1]

แท้จริงฟังก์ชั่นที่ทำให้เกิดปัญหานี้

ลองที่นี่

เยลลี่ขนาด 4 ไบต์

_²S½

ลองออนไลน์!

มันทำงานอย่างไร

_²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 ไบต์

Norm[#-#2]&

อินพุตเป็นสองรายการเอาต์พุตเป็นตัวเลข หากการป้อนข้อมูลถูกต้อง (จำนวนเต็มปันส่วน ฯลฯ ) การส่งออกจะถูกต้องเช่นกัน หากอินพุตมีจำนวนจุดลอยตัวเอาต์พุตจะเป็นแบบลอยเช่นกัน

อ็อกเทฟ 15 ไบต์

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

ตัวอย่าง:

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 ไบต์

ขอบคุณเดนนิสที่ช่วยประหยัด 3 ไบต์

q~.-:mhz

เรียกใช้กรณีทดสอบทั้งหมด

คำอธิบาย

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.

ดูเคล็ดลับนี้สำหรับเหตุผลที่:mhทำงาน

Haskell, 46 ไบต์

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

Haskell, 35 ไบต์ (โดย @nimi)

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

Haskell, 31 ไบต์

แบบนี้สกาล่าตอบอินพุตเป็นลำดับของ tuples

<สับ>

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

</ สับ>

ตัวอย่าง:

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 ไบต์

.5*⍨(+/-×-)

นี่คือรถไฟฟังก์ชั่น dyadic ที่นำเวกเตอร์ไปทางซ้ายและขวาและส่งกลับค่าปกติแบบยุคลิดของความแตกต่าง

คำอธิบาย:

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

ลองที่นี่

บันทึกแล้ว 3 ไบต์ขอบคุณเดนนิส!

J, 9 ไบต์

+&.*:/-/>

นี้เป็นฟังก์ชั่นที่ใช้เวลาหนึ่งชุดของพิกัดจากที่อื่น ๆ ( -/>) แล้วดำเนินการผลรวม+ภายใต้ตาราง&.*:

อินพุตควรอยู่ในรูปแบบx y z;a b cที่x y zชุดพิกัดชุดแรกของคุณและa b cชุดอื่น

Java, 130 117 114 107 105 ไบต์

นี่คือทางออกที่ชัดเจน ปกติฉันไม่เล่นกอล์ฟใน Java แต่ฉันอยากรู้ว่า Java สามารถเอาชนะรุ่น Brainfuck ได้ไหม ดูเหมือนว่าฉันจะทำผลงานได้ไม่ดีนัก .. บางทีอาจใช้ Map / Reduce ใหม่จาก Java 8 เพื่อบันทึกไบต์

ขอบคุณ @flawr (13 ไบต์), @KevinCruijssen (9 ไบต์) และ @DarrelHoffman (3 ไบต์)!

แข็งแรงเล่นกอล์ฟ:

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);}

Ungolfed:

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);
}

จูเลีย 16 ไบต์

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

นี่คือฟังก์ชั่นที่ยอมรับสองอาร์เรย์และส่งกลับค่าบรรทัดฐานแบบยุคลิดของความแตกต่างเป็นแบบลอย

คุณสามารถตรวจสอบกรณีทดสอบทั้งหมดพร้อมกันทางออนไลน์ ที่นี่

golflua , 43 ตัวอักษร

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

ทำงานโดยเรียกมันว่า

> 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

Lua จะเทียบเท่า

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

จริงจัง 12 ไบต์

,iZ`i-ª`MΣ√A

ลองออนไลน์!

คำอธิบาย:

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

ทับทิม, 52

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

ในการทดสอบโปรแกรม

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 ไบต์

นี้จะแข็งแรงเล่นกอล์ฟรหัส --แต่ฉันได้ใส่ความคิดเห็นในในรูปแบบ

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

สิ่งนี้ใช้อัลกอริทึมเดียวกันกับโปรแกรมอื่น ๆ ส่วนใหญ่ที่นี่

Perl 6, 30 29 26 24 ไบต์

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

(ขอบคุณ @ b2gills สำหรับอีก 2 ไบต์ที่หายไป)

การใช้

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 ไบต์

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

[[1, 5], [2, 6], [3, 7], [4, 8]]คาดว่าอาร์เรย์ของคู่ของพิกัดหนึ่งจากแต่ละเวกเตอร์เช่น หากไม่เป็นที่ยอมรับก็จะเท่ากับ 42 ไบต์:

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

คาดว่าสองอาร์เรย์ความยาวเท่ากันที่สอดคล้องกับสองเวกเตอร์ N [1, 2, 3, 4], [5, 6, 7, 8]มิติเช่น แก้ไข: บันทึกแล้ว 3 ไบต์ด้วย @ l4m2 (นอกจากนี้ไม่มีใครสังเกตเห็นการพิมพ์ผิดของฉัน?)

Python 2, 47 ไบต์

ทางออกที่ตรงไปตรงมา ฟังก์ชั่นคาดว่า 2 คะแนนเป็นลำดับของตัวเลขและส่งกลับระยะห่างระหว่างพวกเขา

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

ตัวอย่าง:

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

𝔼𝕊𝕄𝕚𝕟, 6 ตัวอักษร / 13 ไบต์

МŰМŷ…ï

Try it here (Firefox only).

คำนวณบรรทัดฐานของความแตกต่างของอาร์เรย์อินพุต

สกาลา, 67 62 ไบต์

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

ต้องการอินพุตเป็นลำดับ / เวกเตอร์ของ tuples var-arg
ตัวอย่าง:

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

C #, 72 ไบต์

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

วิธีง่ายๆในการใช้ Linq

Sage, 35 ไบต์

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

ฟังก์ชันนี้ใช้ 2 รายการเป็นอินพุตและส่งกลับนิพจน์สัญลักษณ์ ระยะทางคำนวณโดยการลบเวกเตอร์บนรายการและคำนวณหาปริภูมิแบบยุคลิดของเวกเตอร์ผลลัพธ์

ลองออนไลน์

TI-Basic (TI-84 Plus CE), 15 ไบต์

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

TI-Basic เป็นภาษาโทเค็นน

แสดงพร้อมต์สำหรับอินพุตเป็นสองรายการและส่งคืนระยะทางยูคลิดระหว่างพวกมัน Ans

คำอธิบาย:

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 ไบต์

dist

นี่คือฟังก์ชั่นในตัวเพื่อคำนวณระยะห่างของเมทริกซ์อินพุต ค่าเริ่มต้นเป็นระยะทางแบบยุคลิด

ตัวอย่างการใช้งาน:

> 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

หากคุณรู้สึกผิดหวังเพราะเป็นรุ่นในตัวนี่เป็นรุ่นในตัว (หรืออย่างน้อยก็เป็นรุ่นในตัว ... ) น้อยกว่าสำหรับ22 ไบต์ (ด้วยGiuseppe ):

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

นี่เป็นฟังก์ชั่นนิรนามที่รับเวกเตอร์สองตัวเป็นอินพุต

Haskell, 32 ไบต์

((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 Chars

วนหาการหากำลังสองของความแตกต่างจากนั้นหารากของผลรวม:

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

Mathcad, ไบต์

ใช้โอเปอเรเตอร์เวกเตอร์ในตัว (ค่าสัมบูรณ์) ในการคำนวณขนาดของความแตกต่างระหว่างสองจุด (แสดงเป็นเวกเตอร์)

ขนาดสนามกอล์ฟ Mathcad ถูกพักไว้จนกว่าฉันจะได้รับ (หรือคนอื่นรับ) รอบเพื่อเปิดการสนทนาเกี่ยวกับเมตา อย่างไรก็ตามวิธีที่สั้นที่สุด (สมมติว่าอินพุตของเวกเตอร์จุดไม่ได้มีส่วนร่วมกับคะแนน) คือ 3 "ไบต์" โดยมี 14 ไบต์สำหรับรุ่นที่ใช้งานได้

Pyke ขนาด 7 ไบต์

,A-MXs,

ลองที่นี่!

ไขว้ใช้การลบ, ลบแผนที่, ผลรวม, sqrt

Ruby, 50 ไบต์

Zip จากนั้นทำแผนที่ / ลด ตัดขอบคำตอบ Ruby อื่น ๆ ออกจาก @LevelRiverSt by 2 ไบต์ ...

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

ลองออนไลน์