Schreiben Sie den kürzestmöglichen Code, der true zurückgibt, wenn die beiden angegebenen ganzzahligen Werte gleich sind oder ihre Summe oder absolute Differenz 5 beträgt.

Beispiel Testfälle:

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

Die kürzeste, die ich in python2 finden konnte, ist 56 Zeichen lang:

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

-9, danke @ElPedro. Es werden Eingaben im Format x, y akzeptiert:

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

Python 2 , 30 Bytes

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

Probieren Sie es online!

_{Ein Byte von Arnauld gespeichert}

_{Drei Bytes, die von alephalpha gespeichert wurden}

JavaScript (ES6), 28 Byte

Übernimmt die Eingabe als (a)(b). Gibt $0$ oder $1$ .

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

Probieren Sie es online!

Dyalog APL , 9 Bytes

=∨5∊+,∘|-

Probieren Sie es online!

Buchstabiert:

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

x86-Maschinencode, 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..

Versammlung

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

Probieren Sie es online!

J , 12 11 Bytes

1 Byte gespart dank Adám

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

Probieren Sie es online!

Erläuterung

Dies ist äquivalent zu:

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

Dies kann in die folgende Gabelkette unterteilt werden:

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

Oder visualisiert mit 5!:4<'f':

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

Kommentiert:

  ┌─ =                                     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 Bytes (oder 34)

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

Probieren Sie es online!

Für Nicht-R-Benutzer:

• -1:1*5 erweitert um [-5, 0, 5]
• Der %in%Operator entnimmt Elemente von links und prüft (elementweise), ob sie im Vektor auf der rechten Seite vorhanden sind

Ein direkter Port der @ ArBo-Lösung hat 35 bis 34 Bytes. Stimmen Sie also dieser Antwort zu, wenn Sie sie mögen:

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

Python 2 , 29 31 Bytes

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

Probieren Sie es online!

Da ich es nicht geschafft habe, die Aufgabe beim ersten Mal sorgfältig zu lesen, musste ich mir einen völlig anderen Ansatz einfallen lassen, der leider nicht so prägnant ist.

8086 Maschinencode, 22 20 Bytes

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

Ungolfed:

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

Geben Sie Zahlen in AX und BX ein und geben Sie Zero Flag (ZF = 1) zurück, wenn das Ergebnis wahr ist. Auf Wunsch können Sie auch bestimmen, welche Bedingung erfüllt ist:

• ZF = 1 und DX = 5; Summe ist 5
• ZF = 1 und AX = 5; diff ist 5
• ZF = 1 und AX = 0; gleich
• ZF = 0; Ergebnis falsch

Wenn der Unterschied zwischen den Zahlen 0 ist, wissen wir, dass sie gleich sind. Andernfalls, wenn das Ergebnis negativ ist, negieren Sie es zuerst und prüfen Sie dann auf 5. Wenn dies immer noch nicht zutrifft, fügen Sie hinzu und prüfen Sie auf 5.

Beispiel für ein PC-DOS-Testprogramm. Laden Sie es hier herunter ( 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

Ausgabe des Testprogramms:

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

Gelee , 7 Bytes

+,ạ5eo=

Probieren Sie es online!

Wie es funktioniert

+,ạ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 Bytes

-2 Bytes dank @DjMcMayhem

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

Probieren Sie es online!

Java (JDK) , 30 Byte

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

Probieren Sie es online!

Wolfram Language (Mathematica) , 22 Byte

Übernimmt die Eingabe als [a][b].

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

Probieren Sie es online!

PowerShell , 48 44 40 Byte

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

Probieren Sie es online! oder Überprüfen Sie alle Testfälle

Nimmt Eingabe $aund $b. Prüft , ob $bist -indie Gruppe ( $a-5, 5-$a 5+$a, oder $a), die überprüft , alle möglichen Kombinationen von$a , $b, und 5.

-4 Bytes dank mazzy.
-4 Bytes dank KGlasier.

Pascal (FPC) ,26 70 Bytes

Bearbeiten: + Eingabevariablen.

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

Probieren Sie es online!

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

Probieren Sie es online!

Ich hoffe, dass meine Antwort allen Regeln des Code-Golf entspricht. Es hat trotzdem Spaß gemacht.

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

BEARBEITEN: Versucht,% zu verwenden und anscheinend vergessen, wie man%. Vielen Dank an Arnauld für diesen Hinweis!

EDIT2: AdmBorkBork mit einem -1-Byte-Golf, der die Klammern so anordnet, dass sie sich neben dem Return befinden, sodass kein zusätzlicher Platz benötigt wird!

EDIT3: Danke an Dana für -14-Byte-Golf für die einzeilige Rücksprungverknüpfung und das Ausführen der Funktion (Ty Ausführungsform der Ignoranz für die Verknüpfung mit TIO).

C # (.NET Core) , 33 Byte

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

Probieren Sie es online!

C (gcc) , 33 Bytes

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

Probieren Sie es online!

Ich habe versucht, einen Ansatz zu finden, bei dem noch niemand versucht hat, ihn zu verwenden. Der Rückgabeausdruck ist äquivalent zu a+b==5||((-6<a-b||a-b<6)&&(a-b)%5==0).

Scala, 43 Bytes

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

Probieren Sie es online!

Perl 6 , 24 Bytes

-1 Byte danke an Grimy

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

Probieren Sie es online!

Dies nutzt die Any Junction aber technisch ^könnte das auch funktionieren.

Erläuterung:

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

C (gcc) , 41 34 Bytes

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

Probieren Sie es online!

05AB1E , 13 12 Bytes

ÐO5Qs`α5QrËO

Probieren Sie es online!

Übernimmt die Eingabe als Liste von Ganzzahlen und speichert ein Byte. Vielen Dank @ Wisław!

Alternative 12-Byte-Antwort

Q¹²α5Q¹²+5QO

Probieren Sie es online!

Dieser nimmt Eingaben in separaten Zeilen vor.

05AB1E , 10 Bytes

OIÆ‚Ä50SåZ

Probieren Sie es online!

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.

Versucht, es mit Nur-Stapel-Operationen zu tun, aber es war länger.

Rubin , 34 Bytes

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

Online-Auswertung - Dank nur an ASCII

Tcl , 53 Bytes

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

Probieren Sie es online!

Japt , 14 13 Bytes

¥VªaU ¥5ª5¥Nx

Probieren Sie es online!

Batch, 81 Bytes

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

Nimmt Eingaben als Befehlszeilenargumente und gibt bei Erfolg 1 aus, bei Fehlern nichts. Batch kann nicht leicht disjunktieren, daher verwandle ich es nach den Gesetzen von De Morgan in eine Konjunktion.

Kohle , 18 Bytes

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

Probieren Sie es online! Link ist eine ausführliche Version des Codes. Port der @ ArBo Python 2-Lösung.

Japt, 13 12 Bytes

x ¥5|50ìøUra

Probieren Sie es aus oder führen Sie alle Testfälle aus

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

Common Lisp, 48 Bytes

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

Brachylog , 8 Bytes

=|+5|-ȧ5

Nimmt die Eingabe als Liste mit zwei Zahlen ( _für Negative verwenden).Probieren Sie es online!

Erläuterung

Ziemlich genau eine direkte Übersetzung der Spezifikation:

=          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

Retina 0.8.2 , 82 Bytes

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

Probieren Sie es online! Link enthält Testfälle. Erläuterung: Die ersten beiden Zeilen wandeln die Eingaben in unäre um. Die letzte Zeile prüft dann, ob eine der zulässigen Übereinstimmungen vorliegt:

^(-?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

Geschwenkt durch die letzte Spalte, die wir bekommen:

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$