Viết mã ngắn nhất có thể sẽ trả về true nếu hai giá trị nguyên đã cho bằng nhau hoặc tổng hoặc chênh lệch tuyệt đối của chúng là 5.

Các trường hợp thử nghiệm ví dụ:

4 1 => True
10 10 => True
1 3 => False
6 2 => False
1 6 => True
-256 -251 => True
6 1 => True
-5 5 => False

Đoạn ngắn nhất tôi có thể nghĩ ra trong python2 dài 56 ký tự:

x=input();y=input();print all([x-y,x+y-5,abs(x-y)-5])<1

-9, cảm ơn @ElPedro. Nó nhận đầu vào ở định dạng x, y:

x,y=input();print all([x-y,x+y-5,abs(x-y)-5])<1

Python 2 , 30 byte

lambda a,b:a in(b,5-b,b-5,b+5)

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

_{Một byte được lưu bởi Arnauld}

_{Ba byte được lưu bởi alephalpha}

JavaScript (ES6), 28 byte

Đưa đầu vào là (a)(b). Trả về $0$ hoặc $1$ .

a=>b=>a+b==5|!(a-=b)|a*a==25

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

APL Dyalog , 9 byte

=∨5∊+,∘|-

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

Đánh vần:

  =   ∨  5      ∊                +   , ∘    |            -
equal or 5 found in an array of sum and absolute of difference.

mã máy x86, 39 byte

00000000: 6a01 5e6a 055f 5251 31c0 39d1 0f44 c601  j.^j._RQ1.9..D..
00000010: d139 cf0f 44c6 595a 29d1 83f9 050f 44c6  .9..D.YZ).....D.
00000020: 83f9 fb0f 44c6 c3                        ....D..

hội,, tổ hợp

section .text
	global func
func:					;inputs int32_t ecx and edx
	push 0x1
	pop esi
	push 0x5
	pop edi
	push edx
	push ecx
	xor eax, eax

	;ecx==edx?
	cmp ecx, edx
	cmove eax, esi

	;ecx+edx==5?
	add ecx, edx
	cmp edi, ecx
	cmove eax, esi
	
	;ecx-edx==5?
	pop ecx
	pop edx
	sub ecx, edx
	cmp ecx, 5
	
	;ecx-edx==-5?
	cmove eax, esi
	cmp ecx, -5
	cmove eax, esi

	ret

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

J , 12 11 byte

Lưu 1 byte nhờ Adám

1#.=+5=|@-,+

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

Giải trình

Điều này tương đương với:

1 #. = + 5 = |@- , +

Điều này có thể được chia thành chuỗi ngã ba sau:

(= + (5 e. (|@- , +)))

Hoặc, trực quan hóa bằng cách sử dụng 5!:4<'f':

  ┌─ =               
  ├─ +               
──┤   ┌─ 5           
  │   ├─ e.          
  └───┤          ┌─ |
      │    ┌─ @ ─┴─ -
      └────┼─ ,      
           └─ +      

Chú thích:

  ┌─ =                                     equality
  ├─ +                                     added to (boolean or)
──┤   ┌─ 5                                   noun 5
  │   ├─ e.                                  is an element of
  └───┤          ┌─ |  absolute value         |
      │    ┌─ @ ─┴─ -  (of) subtraction       |
      └────┼─ ,        paired with            |
           └─ +        addition               | any of these?

R , 40 byte (hoặc 34)

function(x,y)any((-1:1*5)%in%c(x+y,x-y))

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

Đối với người dùng không phải R:

• -1:1*5 mở rộng đến [-5, 0, 5]
• các %in%nhà điều hành có các yếu tố từ bên trái và kiểm tra (yếu tố khôn ngoan) nếu chúng tồn tại trong vector bên phải

Một cổng trực tiếp của giải pháp @ ArBo có 35 34 byte, vì vậy hãy đưa ra câu trả lời nếu bạn thích:

function(x,y)x%in%c(y--1:1*5,5-y)

Python 2 , 29 31 byte

lambda a,b:a+b==5or`a-b`in"0-5"

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

Vì lần đầu tiên tôi không đọc được nhiệm vụ một cách cẩn thận, để khắc phục nó, tôi đã phải đưa ra một cách tiếp cận hoàn toàn khác, rất tiếc là không ngắn gọn.

Mã máy 8086, 22 20 byte

8bd0 2bc3 740e 7902 f7d8 3d0500 7405 03d3 83fa05

Ung dung:

ESD  MACRO
    LOCAL SUB_POS, DONE
    MOV  DX, AX     ; Save AX to DX
    SUB  AX, BX     ; AX = AX - BX
    JZ   DONE       ; if 0, then they are equal, ZF=1
    JNS  SUB_POS    ; if positive, go to SUB_POS
    NEG  AX         ; otherwise negate the result
SUB_POS:
    CMP  AX, 5      ; if result is 5, ZF=1
    JZ   DONE
    ADD  DX, BX     ; DX = DX + BX
    CMP  DX, 5      ; if 5, ZF=1
DONE:
    ENDM

Các số đầu vào trong AX và BX và trả về Cờ không (ZF = 1) nếu kết quả là đúng. Nếu muốn, bạn cũng có thể xác định điều kiện nào là đúng với các điều sau:

• ZF = 1 và DX = 5; tổng là 5
• ZF = 1 và AX = 5; khác biệt là 5
• ZF = 1 và AX = 0; công bằng
• ZF = 0; kết quả sai

Nếu chênh lệch giữa các số là 0, chúng ta biết chúng bằng nhau. Mặt khác, nếu kết quả là âm tính, trước tiên hãy phủ định nó và sau đó kiểm tra 5. Nếu vẫn không đúng, sau đó thêm và kiểm tra 5.

Chương trình thử nghiệm PC DOS mẫu. Tải xuống ở đây ( ESD.COM ).

START:
    CALL INDEC      ; input first number into AX
    MOV  BX, AX     ; move to BX
    CALL INDEC      ; input second number into BX
    ESD             ; run "Equal, sum or difference" routine
    JZ   TRUE       ; if ZF=1, result is true
FALSE:
    MOV  DX, OFFSET FALSY   ; load Falsy string
    JMP  DONE
TRUE:
    MOV  DX, OFFSET TRUTHY  ; load Truthy string
DONE:
    MOV  AH, 9      ; DOS display string
    INT  21H        ; execute
    MOV  AX, 4C00H  ; DOS terminate
    INT  21H        ; execute

TRUTHY   DB 'Truthy$'
FALSY    DB 'Falsy$'

INCLUDE INDEC.ASM   ; generic decimal input prompt routine

Đầu ra của chương trình thử nghiệm:

A>ESD.COM
: 4
: 1
Truthy

A>ESD.COM
: 10
: 10
Truthy

A>ESD.COM
: 1
: 3
Falsy

A>ESD.COM
: 6
: 2
Falsy

A>ESD.COM
: 1
: 6
Truthy

A>ESD.COM
: -256
: -251
Truthy

A>ESD.COM
: 6
: 1
Truthy

A>ESD.COM
: 9999999999
: 9999999994
Truthy

Thạch , 7 byte

+,ạ5eo=

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

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

+,ạ5eo=  Main link. Arguments: x, y (integers)

+        Yield x+y.
  ạ      Yield |x-y|.
 ,       Pair; yield (x+y, |x-y|).
   5e    Test fi 5 exists in the pair.
      =  Test x and y for equality.
     o   Logical OR.

Python 2, 38 byte

-2 byte nhờ @DjMcMayhem

lambda a,b:a+b==5or abs(a-b)==5or a==b

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

Java (JDK) , 30 byte

a->b->a+b==5|a==b|(b-=a)*b==25

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

Ngôn ngữ Wolfram (Mathicala) , 22 byte

Đưa đầu vào là [a][b].

MatchQ[#|5-#|#-5|#+5]&

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

PowerShell , 48 44 40 byte

param($a,$b)$b-in($a-5),(5-$a),(5+$a),$a

Hãy thử trực tuyến! hoặc Xác minh tất cả các trường hợp kiểm tra

Đưa đầu vào $avà $b. Kiểm tra nếu $blà -innhóm ( $a-5, 5-$a 5+$ahay $a), trong đó kiểm tra tất cả các kết hợp có thể có của $a, $bvà 5.

-4 byte nhờ mazzy.
-4 byte nhờ KGlasier.

Pascal (FPC) ,26 70 byte

Chỉnh sửa: + biến đầu vào.

Procedure z(a,b:integer);begin Writeln((abs(a-b)in[0,5])or(a+b=5))end;

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

(abs(a-b)in[0,5])or(a+b=5)

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

Tôi hy vọng rằng câu trả lời của tôi là theo tất cả các quy tắc của golf-code. Dù sao đó cũng là niềm vui.

C # (.NET Core) , 43 , 48 , 47 , 33 byte

EDIT: Đã thử sử dụng% và dường như quên cách%. Cảm ơn Arnauld đã chỉ ra điều đó!

EDIT2: admBorkBork với golf -1 byte sắp xếp lại các dấu ngoặc đơn để ngồi bên cạnh trở lại để không cần thêm không gian!

EDIT3: Cảm ơn dana cho golf -14 byte cho lối tắt trở lại một dòng và làm xáo trộn chức năng (Ty Embodiment of Ignorance để liên kết với TIO).

C # (.NET Core) , 33 byte

a=>b=>a==b|a+b==5|(a-b)*(a-b)==25

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

C (gcc) , 33 byte

f(a,b){a=!(a+b-5&&(a-=b)/6|a%5);}

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

Đã thử một cách tiếp cận tôi không thấy ai khác thử sử dụng. Biểu thức trả về tương đương với a+b==5||((-6<a-b||a-b<6)&&(a-b)%5==0).

Scala, 43 byte

def f(a:Int,b:Int)=a+b==5|(a-b).abs==5|a==b

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

Perl 6 , 24 byte

-1 byte nhờ Grimy

{$^a-$^b==5|0|-5|5-2*$b}

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

Cái này sử dụng Any Junction nhưng về mặt kỹ thuật, ^cũng có thể hoạt động tốt.

Giải trình:

{                      }  # Anonymous code block
 $^a-$^b==                # Is the difference equal to
           | |  |        # Any of
          0 
            5
              -5
                 5-2*$b

C (gcc) , 41 34 byte

f(a,b){a=5==abs(a-b)|a+b==5|a==b;}

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

05AB1E , 13 12 byte

ÐO5Qs`α5QrËO

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

Lấy đầu vào dưới dạng danh sách các số nguyên, lưu một byte. Cảm ơn @ Wisław!

Thay thế câu trả lời 12 byte

Q¹²α5Q¹²+5QO

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

Điều này có đầu vào trên các dòng riêng biệt.

05AB1E , 10 byte

OIÆ‚Ä50SåZ

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

O           # Sum the input.
 IÆ         # Reduced subtraction of the input.
   ‚        # Wrap [sum,reduced_subtraction]
    Ä       # abs[sum,red_sub]
     50S    # [5,0]
        å   # [5,0] in abs[sum,red_sub]?
         Z  # Max of result, 0 is false, 1 is true.

Đã thử để làm điều đó bằng cách sử dụng các hoạt động chỉ ngăn xếp, nhưng nó đã lâu hơn.

Ruby , 34 byte

->(a,b){[a+5,a-5,5-a,a].include?b}

Eval trực tuyến - Cảm ơn chỉ có ASCII

Tcl , 53 byte

proc P a\ b {expr abs($a-$b)==5|$a==$b|abs($a+$b)==5}

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

Japt , 14 13 byte

¥VªaU ¥5ª5¥Nx

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

Mẻ, 81 byte

@set/as=%1+%2,d=%1-%2
@if %d% neq 0 if %d:-=% neq 5 if %s% neq 5 exit/b
@echo 1

Đưa đầu vào làm đối số dòng lệnh và xuất 1 thành công, không có gì thất bại. Hàng loạt không thể dễ dàng làm bất đồng vì vậy tôi sử dụng luật của De Morgan để biến nó thành một tổ hợp.

Than , 18 byte

Ｎθ¿№⟦θ⁺⁵θ⁻⁵θ⁻θ⁵⟧Ｎ1

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Cổng giải pháp Python 2 của @ ArBo.

Japt, 13 12 byte

x ¥5|50ìøUra

Hãy thử nó hoặc chạy tất cả các trường hợp thử nghiệm

x ¥5|50ìøUra
                 :Implicit input of array U
x                :Reduce by addition
  ¥5             :Equal to 5?
    |            :Bitwise OR
     50ì         :Split 50 to an array of digits
        ø        :Contains?
         Ur      :  Reduce U
           a     :    By absolute difference

Lisp thông thường, 48 byte

(lambda(a b)(find 5(list(abs(- b a))a(+ a b)b)))

Brachylog , 8 byte

=|+5|-ȧ5

Lấy đầu vào là một danh sách gồm hai số (sử dụng _cho phủ định). Hãy thử trực tuyến!

Giải trình

Khá nhiều bản dịch trực tiếp của spec:

=          The two numbers are equal
 |         or
  +        The sum of the two numbers
   5       is 5
    |      or
     -     The difference of the two numbers
      ȧ    absolute value
       5   is 5

Võng mạc 0.8.2 , 82 byte

\d+
$*
^(-?1*) \1$|^(-?1*)1{5} -?\2$|^-?(-?1*) (\3)1{5}$|^-?(1 ?){5}$|^(1 ?-?){5}$

Hãy thử trực tuyến! Liên kết bao gồm các trường hợp thử nghiệm. Giải thích: Hai dòng đầu tiên chuyển đổi các đầu vào thành đơn nguyên. Dòng cuối cùng sau đó kiểm tra bất kỳ trận đấu nào được phép:

^(-?1*) \1$                              x==y
^(-?1*)1{5} -?\2$   x>=0 y>=0 x=5+y i.e. x-y=5
                    x>=0 y<=0 x=5-y i.e. x+y=5
                    x<=0 y<=0 x=y-5 i.e. y-x=5
^-?(-?1*) (\3)1{5}$ x<=0 y<=0 y=x-5 i.e. x-y=5
                    x<=0 y>=0 y=5-x i.e. x+y=5
                    x>=0 y>=0 y=5+x i.e. y-x=5
^-?(1 ?){5}$        x>=0 y>=0 y=5-x i.e. x+y=5
                    x<=0 y>=0 y=5+x i.e. y-x=5
^(1 ?-?){5}$        x>=0 y>=0 x=5-y i.e. x+y=5
                    x>=0 y<=0 x=5+y i.e. x-y=5

Xoay theo cột cuối cùng chúng ta nhận được:

x==y            ^(-?1*) \1$
x+y=5 x>=0 y>=0 ^-?(1 ?){5}$
      x>=0 y>=0 ^(1 ?-?){5}$
      x>=0 y<=0 ^(-?1*)1{5} -?\2$
      x<=0 y>=0 ^-?(-?1*) (\3)1{5}$
      x<=0 y<=0 (impossible)       
x-y=5 x>=0 y>=0 ^(-?1*)1{5} -?\2$
      x>=0 y<=0 ^(1 ?-?){5}$
      x<=0 y>=0 (impossible)
      x<=0 y<=0 ^-?(-?1*) (\3)1{5}$
y-x=5 x>=0 y>=0 ^-?(-?1*) (\3)1{5}$
      x>=0 y<=0 (impossible)
      x<=0 y>=0 ^-?(1 ?){5}$
      x<=0 y<=0 ^(-?1*)1{5} -?\2$