Equal, sum or difference!
$begingroup$
Write shortest possible code that will return true if the two given integer values are equal or their sum or absolute difference is 5.
Example test cases:
4 1 => True
10 10 => True
1 3 => False
6 2 => False
1 6 => True
-256 -251 => True
6 1 => True
-5 5 => False
The shortest I could come up with in python2 is 56 characters long:
x=input();y=input();print all([x-y,x+y-5,abs(x-y)-5])<1
-9, thanks @ElPedro. It takes input in format x,y:
x,y=input();print all([x-y,x+y-5,abs(x-y)-5])<1
code-golf decision-problem
New contributor
$endgroup$
add a comment |
$begingroup$
Write shortest possible code that will return true if the two given integer values are equal or their sum or absolute difference is 5.
Example test cases:
4 1 => True
10 10 => True
1 3 => False
6 2 => False
1 6 => True
-256 -251 => True
6 1 => True
-5 5 => False
The shortest I could come up with in python2 is 56 characters long:
x=input();y=input();print all([x-y,x+y-5,abs(x-y)-5])<1
-9, thanks @ElPedro. It takes input in format x,y:
x,y=input();print all([x-y,x+y-5,abs(x-y)-5])<1
code-golf decision-problem
New contributor
$endgroup$
7
$begingroup$
welcome to PPCG! This is a good first challenge -- the challenge is clearly defined, it has ample test cases, and uses our default I/O! If you stick around for a while and keep thinking up interesting challenges, I would recommend using The Sandbox to get feedback before posting them to this site. I hope you enjoy the time you spend here!
$endgroup$
– Giuseppe
2 days ago
add a comment |
$begingroup$
Write shortest possible code that will return true if the two given integer values are equal or their sum or absolute difference is 5.
Example test cases:
4 1 => True
10 10 => True
1 3 => False
6 2 => False
1 6 => True
-256 -251 => True
6 1 => True
-5 5 => False
The shortest I could come up with in python2 is 56 characters long:
x=input();y=input();print all([x-y,x+y-5,abs(x-y)-5])<1
-9, thanks @ElPedro. It takes input in format x,y:
x,y=input();print all([x-y,x+y-5,abs(x-y)-5])<1
code-golf decision-problem
New contributor
$endgroup$
Write shortest possible code that will return true if the two given integer values are equal or their sum or absolute difference is 5.
Example test cases:
4 1 => True
10 10 => True
1 3 => False
6 2 => False
1 6 => True
-256 -251 => True
6 1 => True
-5 5 => False
The shortest I could come up with in python2 is 56 characters long:
x=input();y=input();print all([x-y,x+y-5,abs(x-y)-5])<1
-9, thanks @ElPedro. It takes input in format x,y:
x,y=input();print all([x-y,x+y-5,abs(x-y)-5])<1
code-golf decision-problem
code-golf decision-problem
New contributor
New contributor
edited yesterday
Vikrant Biswas
New contributor
asked 2 days ago
Vikrant BiswasVikrant Biswas
13916
13916
New contributor
New contributor
7
$begingroup$
welcome to PPCG! This is a good first challenge -- the challenge is clearly defined, it has ample test cases, and uses our default I/O! If you stick around for a while and keep thinking up interesting challenges, I would recommend using The Sandbox to get feedback before posting them to this site. I hope you enjoy the time you spend here!
$endgroup$
– Giuseppe
2 days ago
add a comment |
7
$begingroup$
welcome to PPCG! This is a good first challenge -- the challenge is clearly defined, it has ample test cases, and uses our default I/O! If you stick around for a while and keep thinking up interesting challenges, I would recommend using The Sandbox to get feedback before posting them to this site. I hope you enjoy the time you spend here!
$endgroup$
– Giuseppe
2 days ago
7
7
$begingroup$
welcome to PPCG! This is a good first challenge -- the challenge is clearly defined, it has ample test cases, and uses our default I/O! If you stick around for a while and keep thinking up interesting challenges, I would recommend using The Sandbox to get feedback before posting them to this site. I hope you enjoy the time you spend here!
$endgroup$
– Giuseppe
2 days ago
$begingroup$
welcome to PPCG! This is a good first challenge -- the challenge is clearly defined, it has ample test cases, and uses our default I/O! If you stick around for a while and keep thinking up interesting challenges, I would recommend using The Sandbox to get feedback before posting them to this site. I hope you enjoy the time you spend here!
$endgroup$
– Giuseppe
2 days ago
add a comment |
31 Answers
31
active
oldest
votes
1 2
next
$begingroup$
Python 2, 30 bytes
lambda a,b:a in(b,5-b,b-5,b+5)
Try it online!
One byte saved by Arnauld
Three bytes saved by alephalpha
$endgroup$
$begingroup$
This is amazingly concise, thanks
$endgroup$
– Vikrant Biswas
2 days ago
$begingroup$
Same can be done in Octave/MATLAB in 29 bytes (Try it online!).
$endgroup$
– Tom Carpenter
yesterday
add a comment |
$begingroup$
JavaScript (ES6), 28 bytes
Takes input as (a)(b)
. Returns $0$ or $1$.
a=>b=>a+b==5|!(a-=b)|a*a==25
Try it online!
$endgroup$
$begingroup$
Damn, took me a long long time to figure out how this handling the difference part. :)
$endgroup$
– Vikrant Biswas
2 days ago
add a comment |
$begingroup$
Dyalog APL, 9 bytes
=∨5∊+,∘|-
Try it online!
Spelled out:
= ∨ 5 ∊ + , ∘ | -
equal or 5 found in an array of sum and absolute of difference.
$endgroup$
add a comment |
$begingroup$
x86 machine code, 39 bytes
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..
Assembly
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
Try it online!
$endgroup$
add a comment |
$begingroup$
R, 40 bytes (or 34)
function(x,y)any((-1:1*5)%in%c(x+y,x-y))
Try it online!
For non-R users:
-1:1*5
expands to[-5, 0, 5]
- the
%in%
operator takes elements from the left and checks (element-wise) if they exist in the vector on the right
A direct port of @ArBo's solution has 35 34 bytes, so go upvote that answer if you like it:
function(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
$begingroup$
The 34 byte one can be reduced by 1 withfunction(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
– MickyT
2 days ago
$begingroup$
Can drop to 30 bytes by moving the subtraction:function(x,y)(x-y)%in%(-1:1*5)
, and drop it further to 24 bytes by dropping the function notation toscan()
input:diff(scan())%in%(-1:1*5)
Try it online!. Still very much the same method though.
$endgroup$
– CriminallyVulgar
yesterday
1
$begingroup$
@CriminallyVulgar does that account for the sum being 5?
$endgroup$
– ArBo
yesterday
$begingroup$
@ArBo Hah, missed that in the spec, and there wasn't a test case in the TIO so I just glossed over it!
$endgroup$
– CriminallyVulgar
12 hours ago
$begingroup$
Minor change that can be made to both is to usepryr::f
, which happens to work in both cases. Whether it can properly detect the arguments is entirely somewhat hit or miss but it seems to nail these two functions. e.g.pryr::f(x%in%c(y--1:1*5,5-y))
Try it online!. Gets you to 36 and 29 bytes respectively.
$endgroup$
– CriminallyVulgar
5 hours ago
add a comment |
$begingroup$
Jelly, 7 bytes
+,ạ5eo=
Try it online!
How it works
+,ạ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.
$endgroup$
add a comment |
$begingroup$
J, 12 11 bytes
1 byte saved thanks to Adám
1#.=+5=|@-,+
Try it online!
Explanation
This is equivalent to:
1 #. = + 5 = |@- , +
This can be divided into the following fork chain:
(= + (5 e. (|@- , +)))
Or, visualized using 5!:4<'f'
:
┌─ =
├─ +
──┤ ┌─ 5
│ ├─ e.
└───┤ ┌─ |
│ ┌─ @ ─┴─ -
└────┼─ ,
└─ +
Annotated:
┌─ = equality
├─ + added to (boolean or)
──┤ ┌─ 5 noun 5
│ ├─ e. is an element of
└───┤ ┌─ | absolute value |
│ ┌─ @ ─┴─ - (of) subtraction |
└────┼─ , paired with |
└─ + addition | any of these?
$endgroup$
$begingroup$
Save a byte withe.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám How so? Shortest approach I got withe.
was=+.5 e.|@-,+
. Maybe you forget5e.
is an invalid token in J?
$endgroup$
– Conor O'Brien
2 days ago
$begingroup$
Since two integers cannot simultaneously sum to 5 and be equal, you can use+
instead of+.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám Ah, I see, thank you.
$endgroup$
– Conor O'Brien
2 days ago
add a comment |
$begingroup$
Python 2, 38 bytes
-2 bytes thanks to @DjMcMayhem
lambda a,b:a+b==5or abs(a-b)==5or a==b
Try it online!
$endgroup$
$begingroup$
Your TIO is actually 42 bytes but you can fix it by deleting the spaces between the5
s and theor
s
$endgroup$
– ElPedro
2 days ago
3
$begingroup$
Actually, the TIO link could be 38 bytes
$endgroup$
– DJMcMayhem♦
2 days ago
$begingroup$
@ElPedro the function itself was 40 bytes but I used f= in order to be able to call it
$endgroup$
– fəˈnɛtɪk
2 days ago
1
$begingroup$
@DJMcMayhem I don't normally golf in python. I just did it because the question asker used python for their example
$endgroup$
– fəˈnɛtɪk
2 days ago
add a comment |
$begingroup$
Java (JDK), 30 bytes
a->b->a+b==5|a==b|(b-=a)*b==25
Try it online!
$endgroup$
add a comment |
$begingroup$
Wolfram Language (Mathematica), 22 bytes
Takes input as [a][b]
.
MatchQ[#|5-#|#-5|#+5]&
Try it online!
$endgroup$
add a comment |
$begingroup$
Python 2, 29 31 bytes
lambda a,b:a+b==5or`a-b`in"0-5"
Try it online!
Since I didn't manage to read the task carefully the first time, in order to fix it, I had to come up with a completely different approach, which is unfortunately not as concise.
$endgroup$
add a comment |
$begingroup$
PowerShell, 48 44 40 bytes
param($a,$b)$b-in($a-5),(5-$a),(5+$a),$a
Try it online! or Verify all Test Cases
Takes input $a
and $b
. Checks if $b
is -in
the group ($a-5
, 5-$a
5+$a
, or $a
), which checks all possible combinations of $a
,$b
, and 5
.
-4 bytes thanks to mazzy.
-4 bytes thanks to KGlasier.
$endgroup$
$begingroup$
($a-$b)
is-$x
:)
$endgroup$
– mazzy
2 days ago
$begingroup$
@mazzy Ooo, good call.
$endgroup$
– AdmBorkBork
2 days ago
$begingroup$
If you switch5
and$b
around you can cut off a couple bytes(ieparam($a,$b)$b-in($a-5),(5-$a),($a+5),$a
) Try it out here
$endgroup$
– KGlasier
yesterday
1
$begingroup$
@KGlasier Excellent suggestion. I needed to swap$a+5
to5+$a
to get it to cast appropriately when taking command-line input, but otherwise awesome. Thanks!
$endgroup$
– AdmBorkBork
yesterday
add a comment |
$begingroup$
8086 machine code, 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
Input numbers in AX and BX and returns Zero Flag (ZF=1) if result is true. If desired, you can also determine which condition was true with the following:
- ZF = 1 and DX = 5 ; sum is 5
- ZF = 1 and AX = 5 ; diff is 5
- ZF = 1 and AX = 0 ; equal
- ZF = 0 ; result false
If the difference between the numbers is 0, we know they are equal. Otherwise if result is negative, then first negate it and then check for 5. If still not true, then add and check for 5.
Sample PC DOS test program. Download it here (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
Output of test program:
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
$endgroup$
add a comment |
$begingroup$
C# (.NET Core), 43, 48, 47, 33 bytes
EDIT: Tried to use % and apparently forgot how to %. Thanks to Arnauld for pointing that out!
EDIT2: AdmBorkBork with a -1 byte golf rearranging the parentheses to sit next to the return so no additional space is needed!
EDIT3: Thanks to dana for -14 byte golf for the one-line return shortcut and currying the function (Ty Embodiment of Ignorance for linking to TIO).
C# (.NET Core), 33 bytes
a=>b=>a==b|a+b==5|(a-b)*(a-b)==25
Try it online!
$endgroup$
$begingroup$
Bah. Trying to avoid System.Math. Back to it! Thanks for pointing that out :D
$endgroup$
– Destroigo
2 days ago
1
$begingroup$
You can get it down to 33 bytes applying dana's tips
$endgroup$
– Embodiment of Ignorance
2 days ago
add a comment |
$begingroup$
C (gcc), 33 bytes
f(a,b){a=!(a+b-5&&(a-=b)/6|a%5);}
Try it online!
Tried an approach I didn't see anyone else try using. The return expression is equivalent to a+b==5||((-6<a-b||a-b<6)&&(a-b)%5==0)
.
$endgroup$
add a comment |
$begingroup$
Scala, 43 bytes
def f(a:Int,b:Int)=a+b==5|(a-b).abs==5|a==b
Try it online!
$endgroup$
$begingroup$
Isn't it possible to golf the||
to|
? I know it's possible in Java, C#, Python, or JavaScript, but not sure about Scala.
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Actually yes! thanks
$endgroup$
– Xavier Guihot
yesterday
add a comment |
$begingroup$
Perl 6, 24 bytes
-1 byte thanks to Grimy
{$^a-$^b==5|0|-5|5-2*$b}
Try it online!
This uses the Any Junction but technically, ^
could work as well.
Explanation:
{ } # Anonymous code block
$^a-$^b== # Is the difference equal to
| | | # Any of
0
5
-5
5-2*$b
$endgroup$
1
$begingroup$
-1 byte with{$^a-$^b==5|0|-5|5-2*$b}
$endgroup$
– Grimy
yesterday
add a comment |
$begingroup$
Python 2, 25 bytes
lambda a,b:(a*a-b*b)%5==0
Try it online!
New contributor
$endgroup$
$begingroup$
Welcome to PPCG! Your answer currently doesn't check if the sum is 5. The first test case should return true.
$endgroup$
– Dennis♦
19 hours ago
$begingroup$
Thank you Dennis!
$endgroup$
– granstarferro
15 hours ago
2
$begingroup$
%5==0
only checks for divisibility by 5. Your approach fails the-5 5 => False
test case now, which has a difference of 10.
$endgroup$
– Dennis♦
8 hours ago
add a comment |
$begingroup$
C (gcc), 41 34 bytes
f(a,b){a=5==abs(a-b)|a+b==5|a==b;}
Try it online!
$endgroup$
1
$begingroup$
Why doesf
returna
? Just some Undefined Behavior?
$endgroup$
– Tyilo
2 days ago
$begingroup$
@Tyilo Yes, it's implementation specific. So happens the first parameter is stored in the same register as the return value.
$endgroup$
– cleblanc
2 days ago
$begingroup$
30 bytes Try it online!
$endgroup$
– Logern
2 days ago
$begingroup$
@Logern Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
$begingroup$
@ceilingcat Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
|
show 2 more comments
$begingroup$
Tcl, 53 bytes
proc P a b {expr abs($a-$b)==5|$a==$b|abs($a+$b)==5}
Try it online!
$endgroup$
add a comment |
$begingroup$
Japt, 14 13 bytes
¥VªaU ¥5ª5¥Nx
Try it online!
$endgroup$
add a comment |
$begingroup$
05AB1E, 13 12 bytes
ÐO5Qs`α5QrËO
Try it online!
Takes input as a list of integers, saving one byte. Thanks @Wisław!
Alternate 12 byte answer
Q¹²α5Q¹²+5QO
Try it online!
This one takes input on separate lines.
$endgroup$
1
$begingroup$
Since it is not very clearly specified, can you not assume the input is a list of integers, thus eliminating the initial|
?
$endgroup$
– Wisław
2 days ago
$begingroup$
@Wisław Good point, I updated my answer. Thanks!
$endgroup$
– Cowabunghole
2 days ago
$begingroup$
I found a 11 bytes alternative:OI`αª5¢IË~Ā
. Input is a list of integers.
$endgroup$
– Wisław
2 days ago
1
$begingroup$
OIÆÄ)5QIËM
is 10.
$endgroup$
– Magic Octopus Urn
2 days ago
1
$begingroup$
@MagicOctopusUrn I'm not sure exactly what the rules are but I think your solution is different enough from mine to submit your own answer, no? Also, unrelated but I've seen your username on this site for a long time but only after typing it out did I realize that it's "Urn", not "Um" :)
$endgroup$
– Cowabunghole
2 days ago
|
show 2 more comments
$begingroup$
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
Takes input as command-line arguments and outputs 1 on success, nothing on failure. Batch can't easily do disjunctions so I use De Morgan's laws to turn it into a conjunction.
$endgroup$
add a comment |
$begingroup$
05AB1E, 10 bytes
OIÆ‚Ä50SåZ
Try it 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.
Tried to do it using stack-only operations, but it was longer.
$endgroup$
1
$begingroup$
This will unfortunately return true if the sum is0
such as for[5, -5]
$endgroup$
– Emigna
2 days ago
1
$begingroup$
Your other 10-byte solution that you left as a comment (OIÆÄ‚5QIËM
) is correct for[5,-5]
.
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Another 10-byte solution that I came up with isOsÆÄ‚5åsË~
. Almost identical to yours it seems. Try it online!
$endgroup$
– Wisław
yesterday
add a comment |
$begingroup$
Charcoal, 18 bytes
Nθ¿№⟦θ⁺⁵θ⁻⁵θ⁻θ⁵⟧N1
Try it online! Link is to verbose version of code. Port of @ArBo's Python 2 solution.
$endgroup$
add a comment |
$begingroup$
Japt, 13 12 bytes
x ¥5|50ìøUra
Try it or run all test cases
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
$endgroup$
$begingroup$
Fails for[-5,5]
(should be falsey)
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Thanks, @KevinCruijssen. Rolled back to the previous version.
$endgroup$
– Shaggy
yesterday
add a comment |
$begingroup$
Common Lisp, 48 bytes
(lambda(a b)(find 5(list(abs(- b a))a(+ a b)b)))
$endgroup$
add a comment |
$begingroup$
Runic Enchantments, 30 bytes
i::i::}3s=?!@-'|A"5"n:}=?!@+=@
Try it online!
With a pending update, 4 bytes can be saved, as presently integer inputs are treated as doubles and don't equal integers of the same value. Hence "5"n
instead of just 5
. This was an oversight and several factors are being adjusted to account for it (such as using Approximately(a, b)
instead of a.Equals(b)
).
Outputs 0
(exactly one zero) for false and any other output (literally whatever is left on the stack) for true.
$endgroup$
add a comment |
$begingroup$
Retina 0.8.2, 82 bytes
d+
$*
^(-?1*) 1$|^(-?1*)1{5} -?2$|^-?(-?1*) (3)1{5}$|^-?(1 ?){5}$|^(1 ?-?){5}$
Try it online! Link includes test cases. Explanation: The first two lines convert the inputs into unary. The final line then checks for any of the permitted matches:
^(-?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
Pivoted by the last column we get:
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$
$endgroup$
add a comment |
$begingroup$
Perl 5, 51 bytes
Pretty simple really, uses the an
flags for input. Outputs 0 for false, 1 for true. Not gonna lie, I don't know if bitwise OR is appropriate here, but is does work for all the test cases, so that's nice.
($a,$b)=@F;print($a==$b|$a+$b==5|$a-$b==5|$b-$a==5)
Try it online!
$endgroup$
1
$begingroup$
bitwise OR is equivalent to logical OR when operating on one-bit values. In general, if passed a truthy arguments bitwise OR will return truthy, and if passed two falsy arguments bitwise OR will return 0.
$endgroup$
– attinat
16 hours ago
add a comment |
1 2
next
Your Answer
StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["\$", "\$"]]);
});
});
}, "mathjax-editing");
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "200"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Vikrant Biswas is a new contributor. Be nice, and check out our Code of Conduct.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodegolf.stackexchange.com%2fquestions%2f178792%2fequal-sum-or-difference%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
31 Answers
31
active
oldest
votes
31 Answers
31
active
oldest
votes
active
oldest
votes
active
oldest
votes
1 2
next
$begingroup$
Python 2, 30 bytes
lambda a,b:a in(b,5-b,b-5,b+5)
Try it online!
One byte saved by Arnauld
Three bytes saved by alephalpha
$endgroup$
$begingroup$
This is amazingly concise, thanks
$endgroup$
– Vikrant Biswas
2 days ago
$begingroup$
Same can be done in Octave/MATLAB in 29 bytes (Try it online!).
$endgroup$
– Tom Carpenter
yesterday
add a comment |
$begingroup$
Python 2, 30 bytes
lambda a,b:a in(b,5-b,b-5,b+5)
Try it online!
One byte saved by Arnauld
Three bytes saved by alephalpha
$endgroup$
$begingroup$
This is amazingly concise, thanks
$endgroup$
– Vikrant Biswas
2 days ago
$begingroup$
Same can be done in Octave/MATLAB in 29 bytes (Try it online!).
$endgroup$
– Tom Carpenter
yesterday
add a comment |
$begingroup$
Python 2, 30 bytes
lambda a,b:a in(b,5-b,b-5,b+5)
Try it online!
One byte saved by Arnauld
Three bytes saved by alephalpha
$endgroup$
Python 2, 30 bytes
lambda a,b:a in(b,5-b,b-5,b+5)
Try it online!
One byte saved by Arnauld
Three bytes saved by alephalpha
edited 2 days ago
answered 2 days ago
ArBoArBo
30115
30115
$begingroup$
This is amazingly concise, thanks
$endgroup$
– Vikrant Biswas
2 days ago
$begingroup$
Same can be done in Octave/MATLAB in 29 bytes (Try it online!).
$endgroup$
– Tom Carpenter
yesterday
add a comment |
$begingroup$
This is amazingly concise, thanks
$endgroup$
– Vikrant Biswas
2 days ago
$begingroup$
Same can be done in Octave/MATLAB in 29 bytes (Try it online!).
$endgroup$
– Tom Carpenter
yesterday
$begingroup$
This is amazingly concise, thanks
$endgroup$
– Vikrant Biswas
2 days ago
$begingroup$
This is amazingly concise, thanks
$endgroup$
– Vikrant Biswas
2 days ago
$begingroup$
Same can be done in Octave/MATLAB in 29 bytes (Try it online!).
$endgroup$
– Tom Carpenter
yesterday
$begingroup$
Same can be done in Octave/MATLAB in 29 bytes (Try it online!).
$endgroup$
– Tom Carpenter
yesterday
add a comment |
$begingroup$
JavaScript (ES6), 28 bytes
Takes input as (a)(b)
. Returns $0$ or $1$.
a=>b=>a+b==5|!(a-=b)|a*a==25
Try it online!
$endgroup$
$begingroup$
Damn, took me a long long time to figure out how this handling the difference part. :)
$endgroup$
– Vikrant Biswas
2 days ago
add a comment |
$begingroup$
JavaScript (ES6), 28 bytes
Takes input as (a)(b)
. Returns $0$ or $1$.
a=>b=>a+b==5|!(a-=b)|a*a==25
Try it online!
$endgroup$
$begingroup$
Damn, took me a long long time to figure out how this handling the difference part. :)
$endgroup$
– Vikrant Biswas
2 days ago
add a comment |
$begingroup$
JavaScript (ES6), 28 bytes
Takes input as (a)(b)
. Returns $0$ or $1$.
a=>b=>a+b==5|!(a-=b)|a*a==25
Try it online!
$endgroup$
JavaScript (ES6), 28 bytes
Takes input as (a)(b)
. Returns $0$ or $1$.
a=>b=>a+b==5|!(a-=b)|a*a==25
Try it online!
edited 2 days ago
answered 2 days ago
ArnauldArnauld
73.5k689309
73.5k689309
$begingroup$
Damn, took me a long long time to figure out how this handling the difference part. :)
$endgroup$
– Vikrant Biswas
2 days ago
add a comment |
$begingroup$
Damn, took me a long long time to figure out how this handling the difference part. :)
$endgroup$
– Vikrant Biswas
2 days ago
$begingroup$
Damn, took me a long long time to figure out how this handling the difference part. :)
$endgroup$
– Vikrant Biswas
2 days ago
$begingroup$
Damn, took me a long long time to figure out how this handling the difference part. :)
$endgroup$
– Vikrant Biswas
2 days ago
add a comment |
$begingroup$
Dyalog APL, 9 bytes
=∨5∊+,∘|-
Try it online!
Spelled out:
= ∨ 5 ∊ + , ∘ | -
equal or 5 found in an array of sum and absolute of difference.
$endgroup$
add a comment |
$begingroup$
Dyalog APL, 9 bytes
=∨5∊+,∘|-
Try it online!
Spelled out:
= ∨ 5 ∊ + , ∘ | -
equal or 5 found in an array of sum and absolute of difference.
$endgroup$
add a comment |
$begingroup$
Dyalog APL, 9 bytes
=∨5∊+,∘|-
Try it online!
Spelled out:
= ∨ 5 ∊ + , ∘ | -
equal or 5 found in an array of sum and absolute of difference.
$endgroup$
Dyalog APL, 9 bytes
=∨5∊+,∘|-
Try it online!
Spelled out:
= ∨ 5 ∊ + , ∘ | -
equal or 5 found in an array of sum and absolute of difference.
edited 2 days ago
answered 2 days ago
dzaimadzaima
14.6k21755
14.6k21755
add a comment |
add a comment |
$begingroup$
x86 machine code, 39 bytes
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..
Assembly
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
Try it online!
$endgroup$
add a comment |
$begingroup$
x86 machine code, 39 bytes
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..
Assembly
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
Try it online!
$endgroup$
add a comment |
$begingroup$
x86 machine code, 39 bytes
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..
Assembly
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
Try it online!
$endgroup$
x86 machine code, 39 bytes
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..
Assembly
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
Try it online!
answered 2 days ago
LogernLogern
78546
78546
add a comment |
add a comment |
$begingroup$
R, 40 bytes (or 34)
function(x,y)any((-1:1*5)%in%c(x+y,x-y))
Try it online!
For non-R users:
-1:1*5
expands to[-5, 0, 5]
- the
%in%
operator takes elements from the left and checks (element-wise) if they exist in the vector on the right
A direct port of @ArBo's solution has 35 34 bytes, so go upvote that answer if you like it:
function(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
$begingroup$
The 34 byte one can be reduced by 1 withfunction(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
– MickyT
2 days ago
$begingroup$
Can drop to 30 bytes by moving the subtraction:function(x,y)(x-y)%in%(-1:1*5)
, and drop it further to 24 bytes by dropping the function notation toscan()
input:diff(scan())%in%(-1:1*5)
Try it online!. Still very much the same method though.
$endgroup$
– CriminallyVulgar
yesterday
1
$begingroup$
@CriminallyVulgar does that account for the sum being 5?
$endgroup$
– ArBo
yesterday
$begingroup$
@ArBo Hah, missed that in the spec, and there wasn't a test case in the TIO so I just glossed over it!
$endgroup$
– CriminallyVulgar
12 hours ago
$begingroup$
Minor change that can be made to both is to usepryr::f
, which happens to work in both cases. Whether it can properly detect the arguments is entirely somewhat hit or miss but it seems to nail these two functions. e.g.pryr::f(x%in%c(y--1:1*5,5-y))
Try it online!. Gets you to 36 and 29 bytes respectively.
$endgroup$
– CriminallyVulgar
5 hours ago
add a comment |
$begingroup$
R, 40 bytes (or 34)
function(x,y)any((-1:1*5)%in%c(x+y,x-y))
Try it online!
For non-R users:
-1:1*5
expands to[-5, 0, 5]
- the
%in%
operator takes elements from the left and checks (element-wise) if they exist in the vector on the right
A direct port of @ArBo's solution has 35 34 bytes, so go upvote that answer if you like it:
function(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
$begingroup$
The 34 byte one can be reduced by 1 withfunction(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
– MickyT
2 days ago
$begingroup$
Can drop to 30 bytes by moving the subtraction:function(x,y)(x-y)%in%(-1:1*5)
, and drop it further to 24 bytes by dropping the function notation toscan()
input:diff(scan())%in%(-1:1*5)
Try it online!. Still very much the same method though.
$endgroup$
– CriminallyVulgar
yesterday
1
$begingroup$
@CriminallyVulgar does that account for the sum being 5?
$endgroup$
– ArBo
yesterday
$begingroup$
@ArBo Hah, missed that in the spec, and there wasn't a test case in the TIO so I just glossed over it!
$endgroup$
– CriminallyVulgar
12 hours ago
$begingroup$
Minor change that can be made to both is to usepryr::f
, which happens to work in both cases. Whether it can properly detect the arguments is entirely somewhat hit or miss but it seems to nail these two functions. e.g.pryr::f(x%in%c(y--1:1*5,5-y))
Try it online!. Gets you to 36 and 29 bytes respectively.
$endgroup$
– CriminallyVulgar
5 hours ago
add a comment |
$begingroup$
R, 40 bytes (or 34)
function(x,y)any((-1:1*5)%in%c(x+y,x-y))
Try it online!
For non-R users:
-1:1*5
expands to[-5, 0, 5]
- the
%in%
operator takes elements from the left and checks (element-wise) if they exist in the vector on the right
A direct port of @ArBo's solution has 35 34 bytes, so go upvote that answer if you like it:
function(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
R, 40 bytes (or 34)
function(x,y)any((-1:1*5)%in%c(x+y,x-y))
Try it online!
For non-R users:
-1:1*5
expands to[-5, 0, 5]
- the
%in%
operator takes elements from the left and checks (element-wise) if they exist in the vector on the right
A direct port of @ArBo's solution has 35 34 bytes, so go upvote that answer if you like it:
function(x,y)x%in%c(y--1:1*5,5-y)
edited 2 days ago
answered 2 days ago
ngmngm
3,33924
3,33924
$begingroup$
The 34 byte one can be reduced by 1 withfunction(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
– MickyT
2 days ago
$begingroup$
Can drop to 30 bytes by moving the subtraction:function(x,y)(x-y)%in%(-1:1*5)
, and drop it further to 24 bytes by dropping the function notation toscan()
input:diff(scan())%in%(-1:1*5)
Try it online!. Still very much the same method though.
$endgroup$
– CriminallyVulgar
yesterday
1
$begingroup$
@CriminallyVulgar does that account for the sum being 5?
$endgroup$
– ArBo
yesterday
$begingroup$
@ArBo Hah, missed that in the spec, and there wasn't a test case in the TIO so I just glossed over it!
$endgroup$
– CriminallyVulgar
12 hours ago
$begingroup$
Minor change that can be made to both is to usepryr::f
, which happens to work in both cases. Whether it can properly detect the arguments is entirely somewhat hit or miss but it seems to nail these two functions. e.g.pryr::f(x%in%c(y--1:1*5,5-y))
Try it online!. Gets you to 36 and 29 bytes respectively.
$endgroup$
– CriminallyVulgar
5 hours ago
add a comment |
$begingroup$
The 34 byte one can be reduced by 1 withfunction(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
– MickyT
2 days ago
$begingroup$
Can drop to 30 bytes by moving the subtraction:function(x,y)(x-y)%in%(-1:1*5)
, and drop it further to 24 bytes by dropping the function notation toscan()
input:diff(scan())%in%(-1:1*5)
Try it online!. Still very much the same method though.
$endgroup$
– CriminallyVulgar
yesterday
1
$begingroup$
@CriminallyVulgar does that account for the sum being 5?
$endgroup$
– ArBo
yesterday
$begingroup$
@ArBo Hah, missed that in the spec, and there wasn't a test case in the TIO so I just glossed over it!
$endgroup$
– CriminallyVulgar
12 hours ago
$begingroup$
Minor change that can be made to both is to usepryr::f
, which happens to work in both cases. Whether it can properly detect the arguments is entirely somewhat hit or miss but it seems to nail these two functions. e.g.pryr::f(x%in%c(y--1:1*5,5-y))
Try it online!. Gets you to 36 and 29 bytes respectively.
$endgroup$
– CriminallyVulgar
5 hours ago
$begingroup$
The 34 byte one can be reduced by 1 with
function(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
– MickyT
2 days ago
$begingroup$
The 34 byte one can be reduced by 1 with
function(x,y)x%in%c(y--1:1*5,5-y)
$endgroup$
– MickyT
2 days ago
$begingroup$
Can drop to 30 bytes by moving the subtraction:
function(x,y)(x-y)%in%(-1:1*5)
, and drop it further to 24 bytes by dropping the function notation to scan()
input: diff(scan())%in%(-1:1*5)
Try it online!. Still very much the same method though.$endgroup$
– CriminallyVulgar
yesterday
$begingroup$
Can drop to 30 bytes by moving the subtraction:
function(x,y)(x-y)%in%(-1:1*5)
, and drop it further to 24 bytes by dropping the function notation to scan()
input: diff(scan())%in%(-1:1*5)
Try it online!. Still very much the same method though.$endgroup$
– CriminallyVulgar
yesterday
1
1
$begingroup$
@CriminallyVulgar does that account for the sum being 5?
$endgroup$
– ArBo
yesterday
$begingroup$
@CriminallyVulgar does that account for the sum being 5?
$endgroup$
– ArBo
yesterday
$begingroup$
@ArBo Hah, missed that in the spec, and there wasn't a test case in the TIO so I just glossed over it!
$endgroup$
– CriminallyVulgar
12 hours ago
$begingroup$
@ArBo Hah, missed that in the spec, and there wasn't a test case in the TIO so I just glossed over it!
$endgroup$
– CriminallyVulgar
12 hours ago
$begingroup$
Minor change that can be made to both is to use
pryr::f
, which happens to work in both cases. Whether it can properly detect the arguments is entirely somewhat hit or miss but it seems to nail these two functions. e.g. pryr::f(x%in%c(y--1:1*5,5-y))
Try it online!. Gets you to 36 and 29 bytes respectively.$endgroup$
– CriminallyVulgar
5 hours ago
$begingroup$
Minor change that can be made to both is to use
pryr::f
, which happens to work in both cases. Whether it can properly detect the arguments is entirely somewhat hit or miss but it seems to nail these two functions. e.g. pryr::f(x%in%c(y--1:1*5,5-y))
Try it online!. Gets you to 36 and 29 bytes respectively.$endgroup$
– CriminallyVulgar
5 hours ago
add a comment |
$begingroup$
Jelly, 7 bytes
+,ạ5eo=
Try it online!
How it works
+,ạ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.
$endgroup$
add a comment |
$begingroup$
Jelly, 7 bytes
+,ạ5eo=
Try it online!
How it works
+,ạ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.
$endgroup$
add a comment |
$begingroup$
Jelly, 7 bytes
+,ạ5eo=
Try it online!
How it works
+,ạ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.
$endgroup$
Jelly, 7 bytes
+,ạ5eo=
Try it online!
How it works
+,ạ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.
answered 2 days ago
Dennis♦Dennis
187k32297737
187k32297737
add a comment |
add a comment |
$begingroup$
J, 12 11 bytes
1 byte saved thanks to Adám
1#.=+5=|@-,+
Try it online!
Explanation
This is equivalent to:
1 #. = + 5 = |@- , +
This can be divided into the following fork chain:
(= + (5 e. (|@- , +)))
Or, visualized using 5!:4<'f'
:
┌─ =
├─ +
──┤ ┌─ 5
│ ├─ e.
└───┤ ┌─ |
│ ┌─ @ ─┴─ -
└────┼─ ,
└─ +
Annotated:
┌─ = equality
├─ + added to (boolean or)
──┤ ┌─ 5 noun 5
│ ├─ e. is an element of
└───┤ ┌─ | absolute value |
│ ┌─ @ ─┴─ - (of) subtraction |
└────┼─ , paired with |
└─ + addition | any of these?
$endgroup$
$begingroup$
Save a byte withe.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám How so? Shortest approach I got withe.
was=+.5 e.|@-,+
. Maybe you forget5e.
is an invalid token in J?
$endgroup$
– Conor O'Brien
2 days ago
$begingroup$
Since two integers cannot simultaneously sum to 5 and be equal, you can use+
instead of+.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám Ah, I see, thank you.
$endgroup$
– Conor O'Brien
2 days ago
add a comment |
$begingroup$
J, 12 11 bytes
1 byte saved thanks to Adám
1#.=+5=|@-,+
Try it online!
Explanation
This is equivalent to:
1 #. = + 5 = |@- , +
This can be divided into the following fork chain:
(= + (5 e. (|@- , +)))
Or, visualized using 5!:4<'f'
:
┌─ =
├─ +
──┤ ┌─ 5
│ ├─ e.
└───┤ ┌─ |
│ ┌─ @ ─┴─ -
└────┼─ ,
└─ +
Annotated:
┌─ = equality
├─ + added to (boolean or)
──┤ ┌─ 5 noun 5
│ ├─ e. is an element of
└───┤ ┌─ | absolute value |
│ ┌─ @ ─┴─ - (of) subtraction |
└────┼─ , paired with |
└─ + addition | any of these?
$endgroup$
$begingroup$
Save a byte withe.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám How so? Shortest approach I got withe.
was=+.5 e.|@-,+
. Maybe you forget5e.
is an invalid token in J?
$endgroup$
– Conor O'Brien
2 days ago
$begingroup$
Since two integers cannot simultaneously sum to 5 and be equal, you can use+
instead of+.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám Ah, I see, thank you.
$endgroup$
– Conor O'Brien
2 days ago
add a comment |
$begingroup$
J, 12 11 bytes
1 byte saved thanks to Adám
1#.=+5=|@-,+
Try it online!
Explanation
This is equivalent to:
1 #. = + 5 = |@- , +
This can be divided into the following fork chain:
(= + (5 e. (|@- , +)))
Or, visualized using 5!:4<'f'
:
┌─ =
├─ +
──┤ ┌─ 5
│ ├─ e.
└───┤ ┌─ |
│ ┌─ @ ─┴─ -
└────┼─ ,
└─ +
Annotated:
┌─ = equality
├─ + added to (boolean or)
──┤ ┌─ 5 noun 5
│ ├─ e. is an element of
└───┤ ┌─ | absolute value |
│ ┌─ @ ─┴─ - (of) subtraction |
└────┼─ , paired with |
└─ + addition | any of these?
$endgroup$
J, 12 11 bytes
1 byte saved thanks to Adám
1#.=+5=|@-,+
Try it online!
Explanation
This is equivalent to:
1 #. = + 5 = |@- , +
This can be divided into the following fork chain:
(= + (5 e. (|@- , +)))
Or, visualized using 5!:4<'f'
:
┌─ =
├─ +
──┤ ┌─ 5
│ ├─ e.
└───┤ ┌─ |
│ ┌─ @ ─┴─ -
└────┼─ ,
└─ +
Annotated:
┌─ = equality
├─ + added to (boolean or)
──┤ ┌─ 5 noun 5
│ ├─ e. is an element of
└───┤ ┌─ | absolute value |
│ ┌─ @ ─┴─ - (of) subtraction |
└────┼─ , paired with |
└─ + addition | any of these?
edited 2 days ago
answered 2 days ago
Conor O'BrienConor O'Brien
29.2k263162
29.2k263162
$begingroup$
Save a byte withe.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám How so? Shortest approach I got withe.
was=+.5 e.|@-,+
. Maybe you forget5e.
is an invalid token in J?
$endgroup$
– Conor O'Brien
2 days ago
$begingroup$
Since two integers cannot simultaneously sum to 5 and be equal, you can use+
instead of+.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám Ah, I see, thank you.
$endgroup$
– Conor O'Brien
2 days ago
add a comment |
$begingroup$
Save a byte withe.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám How so? Shortest approach I got withe.
was=+.5 e.|@-,+
. Maybe you forget5e.
is an invalid token in J?
$endgroup$
– Conor O'Brien
2 days ago
$begingroup$
Since two integers cannot simultaneously sum to 5 and be equal, you can use+
instead of+.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám Ah, I see, thank you.
$endgroup$
– Conor O'Brien
2 days ago
$begingroup$
Save a byte with
e.
$endgroup$
– Adám
2 days ago
$begingroup$
Save a byte with
e.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám How so? Shortest approach I got with
e.
was =+.5 e.|@-,+
. Maybe you forget 5e.
is an invalid token in J?$endgroup$
– Conor O'Brien
2 days ago
$begingroup$
@Adám How so? Shortest approach I got with
e.
was =+.5 e.|@-,+
. Maybe you forget 5e.
is an invalid token in J?$endgroup$
– Conor O'Brien
2 days ago
$begingroup$
Since two integers cannot simultaneously sum to 5 and be equal, you can use
+
instead of +.
$endgroup$
– Adám
2 days ago
$begingroup$
Since two integers cannot simultaneously sum to 5 and be equal, you can use
+
instead of +.
$endgroup$
– Adám
2 days ago
$begingroup$
@Adám Ah, I see, thank you.
$endgroup$
– Conor O'Brien
2 days ago
$begingroup$
@Adám Ah, I see, thank you.
$endgroup$
– Conor O'Brien
2 days ago
add a comment |
$begingroup$
Python 2, 38 bytes
-2 bytes thanks to @DjMcMayhem
lambda a,b:a+b==5or abs(a-b)==5or a==b
Try it online!
$endgroup$
$begingroup$
Your TIO is actually 42 bytes but you can fix it by deleting the spaces between the5
s and theor
s
$endgroup$
– ElPedro
2 days ago
3
$begingroup$
Actually, the TIO link could be 38 bytes
$endgroup$
– DJMcMayhem♦
2 days ago
$begingroup$
@ElPedro the function itself was 40 bytes but I used f= in order to be able to call it
$endgroup$
– fəˈnɛtɪk
2 days ago
1
$begingroup$
@DJMcMayhem I don't normally golf in python. I just did it because the question asker used python for their example
$endgroup$
– fəˈnɛtɪk
2 days ago
add a comment |
$begingroup$
Python 2, 38 bytes
-2 bytes thanks to @DjMcMayhem
lambda a,b:a+b==5or abs(a-b)==5or a==b
Try it online!
$endgroup$
$begingroup$
Your TIO is actually 42 bytes but you can fix it by deleting the spaces between the5
s and theor
s
$endgroup$
– ElPedro
2 days ago
3
$begingroup$
Actually, the TIO link could be 38 bytes
$endgroup$
– DJMcMayhem♦
2 days ago
$begingroup$
@ElPedro the function itself was 40 bytes but I used f= in order to be able to call it
$endgroup$
– fəˈnɛtɪk
2 days ago
1
$begingroup$
@DJMcMayhem I don't normally golf in python. I just did it because the question asker used python for their example
$endgroup$
– fəˈnɛtɪk
2 days ago
add a comment |
$begingroup$
Python 2, 38 bytes
-2 bytes thanks to @DjMcMayhem
lambda a,b:a+b==5or abs(a-b)==5or a==b
Try it online!
$endgroup$
Python 2, 38 bytes
-2 bytes thanks to @DjMcMayhem
lambda a,b:a+b==5or abs(a-b)==5or a==b
Try it online!
edited 2 days ago
answered 2 days ago
fəˈnɛtɪkfəˈnɛtɪk
3,6531637
3,6531637
$begingroup$
Your TIO is actually 42 bytes but you can fix it by deleting the spaces between the5
s and theor
s
$endgroup$
– ElPedro
2 days ago
3
$begingroup$
Actually, the TIO link could be 38 bytes
$endgroup$
– DJMcMayhem♦
2 days ago
$begingroup$
@ElPedro the function itself was 40 bytes but I used f= in order to be able to call it
$endgroup$
– fəˈnɛtɪk
2 days ago
1
$begingroup$
@DJMcMayhem I don't normally golf in python. I just did it because the question asker used python for their example
$endgroup$
– fəˈnɛtɪk
2 days ago
add a comment |
$begingroup$
Your TIO is actually 42 bytes but you can fix it by deleting the spaces between the5
s and theor
s
$endgroup$
– ElPedro
2 days ago
3
$begingroup$
Actually, the TIO link could be 38 bytes
$endgroup$
– DJMcMayhem♦
2 days ago
$begingroup$
@ElPedro the function itself was 40 bytes but I used f= in order to be able to call it
$endgroup$
– fəˈnɛtɪk
2 days ago
1
$begingroup$
@DJMcMayhem I don't normally golf in python. I just did it because the question asker used python for their example
$endgroup$
– fəˈnɛtɪk
2 days ago
$begingroup$
Your TIO is actually 42 bytes but you can fix it by deleting the spaces between the
5
s and the or
s$endgroup$
– ElPedro
2 days ago
$begingroup$
Your TIO is actually 42 bytes but you can fix it by deleting the spaces between the
5
s and the or
s$endgroup$
– ElPedro
2 days ago
3
3
$begingroup$
Actually, the TIO link could be 38 bytes
$endgroup$
– DJMcMayhem♦
2 days ago
$begingroup$
Actually, the TIO link could be 38 bytes
$endgroup$
– DJMcMayhem♦
2 days ago
$begingroup$
@ElPedro the function itself was 40 bytes but I used f= in order to be able to call it
$endgroup$
– fəˈnɛtɪk
2 days ago
$begingroup$
@ElPedro the function itself was 40 bytes but I used f= in order to be able to call it
$endgroup$
– fəˈnɛtɪk
2 days ago
1
1
$begingroup$
@DJMcMayhem I don't normally golf in python. I just did it because the question asker used python for their example
$endgroup$
– fəˈnɛtɪk
2 days ago
$begingroup$
@DJMcMayhem I don't normally golf in python. I just did it because the question asker used python for their example
$endgroup$
– fəˈnɛtɪk
2 days ago
add a comment |
$begingroup$
Java (JDK), 30 bytes
a->b->a+b==5|a==b|(b-=a)*b==25
Try it online!
$endgroup$
add a comment |
$begingroup$
Java (JDK), 30 bytes
a->b->a+b==5|a==b|(b-=a)*b==25
Try it online!
$endgroup$
add a comment |
$begingroup$
Java (JDK), 30 bytes
a->b->a+b==5|a==b|(b-=a)*b==25
Try it online!
$endgroup$
Java (JDK), 30 bytes
a->b->a+b==5|a==b|(b-=a)*b==25
Try it online!
answered 2 days ago
Olivier GrégoireOlivier Grégoire
8,92511843
8,92511843
add a comment |
add a comment |
$begingroup$
Wolfram Language (Mathematica), 22 bytes
Takes input as [a][b]
.
MatchQ[#|5-#|#-5|#+5]&
Try it online!
$endgroup$
add a comment |
$begingroup$
Wolfram Language (Mathematica), 22 bytes
Takes input as [a][b]
.
MatchQ[#|5-#|#-5|#+5]&
Try it online!
$endgroup$
add a comment |
$begingroup$
Wolfram Language (Mathematica), 22 bytes
Takes input as [a][b]
.
MatchQ[#|5-#|#-5|#+5]&
Try it online!
$endgroup$
Wolfram Language (Mathematica), 22 bytes
Takes input as [a][b]
.
MatchQ[#|5-#|#-5|#+5]&
Try it online!
edited yesterday
answered 2 days ago
alephalphaalephalpha
21.2k32991
21.2k32991
add a comment |
add a comment |
$begingroup$
Python 2, 29 31 bytes
lambda a,b:a+b==5or`a-b`in"0-5"
Try it online!
Since I didn't manage to read the task carefully the first time, in order to fix it, I had to come up with a completely different approach, which is unfortunately not as concise.
$endgroup$
add a comment |
$begingroup$
Python 2, 29 31 bytes
lambda a,b:a+b==5or`a-b`in"0-5"
Try it online!
Since I didn't manage to read the task carefully the first time, in order to fix it, I had to come up with a completely different approach, which is unfortunately not as concise.
$endgroup$
add a comment |
$begingroup$
Python 2, 29 31 bytes
lambda a,b:a+b==5or`a-b`in"0-5"
Try it online!
Since I didn't manage to read the task carefully the first time, in order to fix it, I had to come up with a completely different approach, which is unfortunately not as concise.
$endgroup$
Python 2, 29 31 bytes
lambda a,b:a+b==5or`a-b`in"0-5"
Try it online!
Since I didn't manage to read the task carefully the first time, in order to fix it, I had to come up with a completely different approach, which is unfortunately not as concise.
edited yesterday
answered 2 days ago
Kirill L.Kirill L.
3,8051319
3,8051319
add a comment |
add a comment |
$begingroup$
PowerShell, 48 44 40 bytes
param($a,$b)$b-in($a-5),(5-$a),(5+$a),$a
Try it online! or Verify all Test Cases
Takes input $a
and $b
. Checks if $b
is -in
the group ($a-5
, 5-$a
5+$a
, or $a
), which checks all possible combinations of $a
,$b
, and 5
.
-4 bytes thanks to mazzy.
-4 bytes thanks to KGlasier.
$endgroup$
$begingroup$
($a-$b)
is-$x
:)
$endgroup$
– mazzy
2 days ago
$begingroup$
@mazzy Ooo, good call.
$endgroup$
– AdmBorkBork
2 days ago
$begingroup$
If you switch5
and$b
around you can cut off a couple bytes(ieparam($a,$b)$b-in($a-5),(5-$a),($a+5),$a
) Try it out here
$endgroup$
– KGlasier
yesterday
1
$begingroup$
@KGlasier Excellent suggestion. I needed to swap$a+5
to5+$a
to get it to cast appropriately when taking command-line input, but otherwise awesome. Thanks!
$endgroup$
– AdmBorkBork
yesterday
add a comment |
$begingroup$
PowerShell, 48 44 40 bytes
param($a,$b)$b-in($a-5),(5-$a),(5+$a),$a
Try it online! or Verify all Test Cases
Takes input $a
and $b
. Checks if $b
is -in
the group ($a-5
, 5-$a
5+$a
, or $a
), which checks all possible combinations of $a
,$b
, and 5
.
-4 bytes thanks to mazzy.
-4 bytes thanks to KGlasier.
$endgroup$
$begingroup$
($a-$b)
is-$x
:)
$endgroup$
– mazzy
2 days ago
$begingroup$
@mazzy Ooo, good call.
$endgroup$
– AdmBorkBork
2 days ago
$begingroup$
If you switch5
and$b
around you can cut off a couple bytes(ieparam($a,$b)$b-in($a-5),(5-$a),($a+5),$a
) Try it out here
$endgroup$
– KGlasier
yesterday
1
$begingroup$
@KGlasier Excellent suggestion. I needed to swap$a+5
to5+$a
to get it to cast appropriately when taking command-line input, but otherwise awesome. Thanks!
$endgroup$
– AdmBorkBork
yesterday
add a comment |
$begingroup$
PowerShell, 48 44 40 bytes
param($a,$b)$b-in($a-5),(5-$a),(5+$a),$a
Try it online! or Verify all Test Cases
Takes input $a
and $b
. Checks if $b
is -in
the group ($a-5
, 5-$a
5+$a
, or $a
), which checks all possible combinations of $a
,$b
, and 5
.
-4 bytes thanks to mazzy.
-4 bytes thanks to KGlasier.
$endgroup$
PowerShell, 48 44 40 bytes
param($a,$b)$b-in($a-5),(5-$a),(5+$a),$a
Try it online! or Verify all Test Cases
Takes input $a
and $b
. Checks if $b
is -in
the group ($a-5
, 5-$a
5+$a
, or $a
), which checks all possible combinations of $a
,$b
, and 5
.
-4 bytes thanks to mazzy.
-4 bytes thanks to KGlasier.
edited yesterday
answered 2 days ago
AdmBorkBorkAdmBorkBork
26.6k364229
26.6k364229
$begingroup$
($a-$b)
is-$x
:)
$endgroup$
– mazzy
2 days ago
$begingroup$
@mazzy Ooo, good call.
$endgroup$
– AdmBorkBork
2 days ago
$begingroup$
If you switch5
and$b
around you can cut off a couple bytes(ieparam($a,$b)$b-in($a-5),(5-$a),($a+5),$a
) Try it out here
$endgroup$
– KGlasier
yesterday
1
$begingroup$
@KGlasier Excellent suggestion. I needed to swap$a+5
to5+$a
to get it to cast appropriately when taking command-line input, but otherwise awesome. Thanks!
$endgroup$
– AdmBorkBork
yesterday
add a comment |
$begingroup$
($a-$b)
is-$x
:)
$endgroup$
– mazzy
2 days ago
$begingroup$
@mazzy Ooo, good call.
$endgroup$
– AdmBorkBork
2 days ago
$begingroup$
If you switch5
and$b
around you can cut off a couple bytes(ieparam($a,$b)$b-in($a-5),(5-$a),($a+5),$a
) Try it out here
$endgroup$
– KGlasier
yesterday
1
$begingroup$
@KGlasier Excellent suggestion. I needed to swap$a+5
to5+$a
to get it to cast appropriately when taking command-line input, but otherwise awesome. Thanks!
$endgroup$
– AdmBorkBork
yesterday
$begingroup$
($a-$b)
is -$x
:)$endgroup$
– mazzy
2 days ago
$begingroup$
($a-$b)
is -$x
:)$endgroup$
– mazzy
2 days ago
$begingroup$
@mazzy Ooo, good call.
$endgroup$
– AdmBorkBork
2 days ago
$begingroup$
@mazzy Ooo, good call.
$endgroup$
– AdmBorkBork
2 days ago
$begingroup$
If you switch
5
and $b
around you can cut off a couple bytes(ie param($a,$b)$b-in($a-5),(5-$a),($a+5),$a
) Try it out here$endgroup$
– KGlasier
yesterday
$begingroup$
If you switch
5
and $b
around you can cut off a couple bytes(ie param($a,$b)$b-in($a-5),(5-$a),($a+5),$a
) Try it out here$endgroup$
– KGlasier
yesterday
1
1
$begingroup$
@KGlasier Excellent suggestion. I needed to swap
$a+5
to 5+$a
to get it to cast appropriately when taking command-line input, but otherwise awesome. Thanks!$endgroup$
– AdmBorkBork
yesterday
$begingroup$
@KGlasier Excellent suggestion. I needed to swap
$a+5
to 5+$a
to get it to cast appropriately when taking command-line input, but otherwise awesome. Thanks!$endgroup$
– AdmBorkBork
yesterday
add a comment |
$begingroup$
8086 machine code, 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
Input numbers in AX and BX and returns Zero Flag (ZF=1) if result is true. If desired, you can also determine which condition was true with the following:
- ZF = 1 and DX = 5 ; sum is 5
- ZF = 1 and AX = 5 ; diff is 5
- ZF = 1 and AX = 0 ; equal
- ZF = 0 ; result false
If the difference between the numbers is 0, we know they are equal. Otherwise if result is negative, then first negate it and then check for 5. If still not true, then add and check for 5.
Sample PC DOS test program. Download it here (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
Output of test program:
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
$endgroup$
add a comment |
$begingroup$
8086 machine code, 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
Input numbers in AX and BX and returns Zero Flag (ZF=1) if result is true. If desired, you can also determine which condition was true with the following:
- ZF = 1 and DX = 5 ; sum is 5
- ZF = 1 and AX = 5 ; diff is 5
- ZF = 1 and AX = 0 ; equal
- ZF = 0 ; result false
If the difference between the numbers is 0, we know they are equal. Otherwise if result is negative, then first negate it and then check for 5. If still not true, then add and check for 5.
Sample PC DOS test program. Download it here (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
Output of test program:
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
$endgroup$
add a comment |
$begingroup$
8086 machine code, 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
Input numbers in AX and BX and returns Zero Flag (ZF=1) if result is true. If desired, you can also determine which condition was true with the following:
- ZF = 1 and DX = 5 ; sum is 5
- ZF = 1 and AX = 5 ; diff is 5
- ZF = 1 and AX = 0 ; equal
- ZF = 0 ; result false
If the difference between the numbers is 0, we know they are equal. Otherwise if result is negative, then first negate it and then check for 5. If still not true, then add and check for 5.
Sample PC DOS test program. Download it here (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
Output of test program:
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
$endgroup$
8086 machine code, 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
Input numbers in AX and BX and returns Zero Flag (ZF=1) if result is true. If desired, you can also determine which condition was true with the following:
- ZF = 1 and DX = 5 ; sum is 5
- ZF = 1 and AX = 5 ; diff is 5
- ZF = 1 and AX = 0 ; equal
- ZF = 0 ; result false
If the difference between the numbers is 0, we know they are equal. Otherwise if result is negative, then first negate it and then check for 5. If still not true, then add and check for 5.
Sample PC DOS test program. Download it here (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
Output of test program:
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
edited 2 hours ago
answered yesterday
gwaughgwaugh
43113
43113
add a comment |
add a comment |
$begingroup$
C# (.NET Core), 43, 48, 47, 33 bytes
EDIT: Tried to use % and apparently forgot how to %. Thanks to Arnauld for pointing that out!
EDIT2: AdmBorkBork with a -1 byte golf rearranging the parentheses to sit next to the return so no additional space is needed!
EDIT3: Thanks to dana for -14 byte golf for the one-line return shortcut and currying the function (Ty Embodiment of Ignorance for linking to TIO).
C# (.NET Core), 33 bytes
a=>b=>a==b|a+b==5|(a-b)*(a-b)==25
Try it online!
$endgroup$
$begingroup$
Bah. Trying to avoid System.Math. Back to it! Thanks for pointing that out :D
$endgroup$
– Destroigo
2 days ago
1
$begingroup$
You can get it down to 33 bytes applying dana's tips
$endgroup$
– Embodiment of Ignorance
2 days ago
add a comment |
$begingroup$
C# (.NET Core), 43, 48, 47, 33 bytes
EDIT: Tried to use % and apparently forgot how to %. Thanks to Arnauld for pointing that out!
EDIT2: AdmBorkBork with a -1 byte golf rearranging the parentheses to sit next to the return so no additional space is needed!
EDIT3: Thanks to dana for -14 byte golf for the one-line return shortcut and currying the function (Ty Embodiment of Ignorance for linking to TIO).
C# (.NET Core), 33 bytes
a=>b=>a==b|a+b==5|(a-b)*(a-b)==25
Try it online!
$endgroup$
$begingroup$
Bah. Trying to avoid System.Math. Back to it! Thanks for pointing that out :D
$endgroup$
– Destroigo
2 days ago
1
$begingroup$
You can get it down to 33 bytes applying dana's tips
$endgroup$
– Embodiment of Ignorance
2 days ago
add a comment |
$begingroup$
C# (.NET Core), 43, 48, 47, 33 bytes
EDIT: Tried to use % and apparently forgot how to %. Thanks to Arnauld for pointing that out!
EDIT2: AdmBorkBork with a -1 byte golf rearranging the parentheses to sit next to the return so no additional space is needed!
EDIT3: Thanks to dana for -14 byte golf for the one-line return shortcut and currying the function (Ty Embodiment of Ignorance for linking to TIO).
C# (.NET Core), 33 bytes
a=>b=>a==b|a+b==5|(a-b)*(a-b)==25
Try it online!
$endgroup$
C# (.NET Core), 43, 48, 47, 33 bytes
EDIT: Tried to use % and apparently forgot how to %. Thanks to Arnauld for pointing that out!
EDIT2: AdmBorkBork with a -1 byte golf rearranging the parentheses to sit next to the return so no additional space is needed!
EDIT3: Thanks to dana for -14 byte golf for the one-line return shortcut and currying the function (Ty Embodiment of Ignorance for linking to TIO).
C# (.NET Core), 33 bytes
a=>b=>a==b|a+b==5|(a-b)*(a-b)==25
Try it online!
edited 2 days ago
answered 2 days ago
DestroigoDestroigo
1815
1815
$begingroup$
Bah. Trying to avoid System.Math. Back to it! Thanks for pointing that out :D
$endgroup$
– Destroigo
2 days ago
1
$begingroup$
You can get it down to 33 bytes applying dana's tips
$endgroup$
– Embodiment of Ignorance
2 days ago
add a comment |
$begingroup$
Bah. Trying to avoid System.Math. Back to it! Thanks for pointing that out :D
$endgroup$
– Destroigo
2 days ago
1
$begingroup$
You can get it down to 33 bytes applying dana's tips
$endgroup$
– Embodiment of Ignorance
2 days ago
$begingroup$
Bah. Trying to avoid System.Math. Back to it! Thanks for pointing that out :D
$endgroup$
– Destroigo
2 days ago
$begingroup$
Bah. Trying to avoid System.Math. Back to it! Thanks for pointing that out :D
$endgroup$
– Destroigo
2 days ago
1
1
$begingroup$
You can get it down to 33 bytes applying dana's tips
$endgroup$
– Embodiment of Ignorance
2 days ago
$begingroup$
You can get it down to 33 bytes applying dana's tips
$endgroup$
– Embodiment of Ignorance
2 days ago
add a comment |
$begingroup$
C (gcc), 33 bytes
f(a,b){a=!(a+b-5&&(a-=b)/6|a%5);}
Try it online!
Tried an approach I didn't see anyone else try using. The return expression is equivalent to a+b==5||((-6<a-b||a-b<6)&&(a-b)%5==0)
.
$endgroup$
add a comment |
$begingroup$
C (gcc), 33 bytes
f(a,b){a=!(a+b-5&&(a-=b)/6|a%5);}
Try it online!
Tried an approach I didn't see anyone else try using. The return expression is equivalent to a+b==5||((-6<a-b||a-b<6)&&(a-b)%5==0)
.
$endgroup$
add a comment |
$begingroup$
C (gcc), 33 bytes
f(a,b){a=!(a+b-5&&(a-=b)/6|a%5);}
Try it online!
Tried an approach I didn't see anyone else try using. The return expression is equivalent to a+b==5||((-6<a-b||a-b<6)&&(a-b)%5==0)
.
$endgroup$
C (gcc), 33 bytes
f(a,b){a=!(a+b-5&&(a-=b)/6|a%5);}
Try it online!
Tried an approach I didn't see anyone else try using. The return expression is equivalent to a+b==5||((-6<a-b||a-b<6)&&(a-b)%5==0)
.
answered yesterday
attinatattinat
3305
3305
add a comment |
add a comment |
$begingroup$
Scala, 43 bytes
def f(a:Int,b:Int)=a+b==5|(a-b).abs==5|a==b
Try it online!
$endgroup$
$begingroup$
Isn't it possible to golf the||
to|
? I know it's possible in Java, C#, Python, or JavaScript, but not sure about Scala.
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Actually yes! thanks
$endgroup$
– Xavier Guihot
yesterday
add a comment |
$begingroup$
Scala, 43 bytes
def f(a:Int,b:Int)=a+b==5|(a-b).abs==5|a==b
Try it online!
$endgroup$
$begingroup$
Isn't it possible to golf the||
to|
? I know it's possible in Java, C#, Python, or JavaScript, but not sure about Scala.
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Actually yes! thanks
$endgroup$
– Xavier Guihot
yesterday
add a comment |
$begingroup$
Scala, 43 bytes
def f(a:Int,b:Int)=a+b==5|(a-b).abs==5|a==b
Try it online!
$endgroup$
Scala, 43 bytes
def f(a:Int,b:Int)=a+b==5|(a-b).abs==5|a==b
Try it online!
edited yesterday
answered 2 days ago
Xavier GuihotXavier Guihot
2237
2237
$begingroup$
Isn't it possible to golf the||
to|
? I know it's possible in Java, C#, Python, or JavaScript, but not sure about Scala.
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Actually yes! thanks
$endgroup$
– Xavier Guihot
yesterday
add a comment |
$begingroup$
Isn't it possible to golf the||
to|
? I know it's possible in Java, C#, Python, or JavaScript, but not sure about Scala.
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Actually yes! thanks
$endgroup$
– Xavier Guihot
yesterday
$begingroup$
Isn't it possible to golf the
||
to |
? I know it's possible in Java, C#, Python, or JavaScript, but not sure about Scala.$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Isn't it possible to golf the
||
to |
? I know it's possible in Java, C#, Python, or JavaScript, but not sure about Scala.$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Actually yes! thanks
$endgroup$
– Xavier Guihot
yesterday
$begingroup$
Actually yes! thanks
$endgroup$
– Xavier Guihot
yesterday
add a comment |
$begingroup$
Perl 6, 24 bytes
-1 byte thanks to Grimy
{$^a-$^b==5|0|-5|5-2*$b}
Try it online!
This uses the Any Junction but technically, ^
could work as well.
Explanation:
{ } # Anonymous code block
$^a-$^b== # Is the difference equal to
| | | # Any of
0
5
-5
5-2*$b
$endgroup$
1
$begingroup$
-1 byte with{$^a-$^b==5|0|-5|5-2*$b}
$endgroup$
– Grimy
yesterday
add a comment |
$begingroup$
Perl 6, 24 bytes
-1 byte thanks to Grimy
{$^a-$^b==5|0|-5|5-2*$b}
Try it online!
This uses the Any Junction but technically, ^
could work as well.
Explanation:
{ } # Anonymous code block
$^a-$^b== # Is the difference equal to
| | | # Any of
0
5
-5
5-2*$b
$endgroup$
1
$begingroup$
-1 byte with{$^a-$^b==5|0|-5|5-2*$b}
$endgroup$
– Grimy
yesterday
add a comment |
$begingroup$
Perl 6, 24 bytes
-1 byte thanks to Grimy
{$^a-$^b==5|0|-5|5-2*$b}
Try it online!
This uses the Any Junction but technically, ^
could work as well.
Explanation:
{ } # Anonymous code block
$^a-$^b== # Is the difference equal to
| | | # Any of
0
5
-5
5-2*$b
$endgroup$
Perl 6, 24 bytes
-1 byte thanks to Grimy
{$^a-$^b==5|0|-5|5-2*$b}
Try it online!
This uses the Any Junction but technically, ^
could work as well.
Explanation:
{ } # Anonymous code block
$^a-$^b== # Is the difference equal to
| | | # Any of
0
5
-5
5-2*$b
edited 22 hours ago
answered yesterday
Jo KingJo King
21.4k248110
21.4k248110
1
$begingroup$
-1 byte with{$^a-$^b==5|0|-5|5-2*$b}
$endgroup$
– Grimy
yesterday
add a comment |
1
$begingroup$
-1 byte with{$^a-$^b==5|0|-5|5-2*$b}
$endgroup$
– Grimy
yesterday
1
1
$begingroup$
-1 byte with
{$^a-$^b==5|0|-5|5-2*$b}
$endgroup$
– Grimy
yesterday
$begingroup$
-1 byte with
{$^a-$^b==5|0|-5|5-2*$b}
$endgroup$
– Grimy
yesterday
add a comment |
$begingroup$
Python 2, 25 bytes
lambda a,b:(a*a-b*b)%5==0
Try it online!
New contributor
$endgroup$
$begingroup$
Welcome to PPCG! Your answer currently doesn't check if the sum is 5. The first test case should return true.
$endgroup$
– Dennis♦
19 hours ago
$begingroup$
Thank you Dennis!
$endgroup$
– granstarferro
15 hours ago
2
$begingroup$
%5==0
only checks for divisibility by 5. Your approach fails the-5 5 => False
test case now, which has a difference of 10.
$endgroup$
– Dennis♦
8 hours ago
add a comment |
$begingroup$
Python 2, 25 bytes
lambda a,b:(a*a-b*b)%5==0
Try it online!
New contributor
$endgroup$
$begingroup$
Welcome to PPCG! Your answer currently doesn't check if the sum is 5. The first test case should return true.
$endgroup$
– Dennis♦
19 hours ago
$begingroup$
Thank you Dennis!
$endgroup$
– granstarferro
15 hours ago
2
$begingroup$
%5==0
only checks for divisibility by 5. Your approach fails the-5 5 => False
test case now, which has a difference of 10.
$endgroup$
– Dennis♦
8 hours ago
add a comment |
$begingroup$
Python 2, 25 bytes
lambda a,b:(a*a-b*b)%5==0
Try it online!
New contributor
$endgroup$
Python 2, 25 bytes
lambda a,b:(a*a-b*b)%5==0
Try it online!
New contributor
edited 15 hours ago
New contributor
answered 20 hours ago
granstarferrogranstarferro
313
313
New contributor
New contributor
$begingroup$
Welcome to PPCG! Your answer currently doesn't check if the sum is 5. The first test case should return true.
$endgroup$
– Dennis♦
19 hours ago
$begingroup$
Thank you Dennis!
$endgroup$
– granstarferro
15 hours ago
2
$begingroup$
%5==0
only checks for divisibility by 5. Your approach fails the-5 5 => False
test case now, which has a difference of 10.
$endgroup$
– Dennis♦
8 hours ago
add a comment |
$begingroup$
Welcome to PPCG! Your answer currently doesn't check if the sum is 5. The first test case should return true.
$endgroup$
– Dennis♦
19 hours ago
$begingroup$
Thank you Dennis!
$endgroup$
– granstarferro
15 hours ago
2
$begingroup$
%5==0
only checks for divisibility by 5. Your approach fails the-5 5 => False
test case now, which has a difference of 10.
$endgroup$
– Dennis♦
8 hours ago
$begingroup$
Welcome to PPCG! Your answer currently doesn't check if the sum is 5. The first test case should return true.
$endgroup$
– Dennis♦
19 hours ago
$begingroup$
Welcome to PPCG! Your answer currently doesn't check if the sum is 5. The first test case should return true.
$endgroup$
– Dennis♦
19 hours ago
$begingroup$
Thank you Dennis!
$endgroup$
– granstarferro
15 hours ago
$begingroup$
Thank you Dennis!
$endgroup$
– granstarferro
15 hours ago
2
2
$begingroup$
%5==0
only checks for divisibility by 5. Your approach fails the -5 5 => False
test case now, which has a difference of 10.$endgroup$
– Dennis♦
8 hours ago
$begingroup$
%5==0
only checks for divisibility by 5. Your approach fails the -5 5 => False
test case now, which has a difference of 10.$endgroup$
– Dennis♦
8 hours ago
add a comment |
$begingroup$
C (gcc), 41 34 bytes
f(a,b){a=5==abs(a-b)|a+b==5|a==b;}
Try it online!
$endgroup$
1
$begingroup$
Why doesf
returna
? Just some Undefined Behavior?
$endgroup$
– Tyilo
2 days ago
$begingroup$
@Tyilo Yes, it's implementation specific. So happens the first parameter is stored in the same register as the return value.
$endgroup$
– cleblanc
2 days ago
$begingroup$
30 bytes Try it online!
$endgroup$
– Logern
2 days ago
$begingroup$
@Logern Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
$begingroup$
@ceilingcat Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
|
show 2 more comments
$begingroup$
C (gcc), 41 34 bytes
f(a,b){a=5==abs(a-b)|a+b==5|a==b;}
Try it online!
$endgroup$
1
$begingroup$
Why doesf
returna
? Just some Undefined Behavior?
$endgroup$
– Tyilo
2 days ago
$begingroup$
@Tyilo Yes, it's implementation specific. So happens the first parameter is stored in the same register as the return value.
$endgroup$
– cleblanc
2 days ago
$begingroup$
30 bytes Try it online!
$endgroup$
– Logern
2 days ago
$begingroup$
@Logern Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
$begingroup$
@ceilingcat Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
|
show 2 more comments
$begingroup$
C (gcc), 41 34 bytes
f(a,b){a=5==abs(a-b)|a+b==5|a==b;}
Try it online!
$endgroup$
C (gcc), 41 34 bytes
f(a,b){a=5==abs(a-b)|a+b==5|a==b;}
Try it online!
edited 2 days ago
answered 2 days ago
cleblanccleblanc
3,200316
3,200316
1
$begingroup$
Why doesf
returna
? Just some Undefined Behavior?
$endgroup$
– Tyilo
2 days ago
$begingroup$
@Tyilo Yes, it's implementation specific. So happens the first parameter is stored in the same register as the return value.
$endgroup$
– cleblanc
2 days ago
$begingroup$
30 bytes Try it online!
$endgroup$
– Logern
2 days ago
$begingroup$
@Logern Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
$begingroup$
@ceilingcat Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
|
show 2 more comments
1
$begingroup$
Why doesf
returna
? Just some Undefined Behavior?
$endgroup$
– Tyilo
2 days ago
$begingroup$
@Tyilo Yes, it's implementation specific. So happens the first parameter is stored in the same register as the return value.
$endgroup$
– cleblanc
2 days ago
$begingroup$
30 bytes Try it online!
$endgroup$
– Logern
2 days ago
$begingroup$
@Logern Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
$begingroup$
@ceilingcat Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
1
1
$begingroup$
Why does
f
return a
? Just some Undefined Behavior?$endgroup$
– Tyilo
2 days ago
$begingroup$
Why does
f
return a
? Just some Undefined Behavior?$endgroup$
– Tyilo
2 days ago
$begingroup$
@Tyilo Yes, it's implementation specific. So happens the first parameter is stored in the same register as the return value.
$endgroup$
– cleblanc
2 days ago
$begingroup$
@Tyilo Yes, it's implementation specific. So happens the first parameter is stored in the same register as the return value.
$endgroup$
– cleblanc
2 days ago
$begingroup$
30 bytes Try it online!
$endgroup$
– Logern
2 days ago
$begingroup$
30 bytes Try it online!
$endgroup$
– Logern
2 days ago
$begingroup$
@Logern Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
$begingroup$
@Logern Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
$begingroup$
@ceilingcat Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
$begingroup$
@ceilingcat Doesn't work for f(6,1)
$endgroup$
– cleblanc
2 days ago
|
show 2 more comments
$begingroup$
Tcl, 53 bytes
proc P a b {expr abs($a-$b)==5|$a==$b|abs($a+$b)==5}
Try it online!
$endgroup$
add a comment |
$begingroup$
Tcl, 53 bytes
proc P a b {expr abs($a-$b)==5|$a==$b|abs($a+$b)==5}
Try it online!
$endgroup$
add a comment |
$begingroup$
Tcl, 53 bytes
proc P a b {expr abs($a-$b)==5|$a==$b|abs($a+$b)==5}
Try it online!
$endgroup$
Tcl, 53 bytes
proc P a b {expr abs($a-$b)==5|$a==$b|abs($a+$b)==5}
Try it online!
edited 2 days ago
answered 2 days ago
sergiolsergiol
2,5271925
2,5271925
add a comment |
add a comment |
$begingroup$
Japt, 14 13 bytes
¥VªaU ¥5ª5¥Nx
Try it online!
$endgroup$
add a comment |
$begingroup$
Japt, 14 13 bytes
¥VªaU ¥5ª5¥Nx
Try it online!
$endgroup$
add a comment |
$begingroup$
Japt, 14 13 bytes
¥VªaU ¥5ª5¥Nx
Try it online!
$endgroup$
Japt, 14 13 bytes
¥VªaU ¥5ª5¥Nx
Try it online!
edited 2 days ago
answered 2 days ago
OliverOliver
4,7701831
4,7701831
add a comment |
add a comment |
$begingroup$
05AB1E, 13 12 bytes
ÐO5Qs`α5QrËO
Try it online!
Takes input as a list of integers, saving one byte. Thanks @Wisław!
Alternate 12 byte answer
Q¹²α5Q¹²+5QO
Try it online!
This one takes input on separate lines.
$endgroup$
1
$begingroup$
Since it is not very clearly specified, can you not assume the input is a list of integers, thus eliminating the initial|
?
$endgroup$
– Wisław
2 days ago
$begingroup$
@Wisław Good point, I updated my answer. Thanks!
$endgroup$
– Cowabunghole
2 days ago
$begingroup$
I found a 11 bytes alternative:OI`αª5¢IË~Ā
. Input is a list of integers.
$endgroup$
– Wisław
2 days ago
1
$begingroup$
OIÆÄ)5QIËM
is 10.
$endgroup$
– Magic Octopus Urn
2 days ago
1
$begingroup$
@MagicOctopusUrn I'm not sure exactly what the rules are but I think your solution is different enough from mine to submit your own answer, no? Also, unrelated but I've seen your username on this site for a long time but only after typing it out did I realize that it's "Urn", not "Um" :)
$endgroup$
– Cowabunghole
2 days ago
|
show 2 more comments
$begingroup$
05AB1E, 13 12 bytes
ÐO5Qs`α5QrËO
Try it online!
Takes input as a list of integers, saving one byte. Thanks @Wisław!
Alternate 12 byte answer
Q¹²α5Q¹²+5QO
Try it online!
This one takes input on separate lines.
$endgroup$
1
$begingroup$
Since it is not very clearly specified, can you not assume the input is a list of integers, thus eliminating the initial|
?
$endgroup$
– Wisław
2 days ago
$begingroup$
@Wisław Good point, I updated my answer. Thanks!
$endgroup$
– Cowabunghole
2 days ago
$begingroup$
I found a 11 bytes alternative:OI`αª5¢IË~Ā
. Input is a list of integers.
$endgroup$
– Wisław
2 days ago
1
$begingroup$
OIÆÄ)5QIËM
is 10.
$endgroup$
– Magic Octopus Urn
2 days ago
1
$begingroup$
@MagicOctopusUrn I'm not sure exactly what the rules are but I think your solution is different enough from mine to submit your own answer, no? Also, unrelated but I've seen your username on this site for a long time but only after typing it out did I realize that it's "Urn", not "Um" :)
$endgroup$
– Cowabunghole
2 days ago
|
show 2 more comments
$begingroup$
05AB1E, 13 12 bytes
ÐO5Qs`α5QrËO
Try it online!
Takes input as a list of integers, saving one byte. Thanks @Wisław!
Alternate 12 byte answer
Q¹²α5Q¹²+5QO
Try it online!
This one takes input on separate lines.
$endgroup$
05AB1E, 13 12 bytes
ÐO5Qs`α5QrËO
Try it online!
Takes input as a list of integers, saving one byte. Thanks @Wisław!
Alternate 12 byte answer
Q¹²α5Q¹²+5QO
Try it online!
This one takes input on separate lines.
edited 2 days ago
answered 2 days ago
CowabungholeCowabunghole
1,075419
1,075419
1
$begingroup$
Since it is not very clearly specified, can you not assume the input is a list of integers, thus eliminating the initial|
?
$endgroup$
– Wisław
2 days ago
$begingroup$
@Wisław Good point, I updated my answer. Thanks!
$endgroup$
– Cowabunghole
2 days ago
$begingroup$
I found a 11 bytes alternative:OI`αª5¢IË~Ā
. Input is a list of integers.
$endgroup$
– Wisław
2 days ago
1
$begingroup$
OIÆÄ)5QIËM
is 10.
$endgroup$
– Magic Octopus Urn
2 days ago
1
$begingroup$
@MagicOctopusUrn I'm not sure exactly what the rules are but I think your solution is different enough from mine to submit your own answer, no? Also, unrelated but I've seen your username on this site for a long time but only after typing it out did I realize that it's "Urn", not "Um" :)
$endgroup$
– Cowabunghole
2 days ago
|
show 2 more comments
1
$begingroup$
Since it is not very clearly specified, can you not assume the input is a list of integers, thus eliminating the initial|
?
$endgroup$
– Wisław
2 days ago
$begingroup$
@Wisław Good point, I updated my answer. Thanks!
$endgroup$
– Cowabunghole
2 days ago
$begingroup$
I found a 11 bytes alternative:OI`αª5¢IË~Ā
. Input is a list of integers.
$endgroup$
– Wisław
2 days ago
1
$begingroup$
OIÆÄ)5QIËM
is 10.
$endgroup$
– Magic Octopus Urn
2 days ago
1
$begingroup$
@MagicOctopusUrn I'm not sure exactly what the rules are but I think your solution is different enough from mine to submit your own answer, no? Also, unrelated but I've seen your username on this site for a long time but only after typing it out did I realize that it's "Urn", not "Um" :)
$endgroup$
– Cowabunghole
2 days ago
1
1
$begingroup$
Since it is not very clearly specified, can you not assume the input is a list of integers, thus eliminating the initial
|
?$endgroup$
– Wisław
2 days ago
$begingroup$
Since it is not very clearly specified, can you not assume the input is a list of integers, thus eliminating the initial
|
?$endgroup$
– Wisław
2 days ago
$begingroup$
@Wisław Good point, I updated my answer. Thanks!
$endgroup$
– Cowabunghole
2 days ago
$begingroup$
@Wisław Good point, I updated my answer. Thanks!
$endgroup$
– Cowabunghole
2 days ago
$begingroup$
I found a 11 bytes alternative:
OI`αª5¢IË~Ā
. Input is a list of integers.$endgroup$
– Wisław
2 days ago
$begingroup$
I found a 11 bytes alternative:
OI`αª5¢IË~Ā
. Input is a list of integers.$endgroup$
– Wisław
2 days ago
1
1
$begingroup$
OIÆÄ)5QIËM
is 10.$endgroup$
– Magic Octopus Urn
2 days ago
$begingroup$
OIÆÄ)5QIËM
is 10.$endgroup$
– Magic Octopus Urn
2 days ago
1
1
$begingroup$
@MagicOctopusUrn I'm not sure exactly what the rules are but I think your solution is different enough from mine to submit your own answer, no? Also, unrelated but I've seen your username on this site for a long time but only after typing it out did I realize that it's "Urn", not "Um" :)
$endgroup$
– Cowabunghole
2 days ago
$begingroup$
@MagicOctopusUrn I'm not sure exactly what the rules are but I think your solution is different enough from mine to submit your own answer, no? Also, unrelated but I've seen your username on this site for a long time but only after typing it out did I realize that it's "Urn", not "Um" :)
$endgroup$
– Cowabunghole
2 days ago
|
show 2 more comments
$begingroup$
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
Takes input as command-line arguments and outputs 1 on success, nothing on failure. Batch can't easily do disjunctions so I use De Morgan's laws to turn it into a conjunction.
$endgroup$
add a comment |
$begingroup$
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
Takes input as command-line arguments and outputs 1 on success, nothing on failure. Batch can't easily do disjunctions so I use De Morgan's laws to turn it into a conjunction.
$endgroup$
add a comment |
$begingroup$
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
Takes input as command-line arguments and outputs 1 on success, nothing on failure. Batch can't easily do disjunctions so I use De Morgan's laws to turn it into a conjunction.
$endgroup$
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
Takes input as command-line arguments and outputs 1 on success, nothing on failure. Batch can't easily do disjunctions so I use De Morgan's laws to turn it into a conjunction.
answered 2 days ago
NeilNeil
79.9k744177
79.9k744177
add a comment |
add a comment |
$begingroup$
05AB1E, 10 bytes
OIÆ‚Ä50SåZ
Try it 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.
Tried to do it using stack-only operations, but it was longer.
$endgroup$
1
$begingroup$
This will unfortunately return true if the sum is0
such as for[5, -5]
$endgroup$
– Emigna
2 days ago
1
$begingroup$
Your other 10-byte solution that you left as a comment (OIÆÄ‚5QIËM
) is correct for[5,-5]
.
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Another 10-byte solution that I came up with isOsÆÄ‚5åsË~
. Almost identical to yours it seems. Try it online!
$endgroup$
– Wisław
yesterday
add a comment |
$begingroup$
05AB1E, 10 bytes
OIÆ‚Ä50SåZ
Try it 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.
Tried to do it using stack-only operations, but it was longer.
$endgroup$
1
$begingroup$
This will unfortunately return true if the sum is0
such as for[5, -5]
$endgroup$
– Emigna
2 days ago
1
$begingroup$
Your other 10-byte solution that you left as a comment (OIÆÄ‚5QIËM
) is correct for[5,-5]
.
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Another 10-byte solution that I came up with isOsÆÄ‚5åsË~
. Almost identical to yours it seems. Try it online!
$endgroup$
– Wisław
yesterday
add a comment |
$begingroup$
05AB1E, 10 bytes
OIÆ‚Ä50SåZ
Try it 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.
Tried to do it using stack-only operations, but it was longer.
$endgroup$
05AB1E, 10 bytes
OIÆ‚Ä50SåZ
Try it 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.
Tried to do it using stack-only operations, but it was longer.
answered 2 days ago
Magic Octopus UrnMagic Octopus Urn
12.5k444125
12.5k444125
1
$begingroup$
This will unfortunately return true if the sum is0
such as for[5, -5]
$endgroup$
– Emigna
2 days ago
1
$begingroup$
Your other 10-byte solution that you left as a comment (OIÆÄ‚5QIËM
) is correct for[5,-5]
.
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Another 10-byte solution that I came up with isOsÆÄ‚5åsË~
. Almost identical to yours it seems. Try it online!
$endgroup$
– Wisław
yesterday
add a comment |
1
$begingroup$
This will unfortunately return true if the sum is0
such as for[5, -5]
$endgroup$
– Emigna
2 days ago
1
$begingroup$
Your other 10-byte solution that you left as a comment (OIÆÄ‚5QIËM
) is correct for[5,-5]
.
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Another 10-byte solution that I came up with isOsÆÄ‚5åsË~
. Almost identical to yours it seems. Try it online!
$endgroup$
– Wisław
yesterday
1
1
$begingroup$
This will unfortunately return true if the sum is
0
such as for [5, -5]
$endgroup$
– Emigna
2 days ago
$begingroup$
This will unfortunately return true if the sum is
0
such as for [5, -5]
$endgroup$
– Emigna
2 days ago
1
1
$begingroup$
Your other 10-byte solution that you left as a comment (
OIÆÄ‚5QIËM
) is correct for [5,-5]
.$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Your other 10-byte solution that you left as a comment (
OIÆÄ‚5QIËM
) is correct for [5,-5]
.$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Another 10-byte solution that I came up with is
OsÆÄ‚5åsË~
. Almost identical to yours it seems. Try it online!$endgroup$
– Wisław
yesterday
$begingroup$
Another 10-byte solution that I came up with is
OsÆÄ‚5åsË~
. Almost identical to yours it seems. Try it online!$endgroup$
– Wisław
yesterday
add a comment |
$begingroup$
Charcoal, 18 bytes
Nθ¿№⟦θ⁺⁵θ⁻⁵θ⁻θ⁵⟧N1
Try it online! Link is to verbose version of code. Port of @ArBo's Python 2 solution.
$endgroup$
add a comment |
$begingroup$
Charcoal, 18 bytes
Nθ¿№⟦θ⁺⁵θ⁻⁵θ⁻θ⁵⟧N1
Try it online! Link is to verbose version of code. Port of @ArBo's Python 2 solution.
$endgroup$
add a comment |
$begingroup$
Charcoal, 18 bytes
Nθ¿№⟦θ⁺⁵θ⁻⁵θ⁻θ⁵⟧N1
Try it online! Link is to verbose version of code. Port of @ArBo's Python 2 solution.
$endgroup$
Charcoal, 18 bytes
Nθ¿№⟦θ⁺⁵θ⁻⁵θ⁻θ⁵⟧N1
Try it online! Link is to verbose version of code. Port of @ArBo's Python 2 solution.
answered 2 days ago
NeilNeil
79.9k744177
79.9k744177
add a comment |
add a comment |
$begingroup$
Japt, 13 12 bytes
x ¥5|50ìøUra
Try it or run all test cases
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
$endgroup$
$begingroup$
Fails for[-5,5]
(should be falsey)
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Thanks, @KevinCruijssen. Rolled back to the previous version.
$endgroup$
– Shaggy
yesterday
add a comment |
$begingroup$
Japt, 13 12 bytes
x ¥5|50ìøUra
Try it or run all test cases
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
$endgroup$
$begingroup$
Fails for[-5,5]
(should be falsey)
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Thanks, @KevinCruijssen. Rolled back to the previous version.
$endgroup$
– Shaggy
yesterday
add a comment |
$begingroup$
Japt, 13 12 bytes
x ¥5|50ìøUra
Try it or run all test cases
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
$endgroup$
Japt, 13 12 bytes
x ¥5|50ìøUra
Try it or run all test cases
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
edited yesterday
answered 2 days ago
ShaggyShaggy
19.3k21666
19.3k21666
$begingroup$
Fails for[-5,5]
(should be falsey)
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Thanks, @KevinCruijssen. Rolled back to the previous version.
$endgroup$
– Shaggy
yesterday
add a comment |
$begingroup$
Fails for[-5,5]
(should be falsey)
$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Thanks, @KevinCruijssen. Rolled back to the previous version.
$endgroup$
– Shaggy
yesterday
$begingroup$
Fails for
[-5,5]
(should be falsey)$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Fails for
[-5,5]
(should be falsey)$endgroup$
– Kevin Cruijssen
yesterday
$begingroup$
Thanks, @KevinCruijssen. Rolled back to the previous version.
$endgroup$
– Shaggy
yesterday
$begingroup$
Thanks, @KevinCruijssen. Rolled back to the previous version.
$endgroup$
– Shaggy
yesterday
add a comment |
$begingroup$
Common Lisp, 48 bytes
(lambda(a b)(find 5(list(abs(- b a))a(+ a b)b)))
$endgroup$
add a comment |
$begingroup$
Common Lisp, 48 bytes
(lambda(a b)(find 5(list(abs(- b a))a(+ a b)b)))
$endgroup$
add a comment |
$begingroup$
Common Lisp, 48 bytes
(lambda(a b)(find 5(list(abs(- b a))a(+ a b)b)))
$endgroup$
Common Lisp, 48 bytes
(lambda(a b)(find 5(list(abs(- b a))a(+ a b)b)))
answered yesterday
coredumpcoredump
5,6921641
5,6921641
add a comment |
add a comment |
$begingroup$
Runic Enchantments, 30 bytes
i::i::}3s=?!@-'|A"5"n:}=?!@+=@
Try it online!
With a pending update, 4 bytes can be saved, as presently integer inputs are treated as doubles and don't equal integers of the same value. Hence "5"n
instead of just 5
. This was an oversight and several factors are being adjusted to account for it (such as using Approximately(a, b)
instead of a.Equals(b)
).
Outputs 0
(exactly one zero) for false and any other output (literally whatever is left on the stack) for true.
$endgroup$
add a comment |
$begingroup$
Runic Enchantments, 30 bytes
i::i::}3s=?!@-'|A"5"n:}=?!@+=@
Try it online!
With a pending update, 4 bytes can be saved, as presently integer inputs are treated as doubles and don't equal integers of the same value. Hence "5"n
instead of just 5
. This was an oversight and several factors are being adjusted to account for it (such as using Approximately(a, b)
instead of a.Equals(b)
).
Outputs 0
(exactly one zero) for false and any other output (literally whatever is left on the stack) for true.
$endgroup$
add a comment |
$begingroup$
Runic Enchantments, 30 bytes
i::i::}3s=?!@-'|A"5"n:}=?!@+=@
Try it online!
With a pending update, 4 bytes can be saved, as presently integer inputs are treated as doubles and don't equal integers of the same value. Hence "5"n
instead of just 5
. This was an oversight and several factors are being adjusted to account for it (such as using Approximately(a, b)
instead of a.Equals(b)
).
Outputs 0
(exactly one zero) for false and any other output (literally whatever is left on the stack) for true.
$endgroup$
Runic Enchantments, 30 bytes
i::i::}3s=?!@-'|A"5"n:}=?!@+=@
Try it online!
With a pending update, 4 bytes can be saved, as presently integer inputs are treated as doubles and don't equal integers of the same value. Hence "5"n
instead of just 5
. This was an oversight and several factors are being adjusted to account for it (such as using Approximately(a, b)
instead of a.Equals(b)
).
Outputs 0
(exactly one zero) for false and any other output (literally whatever is left on the stack) for true.
answered 2 days ago
Draco18sDraco18s
1,261619
1,261619
add a comment |
add a comment |
$begingroup$
Retina 0.8.2, 82 bytes
d+
$*
^(-?1*) 1$|^(-?1*)1{5} -?2$|^-?(-?1*) (3)1{5}$|^-?(1 ?){5}$|^(1 ?-?){5}$
Try it online! Link includes test cases. Explanation: The first two lines convert the inputs into unary. The final line then checks for any of the permitted matches:
^(-?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
Pivoted by the last column we get:
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$
$endgroup$
add a comment |
$begingroup$
Retina 0.8.2, 82 bytes
d+
$*
^(-?1*) 1$|^(-?1*)1{5} -?2$|^-?(-?1*) (3)1{5}$|^-?(1 ?){5}$|^(1 ?-?){5}$
Try it online! Link includes test cases. Explanation: The first two lines convert the inputs into unary. The final line then checks for any of the permitted matches:
^(-?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
Pivoted by the last column we get:
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$
$endgroup$
add a comment |
$begingroup$
Retina 0.8.2, 82 bytes
d+
$*
^(-?1*) 1$|^(-?1*)1{5} -?2$|^-?(-?1*) (3)1{5}$|^-?(1 ?){5}$|^(1 ?-?){5}$
Try it online! Link includes test cases. Explanation: The first two lines convert the inputs into unary. The final line then checks for any of the permitted matches:
^(-?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
Pivoted by the last column we get:
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$
$endgroup$
Retina 0.8.2, 82 bytes
d+
$*
^(-?1*) 1$|^(-?1*)1{5} -?2$|^-?(-?1*) (3)1{5}$|^-?(1 ?){5}$|^(1 ?-?){5}$
Try it online! Link includes test cases. Explanation: The first two lines convert the inputs into unary. The final line then checks for any of the permitted matches:
^(-?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
Pivoted by the last column we get:
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$
answered yesterday
NeilNeil
79.9k744177
79.9k744177
add a comment |
add a comment |
$begingroup$
Perl 5, 51 bytes
Pretty simple really, uses the an
flags for input. Outputs 0 for false, 1 for true. Not gonna lie, I don't know if bitwise OR is appropriate here, but is does work for all the test cases, so that's nice.
($a,$b)=@F;print($a==$b|$a+$b==5|$a-$b==5|$b-$a==5)
Try it online!
$endgroup$
1
$begingroup$
bitwise OR is equivalent to logical OR when operating on one-bit values. In general, if passed a truthy arguments bitwise OR will return truthy, and if passed two falsy arguments bitwise OR will return 0.
$endgroup$
– attinat
16 hours ago
add a comment |
$begingroup$
Perl 5, 51 bytes
Pretty simple really, uses the an
flags for input. Outputs 0 for false, 1 for true. Not gonna lie, I don't know if bitwise OR is appropriate here, but is does work for all the test cases, so that's nice.
($a,$b)=@F;print($a==$b|$a+$b==5|$a-$b==5|$b-$a==5)
Try it online!
$endgroup$
1
$begingroup$
bitwise OR is equivalent to logical OR when operating on one-bit values. In general, if passed a truthy arguments bitwise OR will return truthy, and if passed two falsy arguments bitwise OR will return 0.
$endgroup$
– attinat
16 hours ago
add a comment |
$begingroup$
Perl 5, 51 bytes
Pretty simple really, uses the an
flags for input. Outputs 0 for false, 1 for true. Not gonna lie, I don't know if bitwise OR is appropriate here, but is does work for all the test cases, so that's nice.
($a,$b)=@F;print($a==$b|$a+$b==5|$a-$b==5|$b-$a==5)
Try it online!
$endgroup$
Perl 5, 51 bytes
Pretty simple really, uses the an
flags for input. Outputs 0 for false, 1 for true. Not gonna lie, I don't know if bitwise OR is appropriate here, but is does work for all the test cases, so that's nice.
($a,$b)=@F;print($a==$b|$a+$b==5|$a-$b==5|$b-$a==5)
Try it online!
edited yesterday
answered 2 days ago
Geoffrey H.Geoffrey H.
414
414
1
$begingroup$
bitwise OR is equivalent to logical OR when operating on one-bit values. In general, if passed a truthy arguments bitwise OR will return truthy, and if passed two falsy arguments bitwise OR will return 0.
$endgroup$
– attinat
16 hours ago
add a comment |
1
$begingroup$
bitwise OR is equivalent to logical OR when operating on one-bit values. In general, if passed a truthy arguments bitwise OR will return truthy, and if passed two falsy arguments bitwise OR will return 0.
$endgroup$
– attinat
16 hours ago
1
1
$begingroup$
bitwise OR is equivalent to logical OR when operating on one-bit values. In general, if passed a truthy arguments bitwise OR will return truthy, and if passed two falsy arguments bitwise OR will return 0.
$endgroup$
– attinat
16 hours ago
$begingroup$
bitwise OR is equivalent to logical OR when operating on one-bit values. In general, if passed a truthy arguments bitwise OR will return truthy, and if passed two falsy arguments bitwise OR will return 0.
$endgroup$
– attinat
16 hours ago
add a comment |
1 2
next
Vikrant Biswas is a new contributor. Be nice, and check out our Code of Conduct.
Vikrant Biswas is a new contributor. Be nice, and check out our Code of Conduct.
Vikrant Biswas is a new contributor. Be nice, and check out our Code of Conduct.
Vikrant Biswas is a new contributor. Be nice, and check out our Code of Conduct.
If this is an answer to a challenge…
…Be sure to follow the challenge specification. However, please refrain from exploiting obvious loopholes. Answers abusing any of the standard loopholes are considered invalid. If you think a specification is unclear or underspecified, comment on the question instead.
…Try to optimize your score. For instance, answers to code-golf challenges should attempt to be as short as possible. You can always include a readable version of the code in addition to the competitive one.
Explanations of your answer make it more interesting to read and are very much encouraged.…Include a short header which indicates the language(s) of your code and its score, as defined by the challenge.
More generally…
…Please make sure to answer the question and provide sufficient detail.
…Avoid asking for help, clarification or responding to other answers (use comments instead).
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodegolf.stackexchange.com%2fquestions%2f178792%2fequal-sum-or-difference%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
7
$begingroup$
welcome to PPCG! This is a good first challenge -- the challenge is clearly defined, it has ample test cases, and uses our default I/O! If you stick around for a while and keep thinking up interesting challenges, I would recommend using The Sandbox to get feedback before posting them to this site. I hope you enjoy the time you spend here!
$endgroup$
– Giuseppe
2 days ago