Smallest Multiple to "Palindromize" [duplicate]

Question

Goal:

Given any non-zero natural number a, find the smallest non-zero natural number b such that a•b is palindromic, e.g. it reads the same forwards and backwards. Input a through any reasonable means (STDIN, function argument, etc.), And output b through any reasonable means (STDOUT, function return value.)

Notes:

• Input will not always have a solution (multiples of 10), so you must create an error, or display -1/0

• Input validation is not necessary, assume a is a natural number.

• Standard loopholes apply (Hardcoding, using a language created after this challenge)

Examples:

a=34, b=8 (272)
a=628, b=78 (48984)
a=15, b=35 (525)
a=33, b=1 (33)
a=20, (Error, -1, or 0)

Answer 1

Pyth, 10 9 bytes

&eQf_I`*Q

Try it online.

Explanation

&eQf_I`*QT    Implicitly append T, and take input in Q. 
 eQ           Calculate input mod 10.
&             Logical and, only evaluate the following if result ≠ 0.
   f          Starting from 1, find the first integer T for which... 
      `       ...the string representation of... 
       *QT    ...input multiplied by T... 
    _I        ...is equal to its reverse. 

Answer 2

Ruby, 51 bytes

->a{(1..a%10/0.0).find{|b|(c="#{a*b}")==c.reverse}}

Explanation

        a%10/0.0 # -> NaN for multiples of 10, Infinity otherwise

Answer 3

05AB1E, 11 bytes

T%            # input mod 10
  0›          # is greater than 0
    µ         # repeat the following until counter reaches that number (0 or 1)
     ¹N*      # input * iteration
        ÂQ    # is equal to its reverse
          ½   # if true, increase counter
              # implicitly output last iteration (or 0)

Try it online!

Answer 4

C, 108 101 bytes

Thanks to @nmjcman101 for 7 bytes!

m,o;f(n){for(o=0;n;)o=o*10+n%10,n/=10;return o;}g(n){m=-1;if(n%10)for(m=1;n*m!=f(n*m);m++);return m;}

Is C the only language here with no built-in reversing/checking palindrome function?

Try it online!

Answer 5

QBIC, 29 bytes

:{c=a*q~!c$=_f!c$||_Xq\q=q+1

Explanation:

:      Get cmd line param as number 'a'
{      DO
c=a*q  multiply 'a' by 'q' and assign to 'c', which is 1 at the start of a QBIC program
~      IF
!c$    'c' cast to string
=      equals
_f!c$| 'c' cast to string, the reversed
|      THEN
_Xq    Quit, printing 'q'
\q=q+1 ELSE increment q and rerun
       DO Loop is auto-closed by QBIC, as is the IF

Eventually, 'q' will overflow and throw an error on an unsolvable 'a'.

Answer 6

Python 2, 78 66 60 bytes

def f(a):
 b=a%10!=0
 while `a*b`!=`a*b`[::-1]:b+=1
 print b

Try it online

Answer 7

Java, 113 bytes

i->{int j=1;for(String a;!new StringBuilder(a=String.valueOf(i*j)).reverse().toString().equals(a);)j++;return j;}

Answer 8

Mathematica, 43 bytes

If[10∣#,0,#//.x_/;!PalindromeQ@x:>x+#]/#&

Explanation

If[10∣#,0,...]/#&

If the input is a multiple of 10, return 0 (divided by the input).

#//....

Otherwise, repeatedly apply the following substitution to the input.

x_/;!PalindromeQ@x

Match a value which is not a palindrome.

...:>x+#

And replace that value with itself plus the input. This repeated substitution therefore searches through consecutive multiples of the input until it finds a palindrome.

.../#

Finally, to figure out b we simply divide the result by the input again.

Answer 9

Python 2, 68 bytes

x,y=input(),1
if not x%10:x+''
while `x*y`!=`y*x`[::-1]:y+=1
print y

Outputs an error if input is a multiple of 10.

Answer 10

Haskell, 67 66 bytes

f a|a`mod`10==0=0|1>0=[b|b<-[1..],show(a*b)==reverse(show$a*b)]!!0

Returns 0 if a is a multiple of 10. Will check from 1 to infinity for b if the textual reverse of a*b is the same as a*b.