Mengingat koordinat pusat dan jari-jari 2 lingkaran, menghasilkan nilai kebenaran apakah mereka tumpang tindih atau tidak.

Memasukkan

• Input dapat diambil melalui STDIN atau argumen fungsi yang setara, tetapi tidak sebagai variabel. Anda dapat mengambilnya sebagai variabel tunggal (daftar, string, dll) atau sebagai beberapa input / argumen, dalam urutan apa pun yang Anda inginkan.

• Input akan menjadi enam float. Pelampung ini akan mencapai 3 desimal. Koordinat bisa positif atau negatif. Jari-jari akan positif.

Keluaran

• Output bisa melalui STDOUT atau fungsi kembali.

• Program harus memiliki tepat 2 output berbeda - satu untuk nilai True (lingkaran melakukan tumpang tindih) dan satu untuk output False (mereka tidak tumpang tindih).

Uji kasus

(Input diberikan sebagai daftar tupel [(x1, y1, r1), (x2, y2, r2)]untuk kasus uji; Anda dapat mengambil input dalam format apa pun)

Benar

[(5.86, 3.92, 1.670), (11.8, 2.98, 4.571)]
[(8.26, -2.72, 2.488), (4.59, -2.97, 1.345)]
[(9.32, -7.77, 2.8), (6.21, -8.51, 0.4)]

Salah

[(4.59, -2.97, 1.345), (11.8, 2.98, 4.571)]
[(9.32, -7.77, 2.8), (4.59, -2.97, 1.345)]
[(5.86, 3.92, 1.670), (6.21, -8.51, 0.4)]

Ini adalah Code Golf, jawaban terpendek dalam byte yang menang.

Jelly , 5 byte

IA<S}

Membawa dua bilangan kompleks (tengah) sebagai argumen pertama, dan dua bilangan real (jari-jari) sebagai argumen kedua.

Cobalah online!

Bagaimana itu bekerja

IA<S}  Main link.
       Left argument:  [x1 + iy1, x2 + iy2]
       Right argument: [r1, r2]

I      Increments; yield (x2 - x1) + i(y2 - y1).
 A     Absolute value; yield √((x2 - x1)² + (y2 - y1)²).
   S}  Take the sum of the right argument, yielding r1 + r2.
  <    Compare the results.

JavaScript (ES6), 38 byte

Mengambil input sebagai 6 variabel berbeda x1 , y1 , r1 , x2 , y2 , r2 .

(x,y,r,X,Y,R)=>Math.hypot(x-X,y-Y)<r+R

Uji kasus

let f =

(x,y,r,X,Y,R)=>Math.hypot(x-X,y-Y)<r+R

// True
console.log(f(5.86, 3.92, 1.670, 11.8, 2.98, 4.571))
console.log(f(8.26, -2.72, 2.488, 4.59, -2.97, 1.345))
console.log(f(9.32, -7.77, 2.8, 6.21, -8.51, 0.4))

// False
console.log(f(4.59, -2.97, 1.345, 11.8, 2.98, 4.571))
console.log(f(9.32, -7.77, 2.8, 4.59, -2.97, 1.345))
console.log(f(5.86, 3.92, 1.670, 6.21, -8.51, 0.4))

Pyth, 5 byte

gsE.a

Masukkan format:

[x1, y1], [x2, y2]
r1, r2

Cobalah online

Bagaimana itu bekerja

     Q   autoinitialized to eval(input())
   .a    L2 norm of vector difference of Q[0] and Q[1]
gsE      sum(eval(input()) >= that

MATL , 5 byte

ZPis<

Format input adalah:

[x1, y1]
[x2, y2]
[r1, r2]

Cobalah online! Atau verifikasi semua kasus uji .

Bagaimana itu bekerja

ZP   % Take two vectors as input. Push their Euclidean distance
i    % Input the vector of radii
s    % Sum of vector
<    % Less than?

R , 39 byte

function(k,r)dist(matrix(k,2,2))<sum(r)

membutuhkan input k=c(x1,x2,y1,y2) dan r=c(r1,r2); kembali FALSEuntuk lingkaran singgung.

Cobalah online!

27 byte:

function(m,r)dist(m)<sum(r)

Mengambil input sebagai matriks dengan pusat lingkaran diberikan sebagai baris dan vektor jari-jari.

Cobalah online!

Python , 40 byte

lambda x,y,r,X,Y,R:abs(x-X+(y-Y)*1j)<r+R

Cobalah online!

Menggunakan aritmatika Python yang rumit untuk menghitung jarak antara dua pusat. Saya berasumsi kita tidak bisa mengambil titik input langsung sebagai angka kompleks, jadi kodenya seperti itu x+y*1j.

Python 3 , 45 byte

lambda X,Y,R,x,y,r:(X-x)**2+(Y-y)**2<(R+r)**2

Cobalah online!

05AB1E , 6 byte

αs--0›

Cobalah online!

-1 byte dengan menggunakan a - b > 0daripada(reverse) b - a < 0

Python 3 , 45 byte

lambda a,b,c,d,e,f:(a-d)**2+(b-e)**2<(c+f)**2

Cobalah online!

-8 byte terima kasih kepada Neil / Step Hen

APL (Dyalog) , 10 byte

Meminta pusat lingkaran sebagai daftar dua bilangan kompleks, lalu untuk jari-jari sebagai daftar dua bilangan

(+/⎕)>|-/⎕

Cobalah online!

(+/⎕) Adalah jumlah jari-jari

> lebih besar dari

| besarnya

-/⎕ perbedaan pusat

Mathematica, 16 byte

Norm[#-#2]<+##3&

Memasukkan: [{x1, y1}, {x2, y2}, r1, r2]

Mathematica memiliki RegionIntersectionbuiltin, tapi itu saja panjangnya 18 byte ...

Versi bawaan:

RegionIntersection@##==EmptyRegion@2&

Membawa 2 Diskobjek. [Disk[{x1, y1}, r1], Disk[{x2, y2}, r2]].

Haskell , 37 36 byte

(u#v)r x y s=(u-x)^2+(v-y)^2<(r+s)^2

Cobalah online!

Terima kasih @AndersKaseorg untuk -1byte!

Jelly , 12 byte

I²+⁴I²¤<⁵S²¤

Cobalah online!

-2 byte terima kasih kepada Dennis

Java (OpenJDK 8) , 38 byte

(a,b,c,x,y,z)->Math.hypot(a-x,b-y)<c+z

Cobalah online!

Java 8, 41 38 byte

(x,y,r,X,Y,R)->Math.hypot(x-X,y-Y)<r+R

Coba di sini.

Rupanya, Java juga memiliki Math.hypot, yaitu 3 byte lebih pendek.

EDIT: Baru menyadari jawaban ini sekarang persis sama dengan jawaban Java 8 @ OlivierGrégoire , jadi harap balas dia daripada saya jika Anda suka jawaban 38 byte.

Jawaban lama (41 byte) :

(x,y,r,X,Y,R)->(x-=X)*x+(y-=Y)*y<(r+=R)*r

Coba di sini.

Pyth , 15 byte

<sm^-EE2 2^+EE2

Mengambil input dalam urutan x1, x2, y1, y2, r1, r2

Suite uji!

Perl 6 , 13 byte

*+*>(*-*).abs

Cobalah online!

Dua argumen pertama adalah jari-jari, dalam urutan mana pun. Argumen ketiga dan keempat adalah koordinat pusat, sebagai bilangan kompleks, dalam urutan apa pun.

Taksi , 1582 byte

Go to Post Office:w 1 l 1 r 1 l.Pickup a passenger going to The Babelfishery.Pickup a passenger going to Tom's Trims.Pickup a passenger going to Tom's Trims.Go to Tom's Trims:n.[a]Go to Post Office:s.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:s 1 l 1 r.Pickup a passenger going to What's The Difference.Pickup a passenger going to What's The Difference.Go to What's The Difference:n 5 l.Pickup a passenger going to Cyclone.Go to Cyclone:e 1 r.Pickup a passenger going to Multiplication Station.Pickup a passenger going to Multiplication Station.Go to Multiplication Station:s 1 l 2 r 4 l.Pickup a passenger going to Addition Alley.Go to Tom's Trims:s 1 r 3 r.Pickup a passenger going to The Babelfishery.Switch to plan "b" if no one is waiting.Switch to plan "a".[b]Go to Addition Alley:n 1 r 1 l 3 l 1 l.Pickup a passenger going to Magic Eight.Go to Post Office:n 1 r 1 r 3 r 1 l.Pickup a passenger going to The Babelfishery.Go to The Babelfishery:s 1 l 1 r.Pickup a passenger going to Addition Alley.Pickup a passenger going to Addition Alley.Go to Addition Alley:n 5 l 1 l.Pickup a passenger going to Cyclone.Go to Cyclone:n 1 l 1 l.Pickup a passenger going to Multiplication Station.Pickup a passenger going to Multiplication Station.Go to Multiplication Station:s 1 l 2 r 4 l.Pickup a passenger going to Magic Eight.Go to Magic Eight:s 1 r.Switch to plan "c" if no one is waiting.'1' is waiting at Writer's Depot.[c]'0' is waiting at Writer's Depot.Go to Writer's Depot:w 1 l 2 l.Pickup a passenger going to Post Office.Go to Post Office:n 1 r 2 r 1 l.

Cobalah online!

Output 1untuk lingkaran yang tumpang tindih.
Output 0untuk lingkaran yang tidak tumpang tindih (termasuk lingkaran tangensial).

Tidak diikat / diformat:

Go to Post Office: west 1st left 1st right 1st left.
Pickup a passenger going to The Babelfishery.
Pickup a passenger going to Tom's Trims.
Pickup a passenger going to Tom's Trims.
Go to Tom's Trims: north.
[a]
Go to Post Office: south.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: south 1st left 1st right.
Pickup a passenger going to What's The Difference.
Pickup a passenger going to What's The Difference.
Go to What's The Difference: north 5th left.
Pickup a passenger going to Cyclone.
Go to Cyclone: east 1st right.
Pickup a passenger going to Multiplication Station.
Pickup a passenger going to Multiplication Station.
Go to Multiplication Station: south 1st left 2nd right 4th left.
Pickup a passenger going to Addition Alley.
Go to Tom's Trims: south 1st right 3rd right.
Pickup a passenger going to The Babelfishery.
Switch to plan "b" if no one is waiting.
Switch to plan "a".
[b]
Go to Addition Alley: north 1st right 1st left 3rd left 1st left.
Pickup a passenger going to Magic Eight.
Go to Post Office: north 1st right 1st right 3rd right 1st left.
Pickup a passenger going to The Babelfishery.
Go to The Babelfishery: south 1st left 1st right.
Pickup a passenger going to Addition Alley.
Pickup a passenger going to Addition Alley.
Go to Addition Alley: north 5th left 1st left.
Pickup a passenger going to Cyclone.
Go to Cyclone: north 1st left 1st left.
Pickup a passenger going to Multiplication Station.
Pickup a passenger going to Multiplication Station.
Go to Multiplication Station: south 1st left 2nd right 4th left.
Pickup a passenger going to Magic Eight.
Go to Magic Eight: south 1st right.
Switch to plan "c" if no one is waiting.
'1' is waiting at Writer's Depot.
[c]
'0' is waiting at Writer's Depot.
Go to Writer's Depot: west 1st left 2nd left.
Pickup a passenger going to Post Office.
Go to Post Office: north 1st right 2nd right 1st left.

C #, 50 41 byte

(x,y,r,X,Y,R)=>(x-=X)*x+(y-=Y)*y<(r+=R)*r

Disimpan 9 byte berkat @KevinCruijssen.

Scala , 23 byte

Terima kasih @Arnauld untuk nya hampir polyglot jawabannya .

math.hypot(a-x,b-y)<r+q

Cobalah online!

PostgreSQL, 41 karakter

prepare f(circle,circle)as select $1&&$2;

Pernyataan siap, mengambil input sebagai 2 parameter dalam circlenotasi apa pun .

Contoh dijalankan:

Tuples only is on.
Output format is unaligned.
psql (9.6.3, server 9.4.8)
Type "help" for help.

psql=# prepare f(circle,circle)as select $1&&$2;
PREPARE

psql=# execute f('5.86, 3.92, 1.670', '11.8, 2.98, 4.571');
t

psql=# execute f('8.26, -2.72, 2.488', '4.59, -2.97, 1.345');
t

psql=# execute f('9.32, -7.77, 2.8', '6.21, -8.51, 0.4');
t

psql=# execute f('4.59, -2.97, 1.345', '11.8, 2.98, 4.571');
f

psql=# execute f('9.32, -7.77, 2.8', '4.59, -2.97, 1.345');
f

psql=# execute f('5.86, 3.92, 1.670', '6.21, -8.51, 0.4');
f

Java, 50 38 byte

(x,y,r,X,Y,R)->Math.hypot(x-X,y-Y)<r+R

Kode Mesin x86 (dengan SSE2), 36 byte

; bool CirclesOverlap(double x1, double y1, double r1,
;                     double x2, double y2, double r2);
F2 0F 5C C3        subsd   xmm0, xmm3      ; x1 - x2
F2 0F 5C CC        subsd   xmm1, xmm4      ; y1 - y2
F2 0F 58 D5        addsd   xmm2, xmm5      ; r1 + r2
F2 0F 59 C0        mulsd   xmm0, xmm0      ; (x1 - x2)^2
F2 0F 59 C9        mulsd   xmm1, xmm1      ; (y1 - y2)^2
F2 0F 59 D2        mulsd   xmm2, xmm2      ; (r1 + r2)^2
F2 0F 58 C1        addsd   xmm0, xmm1      ; (x1 - x2)^2 + (y1 - y2)^2
66 0F 2F D0        comisd  xmm2, xmm0
0F 97 C0           seta    al              ; ((r1 + r2)^2) > ((x1 - x2)^2 + (y1 - y2)^2)
C3                 ret

Fungsi di atas menerima deskripsi dua lingkaran (koordinat x dan y dari titik pusat dan jari-jari), dan mengembalikan nilai Boolean yang menunjukkan apakah mereka berpotongan atau tidak.

Menggunakan konvensi pemanggilan vektor, di mana parameter dilewatkan dalam register SIMD. Pada x86-32 dan 64-bit Windows, ini adalah __vectorcallkonvensi pemanggilan . Pada Unix / Linux / Gnu 64-bit, ini adalah konvensi pemanggilan Sistem V AMD64 standar .

Nilai kembali dibiarkan dalam byte rendah EAX, seperti standar dengan semua konvensi pemanggilan x86.

Kode ini berfungsi dengan baik pada prosesor x86 32-bit dan 64-bit, selama mereka mendukung set instruksi SSE2 (yang akan menjadi Intel Pentium 4 dan yang lebih baru, atau AMD Athlon 64 dan yang lebih baru).

Versi AVX, masih 36 byte

Jika Anda menargetkan AVX , Anda mungkin ingin menambahkan awalan VEX ke instruksi. Ini tidak mengubah jumlah byte; hanya byte aktual yang digunakan untuk menyandikan instruksi:

; bool CirclesOverlap(double x1, double y1, double r1,
;                     double x2, double y2, double r2);
C5 FB 5C C3      vsubsd   xmm0, xmm0, xmm3   ; x1 - x2
C5 F3 5C CC      vsubsd   xmm1, xmm1, xmm4   ; y1 - y2
C5 EB 58 D5      vaddsd   xmm2, xmm2, xmm5   ; r1 + r2
C5 FB 59 C0      vmulsd   xmm0, xmm0, xmm0   ; (x1 - x2)^2
C5 F3 59 C9      vmulsd   xmm1, xmm1, xmm1   ; (y1 - y2)^2
C5 EB 59 D2      vmulsd   xmm2, xmm2, xmm2   ; (r1 + r2)^2
C5 FB 58 C1      vaddsd   xmm0, xmm0, xmm1   ; (x1 - x2)^2 + (y1 - y2)^2
C5 F9 2F D0      vcomisd  xmm2, xmm0
0F 97 C0         seta     al                 ; ((r1 + r2)^2) > ((x1 - x2)^2 + (y1 - y2)^2)
C3               ret

Instruksi AVX memiliki keuntungan dengan mengambil tiga operan, memungkinkan Anda untuk melakukan operasi yang tidak merusak, tetapi itu tidak benar-benar membantu kami untuk memadatkan kode di sini. Namun, mencampur instruksi dengan dan tanpa awalan VEX dapat menghasilkan kode yang kurang optimal, jadi Anda biasanya ingin tetap menggunakan semua instruksi AVX jika Anda menargetkan AVX, dan dalam hal ini, bahkan tidak akan mengganggu jumlah byte Anda.

05AB1E , 10 byte

-¨nOt²¹+θ‹

Cobalah online!

PHP , 66 byte

<?php $i=$argv;echo hypot($i[1]-$i[4],$i[2]-$i[5])<$i[3]+$i[6]?:0;

Cobalah online!

Berjalan dari baris perintah, mengambil input sebagai 6 argumen parameter baris perintah, dan mencetak 1 jika lingkaran tumpang tindih, atau 0.

Julia 0.6.0 (46 bytes)

a->((a[1]-a[2])^2+(a[3]-a[4])^2<(a[5]+a[6])^2)

Clojure, 68 byte

#(<(+(*(- %4 %)(- %4 %))(*(- %5 %2)(- %5 %2)))(*(+ %6 %3)(+ %6 %3)))

Membawa enam argumen: x1, y1, r1, x2, y2, r2. Mengembalikan nilai true atau false.

Sedihnya, Clojure tidak memiliki powfungsi semacam itu. Biaya banyak byte.

Sebenarnya , 8 byte

-)-(h@+>

Cobalah online!

Penjelasan:

-)-(h@+>  (implicit input: [y1, y2, x1, x2, r1, r2])
-         y2-y1 ([y2-y1, x1, x2, r1, r2])
 )-       move to bottom, x1-x2 ([x1-x2, r1, r2, y2-y1])
   (h     move from bottom, Euclidean norm ([sqrt((y2-y1)**2+(x2-x1)**2), r1, r2])
     @+   r1+r2 ([r1+r2, norm])
       >  is r1+r2 greater than norm?

R (+ pryr), 31 byte

pryr::f(sum((x-y)^2)^.5<sum(r))

Yang mengevaluasi fungsi

function (x, y, z) 
sum((x - y)^2)^0.5 < sum(z)

Di mana xkoordinat lingkaran 1, yadalah koordinat lingkaran 2 danz jari-jari.

Hitung jarak antara dua pusat menggunakan Pythagoras dan uji apakah jarak itu lebih kecil dari jumlah jari-jari.

Memanfaatkan vektorisasi R untuk menghitung (x1-x2)^2dan (y1-y2)^2. Ini kemudian dijumlahkan dan berakar tepat.

Pergi , 93 byte

package q
import c "math/cmplx"
func o(a,b complex128,r,R float64)bool{return c.Abs(b-a)<r+R}

Algoritma yang cukup sederhana, sama dengan beberapa jawaban lain, kecuali ia menggunakan complextipe bawaan dan memanggil math / cmplx.Abs ().

Mengambil jari-jari sebagai bilangan kompleks tidak membantu, karena para pemain ke float64 menambahkan lebih banyak byte daripada yang disimpan oleh deklarasi variabel (tidak bisa dilakukan float64 < complex128).

Cobalah online! Termasuk kasus uji, dan menggunakan paket utama bukan perpustakaan.