32

कम से कम संभव कोड लिखें जो दो दिए गए पूर्णांक मान बराबर या उनकी राशि या पूर्ण अंतर 5 है, तो यह सच होगा।

उदाहरण के परीक्षण के मामले:

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

code-golf decision-problem

— विक्रांत विश्वास
स्रोत

9

PPCG में आपका स्वागत है! यह एक अच्छी पहली चुनौती है - चुनौती स्पष्ट रूप से परिभाषित है, इसमें पर्याप्त परीक्षण मामले हैं, और हमारे डिफ़ॉल्ट I / O का उपयोग करता है! यदि आप थोड़ी देर के लिए चारों ओर चिपकते हैं और दिलचस्प चुनौतियों पर विचार करते रहते हैं, तो मैं उन्हें इस साइट पर पोस्ट करने से पहले फीडबैक प्राप्त करने के लिए सैंडबॉक्स का उपयोग करने की सलाह दूंगा। मुझे आशा है कि आप यहां बिताए समय का आनंद लेंगे!

— ग्यूसेप

22

अजगर २ , 30 बाइट्स

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

इसे ऑनलाइन आज़माएं!

_{एक बाइट अरनौल द्वारा बचाई गई}

_{एलेफाल्फा द्वारा बचाए गए तीन बाइट्स}

— अरबो
स्रोत

यह आश्चर्यजनक रूप से संक्षिप्त है, धन्यवाद

— विक्रांत बिस्वास

एक ही ओक्टेव / MATLAB में 29 बाइट्स में किया जा सकता है ( इसे ऑनलाइन आज़माएं! )।

— टॉम कारपेंटर

17

जावास्क्रिप्ट (ईएस 6), 28 बाइट्स

के रूप में इनपुट लेता है (a)(b)। रिटर्न $0$ या $1$ ।

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

इसे ऑनलाइन आज़माएं!

— Arnauld
स्रोत

1

लानत है, मुझे यह जानने के लिए एक लंबा समय लगा कि यह अंतर भाग को कैसे संभालता है। :)

— विक्रांत बिस्वास

9

दिल्लोग एपीएल , 9 बाइट्स

=∨5∊+,∘|-

इसे ऑनलाइन आज़माएं!

व्याख्या करना:

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

— dzaima
स्रोत

8

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

इसे ऑनलाइन आज़माएं!

— Logern
स्रोत

5

जे , 12 11 बाइट्स

1 बाइट ने Adám को धन्यवाद दिया

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?

— कोनोर ओ ब्रायन
स्रोत

एक बाइट के साथ सहेजेंe.

— Adám

@ Adám ऐसा कैसे? सबसे कम दृष्टिकोण जो मुझे मिला e.था =+.5 e.|@-,+। शायद आप भूल गए 5e.कि J में एक अमान्य टोकन है?

— कॉनर ओ'ब्रायन

1

चूंकि दो पूर्णांक एक साथ 5 के बराबर नहीं हो सकते हैं और समान हो सकते हैं, आप +इसके बजाय+.

— Adám

@ Adám आह, मैं देखता हूं, धन्यवाद।

— कॉनर ओ'ब्रायन

5

आर , 40 बाइट्स (या 34)

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

इसे ऑनलाइन आज़माएं!

गैर-आर उपयोगकर्ताओं के लिए:

-1:1*5 तक फैलता है [-5, 0, 5]
%in%ऑपरेटर बाएं से तत्वों और चेक लेता है (तत्व वार) वे सही पर वेक्टर में मौजूद है, तो

@ ArBo के समाधान के प्रत्यक्ष पोर्ट में 35 34 बाइट्स हैं, इसलिए यदि आपको यह पसंद है तो उत्तर दें

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

— एन जी एम
स्रोत

34 बाइट को 1 से कम किया जा सकता हैfunction(x,y)x%in%c(y--1:1*5,5-y)

— मिकी टी

घटाव को आगे बढ़ाकर 30 बाइट्स तक गिरा सकते हैं: function(x,y)(x-y)%in%(-1:1*5)और फ़ंक्शन नोटेशन को scan()इनपुट पर छोड़ कर इसे 24 बाइट्स तक छोड़ सकते हैं : diff(scan())%in%(-1:1*5) इसे ऑनलाइन आज़माएं! । हालांकि अभी भी एक ही विधि बहुत ज्यादा है।

— क्रिमिनल

1

@CriminallyVulgar 5 का योग है?

— अरेबो

@ArBo Hah, कल्पना में चूक गया, और TIO में कोई टेस्ट केस नहीं था इसलिए मैंने इस पर विचार किया!

— क्रिमिनल

दोनों के लिए किया जा सकता है कि मामूली परिवर्तन pryr::f, जो दोनों मामलों में काम करने के लिए होता है। चाहे वह तर्कों का ठीक से पता लगा सके, पूरी तरह से कुछ हद तक हिट या मिस हो, लेकिन ऐसा लगता है कि इन दोनों कार्यों को नाकाम कर दिया गया है। जैसे pryr::f(x%in%c(y--1:1*5,5-y)) ऑनलाइन कोशिश करो! । आप क्रमशः 36 और 29 बाइट्स के लिए जाता है।

— आपराधिक रूप से

5

पायथन 2 , 29 31 बाइट्स

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

इसे ऑनलाइन आज़माएं!

चूंकि मैंने पहली बार कार्य को ध्यान से पढ़ने का प्रबंधन नहीं किया था, इसे ठीक करने के लिए, मुझे पूरी तरह से अलग दृष्टिकोण के साथ आना पड़ा, जो दुर्भाग्य से संक्षिप्त नहीं है।

— किरिल एल।
स्रोत

5

8086 मशीन कोड, 22 20 बाइट्स

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

यदि परिणाम सही है, तो AX और BX में इनपुट नंबर और शून्य ध्वज (ZF = 1) लौटाता है। यदि वांछित है, तो आप यह भी निर्धारित कर सकते हैं कि निम्नलिखित के साथ कौन सी स्थिति सही थी:

ZF = 1 और DX = 5; योग 5 है
ZF = 1 और AX = 5; अंतर 5 है
ZF = 1 और AX = 0; बराबरी का
जेडएफ = 0; परिणाम गलत है

यदि संख्याओं में अंतर 0 है, तो हम जानते हैं कि वे समान हैं। अन्यथा यदि परिणाम नकारात्मक है, तो पहले इसे नकारात्मक करें और फिर 5 के लिए जांचें। यदि अभी भी सच नहीं है, तो 5 के लिए जोड़ें और जांचें।

नमूना पीसी डॉस परीक्षण कार्यक्रम। इसे यहां ( 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

— 640KB
स्रोत

4

जेली , 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.

— डेनिस
स्रोत

4

पायथन 2, 38 बाइट्स

-2 बाइट्स @DjMcMayhem को धन्यवाद

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

इसे ऑनलाइन आज़माएं!

— fənɛtɪk
स्रोत

आपका TIO वास्तव में 42 बाइट्स है, लेकिन आप के बीच रिक्त स्थान को हटाने के द्वारा इसे ठीक कर सकते हैं 5और orरों

— ElPedro

3

वास्तव में, TIO लिंक हो सकता है 38 बाइट्स

— DJMcMayhem

@ElPedro फ़ंक्शन स्वयं 40 बाइट्स था, लेकिन मैंने इसे कॉल करने में सक्षम होने के लिए f = का उपयोग किया

— fɛn Jantəˈk

1

@DJMcMayhem मैं आमतौर पर अजगर में गोल्फ नहीं खेलता। मैंने ऐसा सिर्फ इसलिए किया क्योंकि सवाल

— पूछने वाले

4

जावा (JDK) , 30 बाइट्स

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

इसे ऑनलाइन आज़माएं!

— ओलिवियर ग्रेजायर
स्रोत

4

वोल्फ्राम भाषा (गणितज्ञ) , 22 बाइट्स

के रूप में इनपुट लेता है [a][b]।

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

इसे ऑनलाइन आज़माएं!

— alephalpha
स्रोत

4

पावरशेल , 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, के सभी संभावित संयोजनों की जाँच करता है ।$b5

-4 बाइट्स mazzy के लिए धन्यवाद।
-4 बाइट्स केगलसियर को धन्यवाद।

— AdmBorkBork
स्रोत

($a-$b)है -$x:)

— माज़ी

@ माज़ी ओउ, अच्छी कॉल।

— AdmBorkBork

यदि आप स्विच करते हैं 5और $bआसपास आप एक दो बाइट्स काट सकते हैं (यानी param($a,$b)$b-in($a-5),(5-$a),($a+5),$a) इसे यहाँ आज़माएँ

— आज़माएँ केगलसियर

1

@KGlasier उत्कृष्ट सुझाव। मुझे कमांड-लाइन इनपुट लेते समय इसे उचित रूप से लाने के लिए स्वैप $a+5करने की आवश्यकता थी 5+$a, लेकिन अन्यथा भयानक। धन्यवाद!

— AdmBorkBork

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)

इसे ऑनलाइन आज़माएं!

मुझे उम्मीद है कि मेरा जवाब कोड-गोल्फ के सभी नियमों के अनुसार है। यह वैसे भी मजेदार था।

— डेसी स्टोवा
स्रोत

2

नमस्कार, और PPCG में आपका स्वागत है! आम तौर पर, आपको इनपुट लेना होगा, यह मानने के बजाय कि यह पहले से ही चर में है। मैं पास्कल नहीं जानता, लेकिन मुझे लगता है कि यह कोड क्या कर रहा है।

— NoOneIsHere

नमस्कार, NoOneIsHere और टिप्पणी के लिए धन्यवाद। यह चिंता का विषय भी हो सकता है - क्या मैं चर के आरंभीकरण को शामिल करूंगा। उदाहरण के लिए जावा जैसे कई अन्य समाधानों को देखते हुए, जहां मापदंडों के साथ फ़ंक्शन परिभाषा को समाधान की कुल लंबाई से बाहर रखा गया था, मैंने रीडलेन को शामिल नहीं करने का फैसला किया।

— डेसी स्टोवा

ठीक है। PPCG में आपका स्वागत है!

— NoOneIsHere

जावा सबमिशन एक अनाम लंबोदर है जो दो मापदंडों को लेता है। यह पूर्वनिर्धारित चर का उपयोग करता प्रतीत होता है, जो इनपुट का एक वैध तरीका नहीं है।

— जो राजा

1

कोई बात नहीं, मैं अपना सबमिशन बदल दूंगा।

— डेसी स्टोवा

3

सी # (.NET कोर) , 43 , 48 , 47 , 33 बाइट्स

संपादित करें:% का उपयोग करने की कोशिश की और जाहिरा तौर पर कैसे% भूल गया। यह इंगित करने के लिए अरनुलद को धन्यवाद!

EDIT2: AdmBorkBork -1 बाइट गोल्फ के साथ कोष्ठक को फिर से जोड़ने के लिए वापसी के बगल में बैठने के लिए ताकि अतिरिक्त स्थान की आवश्यकता न हो!

EDIT3: एक लाइन रिटर्न शॉर्टकट के लिए dana -14 बाइट गोल्फ के लिए धन्यवाद और फ़ंक्शन (TIO से लिंक करने के लिए Ty अवतार की उपेक्षा)।

सी # (.NET कोर) , 33 बाइट्स

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

इसे ऑनलाइन आज़माएं!

— डेस्ट्रोइगो
स्रोत

बाह। System.Math से बचने की कोशिश की जा रही है। वापस करने के लिए! यह इंगित करने के लिए धन्यवाद कि बाहर: डी

— डिस्ट्रोइगो

1

आप इसे 33 बाइट्स में डालकर दाना के नुस्खे प्राप्त कर सकते हैं

— अज्ञानता का अवतार

3

सी (जीसीसी) , 33 बाइट्स

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

इसे ऑनलाइन आज़माएं!

एक दृष्टिकोण की कोशिश की मैंने किसी और को उपयोग करने की कोशिश नहीं की। वापसी की अभिव्यक्ति के बराबर है a+b==5||((-6<a-b||a-b<6)&&(a-b)%5==0)।

— attinat
स्रोत

3

स्काला, 43 बाइट्स

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

इसे ऑनलाइन आज़माएं!

— ज़ेवियर गुइहोट
स्रोत

क्या यह गोल्फ के ||लिए संभव नहीं है |? मुझे पता है कि यह जावा, सी #, पायथन या जावास्क्रिप्ट में संभव है, लेकिन स्काला के बारे में निश्चित नहीं है।

— केविन क्रूज़सेन

वास्तव में हाँ! धन्यवाद

— जेवियर गुइहोट

3

पर्ल 6 , 24 बाइट्स

-1 बाइट ग्रिम के लिए धन्यवाद

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

इसे ऑनलाइन आज़माएं!

यह किसी भी जंक्शन का उपयोग करता है, लेकिन तकनीकी ^रूप से भी काम कर सकता है।

स्पष्टीकरण:

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

— मजाक कर रहा है
स्रोत

1

-1 बाइट के साथ {$^a-$^b==5|0|-5|5-2*$b}

— ग्रिम्मी

2

सी (जीसीसी) , 41 34 बाइट्स

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

इसे ऑनलाइन आज़माएं!

— cleblanc
स्रोत

1

क्यों fलौटता है a? बस कुछ अपरिभाषित व्यवहार?

— टाइयलो

@ टायलो हाँ, यह विशिष्ट कार्यान्वयन है। तो होता है पहला पैरामीटर रिटर्न मान के रूप में उसी रजिस्टर में संग्रहीत किया जाता है।

— क्लेब्लांक

30 बाइट्स इसे ऑनलाइन आज़माएं!

— लोगन

@Logern f (6,1) के लिए काम नहीं करता है

— क्लेब्लांक

@ceilingcat f (6,1) के लिए काम नहीं करता है

— क्लेब्लांक

2

05AB1E , 13 12 बाइट्स

ÐO5Qs`α5QrËO

इसे ऑनलाइन आज़माएं!

एक बाइट की बचत, पूर्णांक की सूची के रूप में इनपुट लेता है। धन्यवाद @ Wisław!

वैकल्पिक 12 बाइट उत्तर

Q¹²α5Q¹²+5QO

इसे ऑनलाइन आज़माएं!

यह एक अलग लाइनों पर इनपुट लेता है।

— काउबुनघोल
स्रोत

1

चूंकि यह बहुत स्पष्ट रूप से निर्दिष्ट नहीं है, क्या आप यह नहीं मान सकते हैं कि इनपुट पूर्णांक की एक सूची है, इस प्रकार प्रारंभिक को समाप्त कर सकता है |?

— विस्लोव

@ Wisław अच्छा बिंदु, मैंने अपना उत्तर अपडेट किया। धन्यवाद!

— काउबुनघोल

मैं एक 11 बाइट्स वैकल्पिक पाया OI`αª5¢IË~Ā:। इनपुट पूर्णांकों की एक सूची है।

— विस्लोव

1

OIÆÄ)5QIËMहै 10.

— मैजिक ऑक्टोपस यूरन

1

@MagicOctopusUrn मुझे यकीन नहीं है कि वास्तव में नियम क्या हैं, लेकिन मुझे लगता है कि आपका समाधान मेरा अपना जवाब प्रस्तुत करने के लिए खान से काफी अलग है, नहीं? इसके अलावा, असंबंधित लेकिन मैंने आपके उपयोगकर्ता नाम को इस साइट पर लंबे समय तक देखा है, लेकिन इसे टाइप करने के बाद ही मुझे पता चला कि यह "Urn" है, न कि "Um" :)

— काउबुनघोल

2

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.

स्टैक-ओनली ऑपरेशंस का उपयोग करके इसे करने की कोशिश की, लेकिन यह अधिक लंबा था।

— जादू ऑक्टोपस Urn
स्रोत

1

यह दुर्भाग्य से सच है अगर राशि 0इस तरह है[5, -5]

— एमिग्ना

1

आपका अन्य 10-बाइट समाधान जिसे आपने एक टिप्पणी के रूप में छोड़ दिया है ( OIÆÄ‚5QIËM) के लिए सही है [5,-5]।

— केविन क्रूज़सेन

एक और 10-बाइट समाधान है कि मैं के साथ आया है OsÆÄ‚5åsË~। लगभग ऐसा ही लगता है। इसे ऑनलाइन आज़माएं!

— विस्लोव

2

रूबी , 34 बाइट्स

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

ऑनलाइन साक्ष्य - धन्यवाद @ ASCII- केवल

— जतिन धनखड़
स्रोत

क्या आप जाँच करते हैं कि क्या वे बराबर हैं ...

— ASCII- केवल

उफ़, उस चेक को जोड़ना भूल गया। धन्यवाद @ ASCII- केवल गलती को इंगित करने के लिए।

— जतिन धनखड़

1

अगर आप इस से जुड़ सकते हैं तो मुझे अच्छा लगेगा

— ASCII- केवल

यह मान्य हो सकता है? हालांकि पूरी तरह से सुनिश्चित नहीं है, आप किसी और के साथ जांच कर सकते हैं

— एएससीआईआई-केवल

यह काम करेगा लेकिन इसके .nil?लिए आवश्यक प्रारूप में आउटपुट देने के लिए चेक की आवश्यकता होती है। ->(a,b){[a+5,a-5,5-a,a].index(b).nil?}, यह वर्तमान की तुलना में लंबा है।

— जतिन धनखड़

1

Tcl , 53 बाइट्स

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

इसे ऑनलाइन आज़माएं!

— sergiol
स्रोत

1

जाप , 14 13 बाइट्स

¥VªaU ¥5ª5¥Nx

इसे ऑनलाइन आज़माएं!

— ओलिवर
स्रोत

1

बैच, 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 आउटपुट देता है, विफलता पर कुछ भी नहीं। बैच आसानी से मतभेद नहीं कर सकता है इसलिए मैं डी मॉर्गन के कानूनों का उपयोग करके इसे एक संयोजन में बदल देता हूं।

— नील
स्रोत

1

चारकोल , 18 बाइट्स

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

इसे ऑनलाइन आज़माएं! लिंक कोड के वर्बोज़ संस्करण के लिए है। @ अरबो के पायथन 2 समाधान का पोर्ट।

— नील
स्रोत

1

जाप, 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

— झबरा
स्रोत

के लिए विफल रहता है [-5,5](फाल्सी होना चाहिए)

— केविन क्रूज़सेन

धन्यवाद, @ केविनक्रूजसेन पिछले संस्करण में वापस लुढ़का।

— झबरा

1

आम लिस्प, 48 बाइट्स

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

— कोर निपात
स्रोत

1

ब्रेकीलॉग , 8 बाइट्स

=|+5|-ȧ5

दो नंबरों की सूची के रूप में इनपुट लेता है ( _नकारात्मक के लिए उपयोग )। इसे ऑनलाइन आज़माएं!

व्याख्या

बहुत ज्यादा कल्पना का सीधा अनुवाद:

=          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

— DLosc
स्रोत

0

रेटिना 0.8.2 , 82 बाइट्स

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

इसे ऑनलाइन आज़माएं! लिंक में परीक्षण के मामले शामिल हैं। स्पष्टीकरण: पहली दो पंक्तियाँ इनपुट्स को एकात्मक में परिवर्तित करती हैं। अंतिम पंक्ति तब किसी भी अनुमति प्राप्त मैचों के लिए जाँच करती है:

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

— नील
स्रोत

समान, योग या अंतर!

अजगर २ , 30 बाइट्स

जावास्क्रिप्ट (ईएस 6), 28 बाइट्स

दिल्लोग एपीएल , 9 बाइट्स

x86 मशीन कोड, 39 बाइट्स

सभा

जे , 12 11 बाइट्स

व्याख्या

आर , 40 बाइट्स (या 34)

पायथन 2 , 29 31 बाइट्स

8086 मशीन कोड, 22 20 बाइट्स

जेली , 7 बाइट्स

यह काम किस प्रकार करता है

पायथन 2, 38 बाइट्स

जावा (JDK) , 30 बाइट्स

वोल्फ्राम भाषा (गणितज्ञ) , 22 बाइट्स

पावरशेल , 48 44 40 बाइट्स

पास्कल (FPC) ,26 70 बाइट्स

सी # (.NET कोर) , 43 , 48 , 47 , 33 बाइट्स

सी # (.NET कोर) , 33 बाइट्स

सी (जीसीसी) , 33 बाइट्स

स्काला, 43 बाइट्स

पर्ल 6 , 24 बाइट्स

स्पष्टीकरण:

सी (जीसीसी) , 41 34 बाइट्स

05AB1E , 13 12 बाइट्स

वैकल्पिक 12 बाइट उत्तर

05AB1E , 10 बाइट्स

रूबी , 34 बाइट्स

Tcl , 53 बाइट्स

जाप , 14 13 बाइट्स

बैच, 81 बाइट्स

चारकोल , 18 बाइट्स

जाप, 13 12 बाइट्स

आम लिस्प, 48 बाइट्स

ब्रेकीलॉग , 8 बाइट्स

व्याख्या

रेटिना 0.8.2 , 82 बाइट्स