Hai số được coi là hòa hợp nếu tổng số chia đúng của số thứ nhất giống với số thứ hai, tổng số chia đúng của số thứ hai bằng số thứ nhất và số thứ nhất và số thứ hai không bằng nhau.

Hãy xác định S(x)là tổng ước số thích hợp của x. 220 và 284 là thân thiện vì S(220) = 284và S(284) = 200.

Nhiệm vụ của bạn là, không có gì đáng ngạc nhiên, để xác định xem hai số được nhập có thể hòa hợp hay không. Các đầu vào sẽ là các số nguyên dương và bạn có thể xuất hai giá trị riêng biệt, nhất quán để hòa hợp hoặc không.

Đây là trình tự OEIS A259180

Đây là một mã golf để mã ngắn nhất sẽ thắng.

Các trường hợp thử nghiệm

input, input => output
220, 284 => 1
52, 100 => 0
10744, 10856 => 1
174292, 2345 => 0
100, 117 => 0
6, 11 => 0
495, 495 => 0
6, 6 => 0

Thạch , 5 byte

QfÆṣ⁼

Một liên kết đơn âm lấy danh sách hai số nguyên trả về 1 nếu chúng là một cặp số hòa và 0 khác.

Hãy thử trực tuyến!

Làm sao?

QfÆṣ⁼ - Link: pair of numbers L, [a, b]   e.g. [220,284]  or [6,6]  or [6,11]  or [100,52]
Q     - de-duplicate L                         [220,284]     [6]       [6,11]     [100,52]
  Æṣ  - proper divisor sum of L (vectorises)   [284,220]     [6]       [6,1]      [117,46]
 f    - filter keep left if in right           [220,284]     [6]       [6]        []
    ⁼ - equal to L?                            1             0         0          0

Python 2 , 65 63 66 byte

^{-2 byte nhờ ông Xcoder}

lambda c:[sum(i*(n%i<1)for i in range(1,n))for n in c]==c[::-1]!=c

Hãy thử trực tuyến!

Python 2, 71 67 byte

-4 byte nhờ xnor

+9 byte nhờ caird coinheringaahing

lambda c:[sum(i for i in range(1,x)if x%i<1)for x in c]==c[::-1]!=c

một phần lấy cảm hứng từ [câu trả lời này]

Brain-Flak , 178 byte

{(({})(<>))<>({<<>(({})<<>{(({})){({}[()])<>}{}}>)<>([{}](({}[()])))>{[()]((<{}{}>))}{}{}}{}<>)<>}<>(({}<>)<>[({}{}<>)])({<{}({<({}<>[{}])>{()(<{}>)}{}})>(){[()](<{}>)}}<{}{}{}>)

Hãy thử trực tuyến!

Haskell , 53 byte

-2 byte nhờ BMO. -1 byte nhờ rjan Johansen.

a!b=a==sum[i|i<-[1..b-1],b`mod`i<1,a/=b]
a#b=a!b&&b!a

Hãy thử trực tuyến!

Ung dung với UniHaskell và-XUnicodeSyntax

import UniHaskell

equalsOmega       ∷ Int → Int → Bool
a `equalsOmega` b = a ≡ sum [i | i ← 1 … pred b, i ∣ b, a ≢ b]

areAmicable       ∷ Int → Int → Bool
areAmicable a b   = (a `equalsOmega` b) ∧ (b `equalsOmega` a)

J, 51 28 27 24 byte

-Lất nhiều byte nhờ @cole

Thêm byte nhờ vào @cole

~.-:[:|.(1#.i.*0=i.|])"0

Hãy thử trực tuyến!

JavaScript (ES6), 53 byte

Đưa đầu vào theo cú pháp currying (a)(b). Trả về 0hoặc 1.

a=>b=>a!=b&a==(g=n=>--a&&a*!(n%a)+g(n))(a=g(a)-b?1:b)

Bản giới thiệu

let f =

a=>b=>a!=b&a==(g=n=>--a&&a*!(n%a)+g(n))(a=g(a)-b?1:b)

console.log(f(220)(284))  // => 1
console.log(f(52)(100))   // => 0
console.log(f(100)(117))  // => 0
console.log(f(6)(6))      // => 0

Làm sao?

Chúng ta sử dụng hàm g để lấy tổng các ước của một số nguyên cho trước.

Đầu tiên chúng ta tính g (a) và so sánh nó với b . Nếu g (a) = b , chúng ta tính g (b) và so sánh nó với a . Mặt khác, chúng tôi tính g (1) , cho 0 và không thể bằng a .

Chúng tôi cũng kiểm tra thêm rằng a không bằng b .

Python 3, 84 byte

d=lambda n:sum(i*(n%i<1)for i in range(1,n))
f=lambda a,b:(d(a)==b)*(d(b)==a)*(a^b)>0

Giải pháp đơn giản. d tổng các ước số (n% i <1 ước tính thành 1 iff i chia n). a ^ b là khác không iff a! = b. Do đó, LHS của bất đẳng thức là 0 nếu các số không thể hòa hợp và> 0 khác.

Ruby , 64 60 59 58 byte

->c{c.map{|i|(1...i).sum{|j|i%j<1?j:0}}==c.rotate&&c==c&c}

Hãy thử trực tuyến!

R , 67 byte

function(a,b)sum(which(!a%%1:a))-a==b&sum(which(!b%%1:b))-b==a&b!=a

Hãy thử trực tuyến!

trả lại TRUEcho thân thiện, FALSEcho không.

Perl 6 , 53 byte

{([!=] $_)&&[eqv] .map: {set +$_,sum grep $_%%*,^$_}}

Hãy thử trực tuyến!

Lấy đầu vào là một danh sách của hai số.

PowerShell , 87 96 byte

param($a,$b)filter f($n){(1..($n-1)|?{!($n%$_)})-join'+'|iex}(f $a)-eq$b-and(f $b)-eq$a-and$a-$b

Hãy thử trực tuyến!

Đưa đầu vào $a,$b. Xác định một filter(ở đây tương đương với một chức năng) có đầu vào $n. Bên trong chúng tôi xây dựng một phạm vi từ 1đến $n-1, kéo ra những cái là ước số, -joinchúng cùng với +và gửi nó đến Invoke-Expression(tương tự eval).

Cuối cùng, bên ngoài bộ lọc, chúng tôi chỉ cần kiểm tra xem tổng của một đầu vào có bằng với đầu vào kia hay ngược lại (và xác thực đầu vào để đảm bảo chúng không bằng nhau). Giá trị Boolean đó được để lại trên đường ống và đầu ra là ẩn.

Bình thường, 12 byte

q{_msf!%dTtU

Lấy đầu vào như một danh sách.
Dùng thử trực tuyến

Giải trình

q{_msf!%dTtU
   m         Q    For each element d of the (implicit) input...
          tUd     ... get the range [1, ..., d - 1]...
     f!%dT        ... filter those that are factors of d...
    s             ... and take the sum.
 {_               Reverse and deduplicate...
q             Q   ... and check if the end result is the same as the input.

05AB1E , 8 7 byte

ÙÑO¥`_`

Hãy thử trực tuyến!

Mẻ, 127 byte

@if %1==%2 exit/b
@set/as=t=%1+%2
@for /l %%i in (1,1,%s%)do @set/as-=%%i*!(%1%%%%i),t-=%%i*!(%2%%%%i)
@if %s%%t%==00 echo 1

Đầu ra 1nếu các tham số là thân thiện. Hoạt động bằng cách trừ tất cả các yếu tố từ tổng các số đầu vào cho mỗi số đầu vào và nếu cả hai kết quả đều bằng 0 thì các số đó đều có thể hòa giải được.

APL (Dyalog Unicode) , 45 38 44 36 35 20 byte

{(≠/⍵)∧(⌽⍵)≡+/¨¯1↓¨(0=⍵|⍨⍳¨⍵)/¨⍳¨⍵}

Hãy thử trực tuyến!

Infix Dfn, cố định cho trường hợp đầu vào bằng nhau.

Cảm ơn @Uriel cho 8 byte; @cole cho 1 byte; @ Adám cho 15 byte.

Làm sao?

{(≠/⍵)∧(⌽⍵)≡+/¨¯1↓¨(0=⍵|⍨⍳¨⍵)/¨⍳¨⍵} ⍝ Main function, infix. Input is ⍵.
{                               ⍳¨⍵} ⍝ Generate the range [1,n] for each element of ⍵.
                              /¨     ⍝ Replicate into each the resulting vectors of:
                   (  ⍵|⍨⍳¨⍵)        ⍝ ⍵ modulo each element of the ranges;
                    0=               ⍝ Equals 0?
               ¯1↓¨                  ⍝ Drop the last element of each
            +/¨                      ⍝ Sum of each
       (⌽⍵)≡                         ⍝ Check if the results match the inverse of ⍵.
      ∧                              ⍝ Logical AND.
 (≠/⍵)                               ⍝ Inputs are different

@ Adám cũng đã giúp tôi với chức năng ngầm định 22 20 byte tương đương với Dfn:

≠/∧⌽≡(+/∘∊⍳⊆⍨0=⍳|⊢)¨

Hãy thử trực tuyến!

Làm sao?

≠/∧⌽≡(+/∘∊⍳⊆⍨0=⍳|⊢)¨⍝ Tacit fn, takes one right argument.
     (            )¨ ⍝ For each element e of the argument
               ⍳|⊢   ⍝ e modulo range [1,e]
             0=      ⍝ Equals 0? This generates a boolean vector
            ⍨        ⍝ Swap arguments for the following op/fn
           ⊆         ⍝ Partition. This partitions the right vector argument according to 1-runs from a left boolean vector argument of same size.
          ⍳          ⍝ Range [1,e]
         ∊           ⍝ Enlist; dump all elements into a single vector.
        ∘            ⍝ And then
      +/             ⍝ Sum the elements
   ⌽≡                ⍝ Check if the resulting sums match the inverse of the argument
  ∧                  ⍝ Logical AND
≠/                   ⍝ The elements of the argument are different.

Màu đỏ , 117 byte

d: func[n][s: 0 repeat i n / 2[if n // i = 0[s: s + i]]]
a: func[n m][either(m = d n)and(n = d m)and not n = m[1][0]]

Hãy thử trực tuyến!

Java (OpenJDK 9) , 87 byte

a->b->a!=b&f(a)==b&f(b)==a
int f(int n){int s=0,d=0;for(;++d<n;)s+=n%d<1?d:0;return s;}

Hãy thử trực tuyến!

SNOBOL4 (CSNOBOL4) , 153 146 byte

	DEFINE('D(X)I')
	DEFINE('A(M,N)')
A	A =EQ(D(M),N) EQ(D(N),M) ~EQ(N,M) 1 :(RETURN)
D	I =LT(I,X - 1) I + 1	:F(RETURN)
	D =EQ(REMDR(X,I)) D + I	:(D)

Hãy thử trực tuyến!

Xác định một hàm Atính toán mức độ dễ hiểu của hai số, trả về giá 1trị hòa và chuỗi trống không. Thuật toán giống như câu trả lời trước của tôi vì vậy tôi để lại lời giải thích cũ bên dưới.

	DEFINE('D(X)I')					;*function definition
	M =INPUT					;*read M,N as input
	N =INPUT
	OUTPUT =EQ(D(M),N) EQ(D(N),M) ~EQ(N,M) 1 :(END)	;* if D(M)==N and D(N)==M and N!=M, output 1. goto end.
D	I =LT(I,X - 1) I + 1	:F(RETURN)		;* function body: increment I so long as I+1<X, return if not.
	D =EQ(REMDR(X,I)) D + I	:(D)			;* add I to D if D%%I==0, goto D
END

Bình thường , 13 byte

&-FQqFms{*MyP

+4 byte để kiểm tra xem các giá trị có khác biệt không, tôi cảm thấy như đó không phải là một phần của thách thức ...

Gần như chắc chắn có thể được chơi golf rất nhiều

Hãy thử trực tuyến!

&-FQqFms{*MyP     Full program, takes input from stdin and outputs to stdout
 -FQ              Q0 - Q1 is true, meaning elements are distinct
&                  and
      m       Q   for each element of the input list, apply
           yPd    take the powerset of the prime factors
        {*M       multiply each list and deduplicate
       s          and sum the list (this represents S(n)+n )
    qF            and fold over equality, returning whether the two elements are equal

APL + THẮNG, 49 54 41 40 35byte

Viết lại để từ chối đầu vào số nguyên bằng nhau

Lời nhắc cho đầu vào màn hình của một vectơ của hai số nguyên.

(≠/n)×2=+/n=⌽+/¨¯1↓¨(0=m|n)×m←⍳¨n←⎕

APL NARS, 38 byte, 18 ký tự

{≠/⍵∧∧/⍵=⌽-⍵-11π⍵}

11π⍵ tìm tổng các ước của trong 1..⍵; lưu ý rằng câu hỏi muốn (11π⍵)-và trong APLsm

-⍵-11π⍵=-(⍵-11π⍵)=(11π⍵)-⍵

các bài kiểm tra

  t←{≠/⍵∧∧/⍵=⌽-⍵-11π⍵}
  t 284 220⋄t 52 100⋄t 10744 10856 ⋄t 174292 2345
1
0
1
0
  t 100 117⋄t 6 11⋄t 495 495⋄t 6 6
0
0
0
0

Japt , 7 12 10 byte

Lấy đầu vào là một mảng gồm 2 số.

®â¬xÃeUâ w

Thử nó

• Đã thêm 3 byte để xử lý [6,11].
• Đã thêm 3 byte sau khi thử thách được cập nhật để yêu cầu xác thực đầu vào. (Boo-urns trên cả hai mặt trận!)
• Đã lưu 1 byte cảm ơn Oliver.

Forth (gforth) , 91 86 byte

: d { n } 0 n 1 do n i mod 0= i * - loop ; 
: f { a b } a b = 1+ a d b = b d a = * * ;

Hãy thử trực tuyến!

Forth (gforth) Không có người dân địa phương, 94 byte

Phiên bản "Đáng tin cậy" hơn không sử dụng biến cục bộ

: d 0 over 1 do over i mod 0= i * - loop nip ;
: f 2dup = 1+ -rot 2dup d -rot d = -rot = * * ;

Hãy thử trực tuyến!

Brachylog , 9 byte

≠.{fk+}ᵐ↔

Hãy thử trực tuyến!

Đưa đầu vào dưới dạng danh sách và đầu ra thông qua thành công hay thất bại.

             The input
≠            which contains no duplicate values
 .           is the output variable,
  {   }ᵐ     and its elements'
    k        proper
   f         divisor
     +       sums
        ↔    reversed
             are also the output variable.

Forth (gforth) , 80 byte

Giải pháp tái cấu trúc của reffu .

: d { n } 0 n 1 do n i mod 0= i * - loop ;
: f 2dup <> -rot 2dup d swap d d= * ;

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

: d { n -- divsum } \ Takes a number and gives its divisor sum (excluding self)
                    \ Store n as a local variable
  0 n 1 do          \ Push 0 (sum) and loop through 1 to n-1...
    n i mod 0=      \   If n % i == 0, push -1 (built-in true in Forth); otherwise push 0
    i * -           \   If the value above is -1, add i to the sum
  loop ;            \ End loop and leave sum on the stack

: f ( n1 n2 -- f )  \ Main function f. Takes two numbers and gives if they are amicable
  2dup <>           \ Are they not equal? ( stack: n1 n2 n1<>n2 )
  -rot              \ Move the boolean under n1 n2 ( stack: n1<>n2 n1 n2 )
  2dup d swap d     \ Copy two numbers, apply d to both and swap
                    \ ( stack: n1<>n2 n1 n2 n2.d n1.d )
  d=                \ Compare two 2-cell numbers for equality; n1=n2.d && n2=n1.d
  * ;               \ Return the product of the two booleans