与えられた2つの整数値が等しいか、それらの和または絶対差が5である場合にtrueを返す最短のコードを記述します。

テストケースの例：

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

私がpython2で思いつくことができる最短は56文字の長さです：

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

-9、@ ElPedroに感謝します。x、yの形式で入力を受け取ります。

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

Python 2、30バイト

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

オンラインでお試しください！

_{Arnauldによって保存された1バイト}

_{alephalphaによって保存された3バイト}

JavaScript（ES6）、28バイト

入力をとして受け取ります(a)(b)。または返します。$0$$1$

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

オンラインでお試しください！

Dyalog APL、9バイト

=∨5∊+,∘|-

オンラインでお試しください！

スペルアウト：

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

x86マシンコード、39バイト

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..

アセンブリ

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

オンラインでお試しください！

J、12 11バイト

Adámのおかげで1バイト節約

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

オンラインでお試しください！

説明

これは次と同等です：

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

これは、次のフォークチェーンに分割できます。

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

または、次を使用して視覚化5!:4<'f'：

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

注釈付き：

  ┌─ =                                     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バイト（または34）

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

オンラインでお試しください！

非Rユーザーの場合：

• -1:1*5 に展開する [-5, 0, 5]
• %in%操作者は、左から要素およびチェックをとる（要素ごとの）彼らは右側に、ベクターに存在する場合

@ArBoのソリューションの直接ポートは35 34バイトなので、必要に応じてその回答に賛成票を投じてください。

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

パイソン2、29の 31バイト

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

オンラインでお試しください！

初めてタスクを注意深く読むことができなかったため、修正するために、まったく異なるアプローチを考え出さなければなりませんでしたが、残念ながらそれほど簡潔ではありません。

8086マシンコード、 22 20バイト

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

ゴルフをしていない：

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

AXおよびBXに数値を入力し、結果がtrueの場合はゼロフラグ（ZF = 1）を返します。必要に応じて、次の条件でどの条件が真であったかを判断することもできます。

• ZF = 1およびDX = 5; 合計は5
• ZF = 1およびAX = 5; diffは5
• ZF = 1およびAX = 0; 等しい
• ZF = 0; 結果偽

数値の差が0であれば、それらが等しいことがわかります。それ以外の場合、結果が負の場合、最初に否定してから5をチェックします。それでも真でない場合は、5を追加してチェックします。

サンプルのPC DOSテストプログラム。こちら（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

テストプログラムの出力：

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

ゼリー、7バイト

+,ạ5eo=

オンラインでお試しください！

使い方

+,ạ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バイト

@DjMcMayhemのおかげで-2バイト

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

オンラインでお試しください！

Java（JDK）、30バイト

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

オンラインでお試しください！

Wolfram言語（Mathematica）、22バイト

入力をとして受け取ります[a][b]。

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

オンラインでお試しください！

PowerShell、48 44 40バイト

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

オンラインでお試しください！またはすべてのテストケースを検証する

入力$aとを受け取ります$b。かどうかをチェックし$bている-in基（$a-5、5-$a 5+$aまたは$a）、のチェックすべての可能な組み合わせ$a、$bおよび5。

-4バイトはmazzyのおかげです。
KGlasierのおかげで-4バイト。

パスカル（FPC）、26 70バイト

編集： +入力変数。

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

オンラインでお試しください！

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

オンラインでお試しください！

私の答えがコードゴルフのすべてのルールに従っていることを願っています。とにかく楽しかったです。

C＃（.NETコア）、43、48、47、33のバイト

編集：％を使用しようとしましたが、どうやって％にするのを忘れたようです。それを指摘してくれたArnauldに感謝します！

EDIT2：-1バイトのゴルフを備えたAdmBorkBorkは、括弧を並べ替えてリターンの隣に配置するため、追加のスペースは必要ありません！

EDIT3：1行のリターンショートカットおよび関数のカリー化（TIOにリンクするための無知のTyの実施形態）の-14バイトゴルフのdanaに感謝します。

C＃（.NET Core）、33バイト

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

オンラインでお試しください！

C（gcc）、33バイト

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

オンラインでお試しください！

他の人が使用しようとするのを見たことがなかったアプローチを試みました。return式はと同等a+b==5||((-6<a-b||a-b<6)&&(a-b)%5==0)です。

Scala、43バイト

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

オンラインでお試しください！

Perl 6、24バイト

グリミのおかげで-1バイト

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

オンラインでお試しください！

これはAny Junctionを使用しますが、技術的に^は同様に機能します。

説明：

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

C（gcc）、41 34バイト

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

オンラインでお試しください！

05AB1E、13 12バイト

ÐO5Qs`α5QrËO

オンラインでお試しください！

入力を整数のリストとして受け取り、1バイトを節約します。ありがとう@Wisław！

代替の12バイトの回答

Q¹²α5Q¹²+5QO

オンラインでお試しください！

これは、別々の行に入力を取ります。

05AB1E、10バイト

OIÆ‚Ä50SåZ

オンラインでお試しください！

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.

スタックのみの操作を使用してそれを実行しようとしましたが、より長くなりました。

ルビー、34バイト

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

オンライン評価 -ありがとう@ ASCII-Only

Tcl、53バ​​イト

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

オンラインでお試しください！

Japt、14 13バイト

¥VªaU ¥5ª5¥Nx

オンラインでお試しください！

バッチ、81バイト

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

入力をコマンドライン引数として受け取り、成功した場合は1、失敗した場合は何も出力しません。Batchは簡単に選言を行うことができないため、De Morganの法則を使用して、Batchを結合に変換します。

炭、18バイト

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

オンラインでお試しください！リンクは、コードの詳細バージョンです。@ArBoのPython 2ソリューションのポート。

Japt、13 12バイト

x ¥5|50ìøUra

試すか、すべてのテストケースを実行してください

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バイト

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

Brachylog、8バイト

=|+5|-ȧ5

入力を2つの数値のリストとして受け取ります（_負数に使用）。オンラインでお試しください！

説明

仕様のほぼ直接的な翻訳：

=          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バイト

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

オンラインでお試しください！リンクにはテストケースが含まれます。説明：最初の2行は、入力を単項に変換します。最後の行では、許可された一致のいずれかを確認します。

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

取得した最後の列を中心に：

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$