Tiga bilangan bulat positif A, B, C adalah ABC-triple jika merupakan koprime, dengan A <B dan memuaskan hubungannya: A + B = C

Contoh:

• 1, 8, 9 adalah triple-ABC karena mereka adalah koprime, 1 <8 dan 1 + 8 = 9
• 6, 8, 14 bukan karena mereka bukan koprime
• 7, 5, 12 bukan karena 7> 5

Anda dapat melihat presentasi Frits Beukers 2005 ini untuk detail lebih lanjut tentang ABC-triples.

Input output

Tiga bilangan bulat, ditulis desimal. Dapat dipisahkan nilai atau daftar. Output harus berupa nilai true / falsy apakah ketiga bilangan bulat adalah ABC-triple.

Catatan: Penting untuk menghormati urutan bilangan bulat dalam daftar, misalnya: 1, 8, 9tidak dianggap sebagai daftar yang sama dengan 9, 1, 8atau kombinasi lainnya. Jadi yang pertama adalah ABC-triple dan yang kedua tidak.

Jadi A adalah elemen pertama dari daftar, B yang kedua dan C yang ketiga.

Uji kasus

Setiap daftar berikut harus menampilkan nilai yang benar

[1, 8, 9]
[2, 3, 5]
[2, 6436341, 6436343]
[4, 121, 125]
[121, 48234375, 48234496]

Setiap daftar berikut harus menampilkan nilai falsey

[1, 1, 2]
[1, 2, 5]
[1, 9, 8]
[4, 12872682, 12872686]
[6, 8, 14]
[7, 5, 12]

Jelly , 10 9 byte

Ṫ=S×</=g/

Cobalah online!

Bagaimana itu bekerja

Ṫ=S×</=g/  Main link. Argument: [a, b, c] (positive integers)

Ṫ          Tail; pop and yield c.
  S        Take the sum of [a, b], yielding (a + b).
 =         Yield t := (c == a + b).
    </     Reduce by less than, yielding (a < b).
   ×       Multiply, yielding t(a < b).
       g/  Reduce by GCD, yielding gcd(a, b).
      =    Check if t(a < b) == gcd(a, b).

Haskell , 48 38 29 byte

^{-10 byte karena TFeld 's gcdtrik!}

^{Terima kasih -7 byte HPWiz untuk meningkatkan uji co-primality dan menemukan ruang yang berlebihan!}

^{-2 byte terima kasih kepada nimi untuk menyarankan operator-infix!}

(a!b)c=a<b&&a+b==c&&gcd a b<2

Cobalah online!

Penjelasan

Dua kondisi pertama a < bdan a + b == ccukup jelas, yang ketiga menggunakan $\gcd(a,b) = \gcd(a,c) = \gcd(b,c)$ :

Menulis $\gcd(a,c) = U \cdot a + V \cdot c$ menggunakan identitas Bézout dan menggantikan $c = a + b$ memberi:

Karena itu $\gcd$ adalah solusi positif minimal untuk identitas yang mengikuti bahwa $\gcd(a,b) = \gcd(a,c)$ . Kasus lainnya simetris.

Perl 6 , 33 32 byte

-1 byte terima kasih kepada nwellnhof

{(.sum/.[2]/2*[<] $_)==[gcd] $_}

Cobalah online!

Blok kode anonim yang mengambil daftar tiga angka dan mengembalikan Benar atau Salah.

Penjelasan

{                              }  # Anonymous code block
                       [gcd] $_   # Is the gcd of all the numbers
 (                  )==           # Equal to
  .sum        # Whether the sum of numbes
      /       # Is equal to
       .[2]/2 # The last element doubled
             *[<] $_   # And elements are in ascending order

Excel, 33 byte

=AND(A1+B1=C1,GCD(A1:C1)=1,A1<B1)

bash, 61 byte

factor $@|grep -vzP '( .+\b).*\n.*\1\b'&&(($1<$2&&$1+$2==$3))

Cobalah online!

Input sebagai argumen baris perintah, output dalam kode keluar (juga menghasilkan output pada stdout sebagai efek samping, tetapi ini dapat diabaikan).

Bagian kedua (mulai dari &&(() cukup standar, tetapi yang menarik adalah tes coprime:

factor $@      # produces output of the form "6: 2 3\n8: 2 2 2\n14: 2 7\n"
|grep -        # regex search on the result
v              # invert the match (return truthy for strings that don't match)
z              # zero-terminated, allowing us to match newlines
P              # perl (extended) regex
'( .+\b)'      # match one or more full factors
'.*\n.*'       # and somewhere on the next line...
'\1\b'         # find the same full factors

Java 10, 65 64 byte

(a,b,c)->{var r=a<b&a+b==c;for(;b>0;a=b,b=c)c=a%b;return r&a<2;}

-1 byte terima kasih kepada @Shaggy .

Cobalah online.

Penjelasan:

(a,b,c)->{        // Method with three integer parameters and boolean return-type
  var r=          //  Result-boolean, starting at:
        a<b       //   Check if `a` is smaller than `b`
        &a+b==c;  //   And if `a+b` is equal to `c`
  for(;b>0        //  Then loop as long as `b` is not 0 yet
      ;           //    After every iteration:
       a=b,       //     Set `a` to the current `b`
       b=c)       //     And set `b` to the temp value `c`
    c=a%b;        //   Set the temp value `c` to `a` modulo-`b`
                  //   (we no longer need `c` at this point)
  return r        //  Return if the boolean-result is true
         &a<2;}   //  And `a` is now smaller than 2

05AB1E , 12 11 10 byte

Disimpan 1 byte berkat Kevin Cruijssen

ÂÆ_*`\‹*¿Θ

Cobalah online! atau sebagai Test Suite

Penjelasan

ÂÆ           # reduce a reversed copy of the input by subtraction
  _          # logically negate
   *         # multiply with input
    `        # push the values of the resulting list separately to stack
     \       # remove the top (last) value
      ‹      # is a < b ?
       *     # multiply by the input list
        ¿    # calculate the gcd of the result
         Θ   # is it true ?

Python 2 , 69 67 63 62 55 byte

lambda a,b,c:(c-b==a<b)/gcd(a,b)
from fractions import*

Cobalah online!

Python 3 , 58 51 byte

lambda a,b,c:(c-b==a<b)==gcd(a,b)
from math import*

Cobalah online!

_{-7 byte, terima kasih kepada H.PWiz}

Japt , 16 14 13 11 byte

<V¥yU «NÔr-

Cobalah

                :Implicit input of integers U=A, V=B & W=C
<V              :Is U less than V?
  ¥             :Test that for equality with
   yU           :The GCD of V & U
      «         :Logical AND with the negation of
       N        :The array of inputs
        Ô       :Reversed
         r-     :Reduced by subtraction

JavaScript (ES6),  54 43 42  40 byte

Terima kasih kepada @Shaggy untuk menunjukkan bahwa kita tidak perlu menghitung $\gcd(a,c)$. Disimpan 11 byte dengan menulis ulang kode yang sesuai.

Mengambil input sebagai 3 bilangan bulat terpisah. Kembali$true$ untuk ABC-triple, atau salah satunya $0$ atau $false$ jika tidak.

f=(a,b,c)=>c&&a/b|a+b-c?0:b?f(b,a%b):a<2

Cobalah online!

Bahasa Wolfram 24 30 28 26 byte

Dengan 2 byte yang dicukur oleh Doorknob. 2 byte selanjutnya dicukur oleh @jaeyong dinyanyikan

#<#2&&GCD@##==1&&#+#2==#3&

C # (Visual C # Interactive Compiler) , 90 byte

n=>new int[(int)1e8].Where((_,b)=>n[0]%++b<1&n[1]%b<1).Count()<2&n[0]+n[1]==n[2]&n[0]<n[1]

Berjalan untuk angka hingga 1e8, membutuhkan sekitar 35 detik di mesin saya. Alih-alih menghitung gcd seperti yang lain, fungsi hanya instantiate array besar dan memfilter indeks yang bukan pembagi a atau b, dan memeriksa berapa banyak elemen yang tersisa. Selanjutnya periksa apakah elemen satu ditambah elemen dua sama dengan elemen tiga. Terakhir, ia memeriksa apakah elemen pertama kurang dari yang kedua.

Cobalah online!

C # (Visual C # Interactive Compiler) , 59 byte

(a,b,c)=>Enumerable.Range(2,a).All(i=>a%i+b%i>0)&a<b&a+b==c

Cobalah online!

ECMAScript Regex, 34 byte

Input dalam bentuk unary, dalam domain ^x*,x*,x*$(berulang-ulang xdibatasi oleh ,).

^(?!(xx+)\1*,\1+,)(x*)(,\2x+)\3\2$

Cobalah online! (.NET regex engine)
Cobalah secara online! (Mesin regex SpiderMonkey)

# see /codegolf/178303/find-if-a-list-is-an-abc-triple
^
(?!                # Verify that A and B are coprime. We don't need to include C in the
                   # test, because the requirement that A+B=C implies that A,B,C are
                   # mutually comprime if and only if A and B are coprime.
    (xx+)\1*,\1+,  # If this matches, A and B have a common factor \1 and aren't coprime.
)
(x*)(,\2x+)\3\2$   # Verify that A<B and A+B=C. The first comma is captured in \3 and
                   # reused to match the second comma, saving one byte.

Pertanyaannya memang mengatakan "Tiga bilangan bulat, ditulis desimal ", jadi ini mungkin tidak memenuhi syarat (karena dibutuhkan input di unary), tetapi itu membuat regex murni yang elegan sehingga saya berharap setidaknya akan dihargai.

Namun, perhatikan bahwa jika frasa tersebut harus diartikan secara harfiah, pengajuan lambda dan fungsi yang menggunakan argumen bilangan bulat harus didiskualifikasi juga, karena untuk secara ketat mematuhi spesifikasi pertanyaan mereka perlu mengambil input dalam bentuk string.

J , 27 byte

(+/=2*{:)*({.<1{])*1=+./ .*

Cobalah online!

Terinspirasi oleh solusi Jo King's Perl

C # (.NET Core) , 68 byte

Tanpa Linq.

(a,b,c)=>{var t=a<b&a+b==c;while(b>0){c=b;b=a%b;a=c;}return t&a<2;};

Cobalah online!

Stax , 12 byte

ü╡v╕7+Pü°╔|g

Jalankan dan debug itu

Bersih , 43 byte

import StdEnv
$a b c=a<b&&a+b==c&&gcd a b<2

Cobalah online!

Mirip pada dasarnya semua yang lain karena tes langsung sama.

Pari / GP , 30 byte

Disimpan 2 byte berkat @Shaggy .

(a,b,c)->a<b==gcd(a,b)&&a+b==c

Cobalah online!

Befunge-98 (FBBI) , 83 byte

&:&:03p&:04pw>03g04g\:v_1w03g04g+w1.@
00:    [email protected][^j7      _^;>0.@;j7;>0.@;:%g00\p

Cobalah online!

Input yang merupakan triple integer [A,B,C]dimasukkan ke Befunge sebagai integer yang dipisahkan oleh ruang C B A.

Mathematica 35 byte

CoprimeQ @@ # && #[[1]] + #[[2]] == #[[3]] & 

jika pesanan penting:

CoprimeQ @@ # && Sort[#]==# && #[[1]] + #[[2]] == #[[3]] & 

atau...

And[CoprimeQ @@ #, Sort@# == #, #[[1]] + #[[2]] == #[[3]]] &

Retina 0.8.2 , 42 41 byte

\d+
$*
A`^(11+)\1*,\1+,
^(1+)(,1+\1)\2\1$

Cobalah online! Tautan termasuk kasus uji. Sunting: Disimpan 1 byte berkat @Deadcode. Penjelasan:

\d+
$*

Konversikan ke unary.

A`^(11+)\1*,\1+,

Pastikan A dan B tidak memiliki faktor umum.

^(1+)(,1+\1)\2\1$

Periksa bahwa A <B dan A + B = C.

Gangguan Umum, 51 byte

(lambda(a b c)(and(< a b)(=(+ a b)c)(=(gcd a c)1)))

Cobalah online!