Reversed Multiple Pair

Question

Intro

Two numbers are a reversed multiple pair if they satisfy the following property:

$$ a\cdot b = \operatorname{reversed}( (a-1)\cdot b ) $$

Here, \$\operatorname{reversed}()\$ means to reverse the digits of a number (e. g 123 becomes 321.)

Example

$$ a=6,\quad b=9,\quad 6\cdot 9=54,\quad 5\cdot 9=45 $$

As you can see, \$45\$ is the reversed version of \$54\$.

Task

Given two integers, \$a\$ and \$b\$, output if these two numbers is a reversed multiple pair.

Test Cases

6 9 => True
4 5 => False
3 2178 => True
34 2079 => True
7 8 => False
600 100 => False
46 1089 => True
817 503 => False
6 9009 => True
321 81 => False
10 1089 => False

Shortest code wins!

Suggest test case: 321 81 => False. An answer checking b for divisibility with 9 will pass all existing test cases but not this one. — chunes, Jan 29, 2022 at 21:43
Is 10 1089 truthy or falsy? Currently, different answers don't agree on this testcase. — tsh, Jan 30, 2022 at 2:55
May I assume inputs are positive? Or what is expected output for -5 9? — tsh, Jan 30, 2022 at 6:53

Razetime · Accepted Answer · 2022-02-01 06:51:08Z

9

+50

tinylisp, 76 bytes

(load library
(d f(q((a b)(e(to-base 10(*(- a 1)b))(reverse(to-base 10(* a b

Try it online!

edited Feb 1, 2022 at 6:51

answered Feb 1, 2022 at 6:23

Razetime

27.1k3 gold badges27 silver badges71 bronze badges

Add a comment |

Fatalize · Accepted Answer · 2022-01-30 00:16:28Z

8

Brachylog, 8 bytes

-₁ʰ×↔~×?

Try it online!

Explanation

           Input = [A, B]
-₁ʰ        Compute [A-1, B]
   ×       Compute (A-1) × B
    ↔      Reverse digits
     ~×?   It can be unmultiplied into [A,B]

answered Jan 30, 2022 at 0:16

Fatalize

38.7k5 gold badges68 silver badges161 bronze badges

Add a comment |

AnttiP · Accepted Answer · 2022-01-29 22:01:38Z

6

Python 3, 37 bytes

lambda a,b:str(a*b)==str(~-a*b)[::-1]

Try it online!

answered Jan 29, 2022 at 22:01

AnttiP

7,87814 silver badges61 bronze badges

Add a comment |

Jonathan Allan · Accepted Answer · 2022-01-30 02:10:32Z

6

Jelly, 6 bytes

’×ṚḌ⁼×

A dyadic Link accepting \$a\$ and \$b\$ that yields 1 if \$a\times b = \text{reversed}( (a - 1)\times b )\$, 0 if not.

Try it online! Or see the test-suite.

How?

’×ṚḌ⁼× - Link: a, b
’      - a-1
 ×     - (a-1) times b
  Ṛ    - reverse the digits of (a-1)×b
   Ḍ   - convert back to an integer
     × - a×b
    ⁼  - equal?

edited Jan 30, 2022 at 2:10

answered Jan 30, 2022 at 1:37

Jonathan Allan

106k7 gold badges63 silver badges275 bronze badges

\$\begingroup\$ how do you code in jelly? \$\endgroup\$
– DialFrost
Jan 30, 2022 at 4:05
3

\$\begingroup\$ @DialFrost the same way you code in other languages:P \$\endgroup\$
– zoomlogo
Jan 30, 2022 at 4:43
1

\$\begingroup\$ @DialFrost see the tutorial to get started. \$\endgroup\$
– Jonathan Allan
Jan 30, 2022 at 13:19

Add a comment |

Adám · Accepted Answer · 2022-01-30 10:19:24Z

6

APL (Dyalog Unicode), 9 bytes

Anonymous tacit infix function, taking \$a\$ as left argument and \$b\$ as right argument.

×≡∘⌽⍥⍕×-⊢

Try it online! (Uses Extended because TIO hasn't updated to 18.0)

× [Does] the product

≡∘ match the…

⌽⍥ reversed, when both are…

⍕ stringified

× product

- minus

⊢ the right argument[?]

answered Jan 30, 2022 at 10:19

Adám

30.2k2 gold badges122 silver badges286 bronze badges

Add a comment |

hyper-neutrino · Accepted Answer · 2022-01-29 20:45:09Z

5

Jelly, 9 bytes

,’$×DU⁼¥/

Try It Online!

,’$×DU⁼¥/    Main Link; dyad accepting a, b
,’$          pair: [a, a - 1]
   ×         multiply: [ab, (a - 1)b]
    D        to digit list
        /    reduce between the two:
     U       is the reverse of the former
      ⁼      equal to the latter?

answered Jan 29, 2022 at 20:45

hyper-neutrino♦

42.4k5 gold badges66 silver badges224 bronze badges

Add a comment |

chunes · Accepted Answer · 2022-01-30 01:34:45Z

4

Factor, ⁴⁷ 39 bytes

[ over * dup present reverse dec> - = ]

Try it online!

Saved 8 bytes thanks to @ovs' observations.

Explanation

Takes input as b a.

         ! 9 6
over     ! 9 6 9
*        ! 9 54
dup      ! 9 54 54
present  ! 9 54 "54"
reverse  ! 9 54 "45"
dec>     ! 9 54 45
-        ! 9 9
=        ! t

edited Jan 30, 2022 at 1:34

answered Jan 29, 2022 at 21:34

chunes

24k3 gold badges21 silver badges51 bronze badges

Add a comment |

DialFrost · Accepted Answer · 2022-01-31 02:49:11Z

4

Python 2, 31 bytes

lambda a,b:`a*b`==`a*b-b`[::-1]

Using the logic that $$ ab = \operatorname{rev}( (a-1)b ) \iff ab = \operatorname{rev}(ab-b) $$ -2 thx to @dingledooper

Try it online!

Vyxal, 7 bytes

:‹"*÷Ṙ=

Try it Online!

  "     # Pair the first input with
:‹      # Itself decremented
   *    # Multiply both by the second input
    ÷   # Push both to the stack
     Ṙ= # Is one reversed equal to the other?

answered Jan 29, 2022 at 20:41

emanresu A

37.8k5 gold badges91 silver badges217 bronze badges

Add a comment |

Neil · Accepted Answer · 2022-01-29 22:12:16Z

Charcoal, 13 bytes

ＮθＮη⁼×θη⮌×⊖θη

Try it online! Link is to verbose version of code. Outputs a Charcoal boolean, i.e. - for a reversed pair, nothing if not. Explanation:

Ｎθ              First input as a number
  Ｎη            Second input as a number
      θ         First input
     ×          Multiplied by
       η        Second input
    ⁼           Equals
           θ    First input
          ⊖     Decremented
         ×      Multiplied by
            η   Second input
        ⮌       Reversed
                Implicitly print

alephalpha · Accepted Answer · 2022-01-29 23:48:46Z

3

Pari/GP, 40 bytes

f(a,b)=d=digits;d(a*b)==Vecrev(d(a--*b))

Try it online!

answered Jan 29, 2022 at 23:48

alephalpha

48k7 gold badges62 silver badges175 bronze badges

Add a comment |

Arnauld · Accepted Answer · 2022-01-29 23:56:53Z

3

JavaScript (ES6), 41 bytes

Expects (a)(b). Returns a Boolean value.

a=>b=>[...a*b+''].reverse().join``==a*b-b

Try it online!

answered Jan 29, 2022 at 23:56

Arnauld

192k20 gold badges175 silver badges635 bronze badges

Add a comment |

Noodle9 · Accepted Answer · 2022-01-30 11:14:30Z

3

C (gcc), 55 bytes

c;r;f(a,b){for(r=0,c=~-a*b;c;c/=10)r+=9*r+c%10;r-=a*b;}

Try it online!

Inputs two integers \$a\$ and \$b\$.
Returns a falsy value if these two numbers are a reversed multiple pair or a truthy value otherwise.

answered Jan 30, 2022 at 11:14

Noodle9

20.2k3 gold badges20 silver badges45 bronze badges

Add a comment |

DeathIncarnate · Accepted Answer · 2022-01-30 19:19:51Z

3

Burlesque, 14 bytes

Jpdjp^-..*<-==

Try it online!

Takes input as array of pairs {a b}

J   # Duplicate
pd  # Product of array
j   # Swap
p^  # Push elements to stack (b, a)
-.  # Decrement
.*  # Product
<-  # Reverse digits
==  # Equal

answered Jan 30, 2022 at 19:19

DeathIncarnate

2,5507 silver badges9 bronze badges

Add a comment |

G B · Accepted Answer · 2022-01-30 20:03:33Z

3

Ruby, 33 bytes

->a,b{"#{a*=b}"==(a-b).digits*''}

Try it online!

answered Jan 30, 2022 at 20:03

G B

21.9k1 gold badge20 silver badges53 bronze badges

Add a comment |

AZTECCO · Accepted Answer · 2022-01-31 17:17:09Z

3

Haskell, 43 33 bytes

a?b=a*b==read(reverse$show$a*b-b)

Try it online!

I haven't thought reverse was available in prelude, no reason to use foldl(flip(:))""String

edited Jan 31, 2022 at 17:17

answered Jan 31, 2022 at 16:39

AZTECCO

10.8k1 gold badge14 silver badges58 bronze badges

Add a comment |

Neil · Accepted Answer · 2022-01-29 22:08:50Z

2

Retina 0.8.2, 55 bytes

\d+
$*
1,
,
1(?=.*,(1+))
$1
,
,$`
1+
$.&
+`(.),\1
,
^,$

Try it online! Link includes test cases. Explanation:

\d+
$*

Convert to unary.

1,
,

Decrement a.

1(?=.*,(1+))
$1

Multiply a-1 by b.

,
,$`

Add that to b giving (a-1)b,ab.

1+
$.&

Convert to decimal.

+`(.),\1
,
^,$

Test whether the results are mirror images of each other.

answered Jan 29, 2022 at 22:08

Neil

170k12 gold badges72 silver badges275 bronze badges

Add a comment |

chunes · Accepted Answer · 2022-01-29 23:15:42Z

2

Red, ⁴⁷ 45 bytes

func[a b][(to""a * b)= reverse to""a - 1 * b]

Try it online!

answered Jan 29, 2022 at 23:15

chunes

24k3 gold badges21 silver badges51 bronze badges

Add a comment |

zoomlogo · Accepted Answer · 2022-01-30 10:04:49Z

2

BQN, 33 22 Bytes

~~This seems too long.~~

A little better.

{(𝕨×𝕩)=•BQN⌽•Fmt𝕩×𝕨-1}

Try it!

¯11 bytes thanks to @Razetime

edited Jan 30, 2022 at 10:04

answered Jan 30, 2022 at 9:55

zoomlogo

1,6551 gold badge9 silver badges29 bronze badges

Add a comment |

Graham · Accepted Answer · 2022-01-30 10:14:47Z

2

APL+WIN, 22 20 bytes

Prompts for a then b. Minus 2 bytes using rearrangement logic

(⍎⌽⍕n-b)=n←(b←⎕)×a←⎕

Try it online! Thanks to Dyalog Classic

edited Jan 30, 2022 at 10:14

answered Jan 30, 2022 at 9:25

Graham

6,10614 silver badges11 bronze badges

Add a comment |

Neil · Accepted Answer · 2022-01-30 11:04:07Z

2

Retina, 41 bytes

L$`.+,
*$'*_,$($^$.(*$'*))*_$'*
^(_+),\1$

Try it online! Link includes test cases. Explanation: Based on @ovs' 05AB1E answer.

L$`.+,

Match a as $& (Retina ignores the trailing comma when performing arithmetic) and b as $' and replace the whole input with the result.

*$'*_,$($^$.(*$'*))*_$'*

Calculate a*b and also rev(a*b)+b in unary.

^(_+),\1$

See whether they are the same.

answered Jan 30, 2022 at 11:04

Neil

170k12 gold badges72 silver badges275 bronze badges

Add a comment |

Aiden Chow · Accepted Answer · 2022-02-07 01:39:44Z

2

GeoGebra, 86 77 70 bytes

a=6
b=9
s=Text(ab-b)
o=Sum(Zip(Take(s,c,c),c,Length(s)…1))==Text(ab)

Try It On GeoGebra!

Input is a and b, output is o as true if a and b are a reversed multiple pair, false otherwise.

The example input shown in the code is a=6 and b=9, but you can change these values to whatever you want.

edited Feb 7, 2022 at 1:39

answered Feb 1, 2022 at 5:41

Aiden Chow

13.3k1 gold badge15 silver badges53 bronze badges

Add a comment |

sinvec · Accepted Answer · 2022-02-24 06:41:16Z

2

J, ²⁰ 14 bytes

*=|.&.":@(*<:)

-6 bytes, thanks @Jonah

Try it online!

edited Feb 24, 2022 at 6:41

answered Feb 22, 2022 at 15:36

sinvec

1,9435 silver badges28 bronze badges

1

\$\begingroup\$ Taking args in reverse order, *=|.&.":@(*<:) for 14 bytes: Try it online! \$\endgroup\$
– Jonah
Feb 24, 2022 at 4:04

Add a comment |

Fmbalbuena · Accepted Answer · 2022-01-30 14:51:37Z

1

PHP, 79 bytes

$a=trim(fgets(STDIN));$b=trim(fgets(STDIN));echo $a*$b==(int)strrev($b*($a-1));

Try it online!

With the help of Github Copilot

answered Jan 30, 2022 at 14:51

Fmbalbuena

3,8471 gold badge8 silver badges48 bronze badges

1

\$\begingroup\$ Instead of all of this, you can just do fn($a,$b)=>$a*$b==+strrev($b*($a-1));. This creates an anonymous function and does the casting to a number in fewer bytes. This syntax was introduced in PHP 8.0. You can see it working for yourself here: sandbox.onlinephpfunctions.com/code/… \$\endgroup\$
– Ismael Miguel
Jan 31, 2022 at 17:41

Add a comment |

Kevin Cruijssen · Accepted Answer · 2022-01-31 13:12:57Z

MathGolf, 7 bytes

`(*x¬*=

Try it online.

Explanation:

`        # Duplicate the top two items, using the implicit inputs
         #  STACK: b,a,b,a
 (       # Decrease the top item
         #  STACK: b,a,b,a-1
  *      # Multiply the top two together
         #  STACK: b,a,b*(a-1)
   x     # Reverse the top integer
         #  STACK: b,a,reverse(b*(a-1))
    ¬    # Reverse rotate the stack:
         #  STACK: reverse(b*a(-1)),b,a
     *   # Multiply the top two again
         #  STACK: reverse(b*a(-1)),b*a
      =  # Check if the two are equal
         #  STACK: reverse(b*a(-1))==b*a
         # (after which the entire stack joined together is output implicitly)

t-clausen.dk · Accepted Answer · 2022-01-31 15:47:33Z

1

T-SQL, 31 bytes

Using bitwise operators

PRINT-1/~(@*@b^reverse(@b*~-@))

Try it online

answered Jan 31, 2022 at 15:47

t-clausen.dk

3,74412 silver badges16 bronze badges

Add a comment |

Sundar R · Accepted Answer · 2022-02-01 23:30:13Z

1

Julia 1.0, 56 bytes

(a,b,d=digits,s=string)->s(d(a*b))==s(reverse(d(a*b-b)))

Try it online!

Pretty straightforward answer, with nothing particularly clever to it (unfortunately).

answered Feb 1, 2022 at 23:30

Sundar R

6,61218 silver badges33 bronze badges

1

\$\begingroup\$ 33 bytes: a+b="$(a*b)"==reverse("$(a*b-b)"). \$\endgroup\$
– dingledooper
Feb 1, 2022 at 23:38
\$\begingroup\$ @dingledooper I always forget about the operator trick 🤦 That seems different enough to merit a separate answer! \$\endgroup\$
– Sundar R
Feb 1, 2022 at 23:43

Add a comment |

cnamejj · Accepted Answer · 2022-02-24 07:13:15Z

Ly, 15 bytes

nn&s*SrJlf,*=u;

Try it online!

nn               - read two numbers from STDIN
  &s             - save the entries to the backup cell
    *            - multiple the two numbers passed in
     S           - convert integer to individual digits on stack
      r          - reverse stack
       J         - re-compose digits on stack into a integer
        l        - restore saved numbers
         f       - flip top two entries
          ,      - decrement the top of stack
           *     - multiple top two entries
            =    - compare the two entries on the stack
             u   - print "1|0" from comparison
              ;  - exit the program

Reversed Multiple Pair

Intro

Example

Task

Test Cases

28 Answers 28

tinylisp, 76 bytes

Brachylog, 8 bytes

Explanation

Python 3, 37 bytes

Jelly, 6 bytes

How?

APL (Dyalog Unicode), 9 bytes

Jelly, 9 bytes

Factor, 47 39 bytes

Explanation

Python 2, 31 bytes

Other solutions:

Python 2, 31 bytes

Python 2, 34 bytes

Vyxal, 7 bytes

Charcoal, 13 bytes

Pari/GP, 40 bytes

JavaScript (ES6), 41 bytes

C (gcc), 55 bytes

Burlesque, 14 bytes

Ruby, 33 bytes

Haskell, 43 33 bytes

Retina 0.8.2, 55 bytes

Red, 47 45 bytes

BQN, 33 22 Bytes

APL+WIN, 22 20 bytes

Retina, 41 bytes

GeoGebra, 86 77 70 bytes

J, 20 14 bytes

PHP, 79 bytes

MathGolf, 7 bytes

T-SQL, 31 bytes

Julia 1.0, 56 bytes

Ly, 15 bytes

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged code-golfmathnumberdecision-problem or ask your own question.

Related

Hot Network Questions

Factor, ⁴⁷ 39 bytes

Red, ⁴⁷ 45 bytes

J, ²⁰ 14 bytes

Not the answer you're looking for? Browse other questions tagged
code-golf
math
number
decision-problem
or ask your own question.