Diberikan bilangan bulat positif N, menghasilkan bilangan bulat positif terkecil sehingga angka ini adalah palindrom (yaitu kebalikannya sendiri) dan dapat dibagi dengan N.

Palindrome (yaitu keluaran) tidak perlu nol awalan untuk menjadi palindrom, mis. 080Bukan jawaban yang valid untuk 16.

Masukan tidak akan berupa kelipatan 10, karena alasan sebelumnya.

Program Anda mungkin memakan waktu sebanyak yang diperlukan, bahkan jika dalam praktiknya akan terlalu lama untuk menghasilkan jawabannya.

Masukan dan keluaran

• Anda dapat mengambil input melalui STDIN, sebagai argumen fungsi, atau yang serupa.
• Anda dapat mencetak hasilnya STDOUT, mengembalikannya dari fungsi, atau yang serupa.
• Input dan output harus dalam basis desimal.

Uji kasus

N        Output
1        1
2        2
16       272
17       272
42       252
111      111
302      87278
1234     28382

Mencetak gol

Ini adalah kode-golf , jadi jawaban tersingkat dalam byte menang.

2sable / 05AB1E , 6/7 byte

2sable

[DÂQ#+

Penjelasan

[         # infinite loop
 D        # duplicate current number
  Â       # bifurcate
   Q#     # if the number is equal to its reverse, break loop
     +    # add input
          # implicitly print

Cobalah online

05AB1E

[DÂQ#¹+

Perbedaannya dengan kode 2sable adalah bahwa input hanya tersirat sekali di 05AB1E, jadi di sini kita perlu ¹mendapatkan input pertama lagi.

Cobalah online

Disimpan 1 byte dengan 2sable seperti yang disarankan oleh Adnan

Haskell, 45 37 34 byte

(+)>>=until((reverse>>=(==)).show)

Pyth, 7 byte

*f_I`*Q

Cobalah online: Demonstrasi

Penjelasan

*f_I`*QT)Q   implicit endings, Q=input number
 f      )    find the first number T >= 1, which satisfies:
     *QT        product of Q and T
    `           as string
  _I            is invariant under inversion (=palindrom)
*        Q   multiply this number with Q and print

Java, 164 159 126 108 94 byte

Versi golf:

int c(int a){int x=a;while(!(x+"").equals(new StringBuffer(x+"").reverse()+""))x+=a;return x;}

Versi tidak disatukan:

int c(int a)
{
    int x = a;
    while (!(x + "").equals(new StringBuffer(x + "").reverse() + ""))
        x += a;
    return x;
}

Shoutout to Emigna dan Kevin Cruijssen untuk berkontribusi perbaikan dan memotong byte hampir menjadi dua :)

C #, 103 80 Bytes

int f(int p){int x=p;while(x+""!=string.Concat((x+"").Reverse()))x+=p;return x;}

Tidak disatukan

int f(int p)
{
   int x = p;
   while (x + "" != string.Concat((x + "").Reverse()))
      x += p;
   return x;
}

Python 2, 46 byte

f=lambda x,c=0:`c`[::-1]==`c`and c or f(x,c+x)

Ide itu!

Solusi rekursif dengan csebagai penghitung.

Kasus untuk 0ini menarik, karena walaupun c=0memenuhi kondisi palindrome, itu tidak akan dikembalikan, karena ccc and 0 or xxxselalu kembali xxx.

PHP, 39 byte

while(strrev($i+=$argv[1])!=$i);echo$i;

• Mengambil angka N sebagai argumen $ argv [1];
• ; setelah beberapa saat tidak melakukan apa-apa
• strrev mengembalikan string ke belakang

Panjang yang sama dengan for-loop

for(;strrev($i+=$argv[1])!=$i;);echo$i;

Brachylog , 8 byte

:L#>*.r=

Cobalah online! (sekitar 5 detik untuk 1234)

Verifikasi semua testcases. (sekitar 20 detik)

:L#>*.r=
?:L#>*.r=.   Implicitly filling Input and Output:
             Input is prepended to every predicate,
             Output is appended to every predicate.

?:L  *.      Input*L is Output,
  L#>        L is positive,
      .r .   Output reversed is Output,
        =.   Assign a value to Output.

Javascript (ES6), 55 51 byte

4 byte berkat Neil.

f=(x,c=x)=>c==[...c+""].reverse().join``?c:f(x,x+c)

<input type=number min=1 oninput=o.textContent=this.value%10&&f(+this.value)><pre id=o>

Pyke, 11 9 byte

.f*`D_q)*

Coba di sini!

C, 217 189 byte

Versi mandiri:

int a(char*b){int c=strlen(b);for(int i=0;i<c/2;i++)if(b[i]!=b[c-i-1])return 0;}int main(int e,char **f){int b,c;char d[9];b=atoi(f[1]);c=b;while(1){sprintf(d,"%d",c);if(a(d)&&(c/b)*b==c)return printf("%d",c);c++;}}

Panggil ke versi fungsi:

int s(char*a){int b=strlen(a);for(int i=0;i<b/2;i++)if(a[i]!=a[b-i-1])return 0;}int f(int a){int b;char c[9];b=a;while(1){sprintf(c,"%d",b);if(s(c)&&(b/a)*a==b)return printf("%d",b);b++;}}

Tidak Terkumpul:

#include <stdlib.h>
#include <string.h>
#include <stdio.h>

int check_palindrome(char *str) {
  int length = strlen(str);

  for (int i = 0; i < length / 2; i++) {
    if (str[i] != str[length - i - 1])
      return 0;
  }
  return 1;
}

int main(int argc, char **argv) {
  int number;
  int pal;
  char string[15];

  number = atoi(argv[1]);
  pal = number;
  while (1) {
    sprintf(string, "%d", pal);
    if (check_palindrome(string) && (pal / number) * number == pal)
      {
        printf("%d\n", pal);
        return 1;
      }
    pal++;
  }
  return 0;
}

Panggilan ke suatu fungsi yang tidak ditandai:

int s(char *a) {
  int b = strlen(a);

  for (int i = 0; i < b / 2; i++) {
    if (a[i] != a[b - i - 1])
      return 0;
  }
  return 1; //We can remove it, it leads to a undefined behaviour but it works
}

int f(int a) {
  int b;
  char c[9];

  b = a;
  while (1) {
    sprintf(c, "%d", b);
    if (s(c) && (b / a) * a == b)
      {
        printf("%d\n", b); //no need for the \n
        return 1; //just return whatever printf returns, who cares anyway ?
      }
    b++;
  }
  return 0; //no need for that
}

Saya menyertakan versi mandiri untuk historisitas.

Ini codegolf pertama saya, ada komentar apa pun!

R, 117 113 109 101 byte

D=charToRaw;P=paste;S=strtoi;a=P(i<-scan()+1);while(!all(D(a)==rev(D(a))&&S(a)%%i==0)){a=P(S(a)+1)};a

Tidak disatukan

i<-scan()        #Takes the input

D=charToRaw      #Some aliases
P=paste
S=strtoi
a=P(i+1)         #Initializes the output

while(!(all(D(a)==rev(D(a)))&&(S(a)%%i==0))) #While the output isn't a palindrom and isn't
                                             #divisible by the output...
    a=P(S(a)+1)

a

all(charToRaw(a)==rev(charToRaw(a)))memeriksa apakah pada setiap posisi anilai adan kebalikannya sama (yaitu, jika apalindromik).
Dimungkinkan untuk bermain golf beberapa byte dengan bermain - main dengan types.

Sebenarnya , 15 14 byte

Diminta dijawab oleh Leaky Nun. Saran bermain golf diterima. Cobalah online!

╖2`╜*$;R=`╓N╜*

Tidak melakukanolf

          Implicit input n.
╖         Save n in register 0.
2`...`╓   Push first 2 values where f(x) is truthy, starting with f(0).
  ╜*$       Push register 0, multiply by x, and str().
  ;R        Duplicate str(n*x) and reverse.
  =         Check if str(n*x) == reverse(str(n*x)).
          The map will always result in [0, the x we want].
N         Grab the last (second) value of the resulting list.
╜*        Push n and multiply x by n again.
          Implicit return.

Haskell, 64 63 56 byte

x!n|mod x n==0,s<-show x,reverse s==s=x|y<-x+1=y!n
(1!)

Panggil dengan (1!)16atau hanya 1!16. Cobalah di Ideone.

VBSCRIPT, 47 byte

do:i=i+1:a=n*i:loop until a=eval(strreverse(a))

ungolfed

do                     #starts the loop
i=i+1                  #increments i, we do it first to start at 1 instead of 0
a=                     #a is the output
n*i                    #multiply our input n by i
loop until 
a=eval(strreverse(a))  #end the loop when our output is equal to its reverse

Perl, 25 byte

Termasuk +2 untuk -ap

Jalankan dengan input pada STDIN:

palidiv.pl <<< 16

palidiv.pl:

#!/usr/bin/perl -ap
$_+="@F"while$_-reverse

SILOS , 109 byte

readIO 
n = 0
lbla
n + i
a = n
r = 0
lblb
m = a
m % 10
r * 10
r + m
a / 10
if a b
r - n
r |
if r a
printInt n

Cobalah online!

Japt , 14 byte

V±U s w ¥V?V:ß

Cobalah online!

Terima kasih ETHproduk atas bantuannya! :)

MATL , 10 byte

0`G+tVtP<a

Cobalah online!

0      % Push 0
`      % Do...while
  G+   %   Add the input. This generates the next multiple of the input
  tV   %   Duplicate, convert to string
  tP   %   Duplicate, reverse
  <a   %   Is any digit lower than the one in the reverse string? This is the
       %   loop condition: if true, the loop proceeds with the next iteration
       % End do...while
       % Implicitly display

PowerShell v2 +, 72 byte

for($i=$n=$args[0];;$i+=$n){if($i-eq-join"$i"["$i".Length..0]){$i;exit}}

Lama karena bagaimana pembalikan ditangani di PowerShell - tidak terlalu baik. ;-)

Mengambil input $args[0], menyimpan ke dalam $i(variabel loop kami) dan $n(input kami). Loop tak terhingga, incrementing $ioleh $nsetiap kali (untuk jaminan keterbagian).

Setiap iterasi, kami memeriksa apakah $ipalindrom. Ada beberapa tipu daya yang terjadi di sini, jadi izinkan saya menjelaskannya. Pertama-tama kita ambil $idan tegaskan "$i". Itu kemudian array-diindeks dalam urutan terbalik ["$i".length..0]sebelum -joindiedit kembali menjadi string. Itu dimasukkan ke sisi kanan -eqoperator uality, yang secara implisit melemparkan kembali string ke dalam [int], karena itulah operan kiri. Catatan: casting ini menghilangkan nol di depan dari palindrome, tetapi karena kami dijamin inputnya tidak dapat dibagi 10, tidak apa-apa.

Kemudian, ifitu adalah palindrome, kita cukup menempatkan $ike dalam pipa dan exit. Output tersirat pada akhir eksekusi.

Uji Kasus

PS C:\Tools\Scripts\golfing> 1,2,16,17,42,111,302,1234|%{"$_ -> "+(.\smallest-palindrome-divisible-by-input.ps1 $_)}
1 -> 1
2 -> 2
16 -> 272
17 -> 272
42 -> 252
111 -> 111
302 -> 87278
1234 -> 28382

MATLAB, 76 byte

function s=p(n)
f=1;s='01';while(any(s~=fliplr(s))) s=num2str(n*f);f=f+1;end

Format panggilan adalah p(302)hasil adalah string.

Tidak ada yang pintar di sini. Itu melakukan pencarian linier, menggunakan num2str()dan fliplr()fungsi.

Pengaturan jelek ini adalah sentuhan yang lebih pendek daripada menggunakan while(1) ... if ... break endpola.

Tidak disatukan

function s = findFirstPalindromeFactor(n)
  f = 1;                        % factor
  s = '01';                     % non-palindromic string for first try
  while( all(s ~= fliplr(s)) )  % test s not palindrome
    s = num2str( n * f );       % factor of input as string
    f = f + 1;                  % next factor
  end

Mathematica, 49 byte

(c=#;Not[PalindromeQ@c&&c~Mod~#==0]~While~c++;c)&

Mulai penelusuran di c = N, dan tambah cjika bukan palindrom dan tidak dapat dibagi oleh N. Ketika kondisi terpenuhi, output c.

Jelly, 12 byte

¹µ+³ßµDU⁼Dµ?

Cobalah online!

Penjelasan:

Tautan ini membutuhkan 1 argumen. The µs membaginya menjadi 4 bagian. Mulai dari yang terakhir dan bergerak ke kiri:

           ? The three parts in front of this are the if, else, and
             condition of a ternary expression.
      DU⁼D  This condition takes a number n as an argument. It converts
            n to an array of decimal digits, reverses that array, and
            then compares the reversed array to the decimalization of
            n (ie is n palindromic in decimal?)
  +³ß  This is the else. It adds the original input argument to n
       and then repeats the link with the new value of n.
¹  This is the if. It returns the value passed to it.

Elixir , 75 byte

def f(p,a\\0),do: if'#{a+p}'|>Enum.reverse=='#{a+p}',do: a+p,else: f(p,a+p)

Python 2, 66 65 byte

iadalah input dan xoutput (akhirnya)

def f(i,x):
    y=x if x%i==0&&`x`==`x`[::-1]else f(i,x+1)
    return y

Setelah menggulir melalui jawaban lain saya menemukan jawaban Python 2 yang lebih pendek tapi saya berusaha untuk solusi saya jadi mungkin juga melemparkannya ke sini. ¯ \ _ (ツ) _ / ¯

REXX, 46 byte

arg a
do n=a by a until reverse(n)=n
end
say n

Python 2 , 44 byte

x=lambda n,m=0:m*(`m`==`m`[::-1])or x(n,m+n)

Cobalah online!

Saya tahu bahwa pertanyaan itu diposting lebih dari enam bulan yang lalu, tetapi ini lebih pendek daripada pengajuan Python lainnya.

QBIC , 29 byte

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

Penjelasan:

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

Perl 6 , 35 byte

->\N{first {$_%%N&&$_==.flip},N..*}

->\N{first {$_==.flip},(N,N*2...*)}

->\N{(N,N*2...*).first:{$_==.flip}}

Penjelasan:

-> \N {
  # from a list of all multiples of the input
  # ( deduced sequence )
  ( N, N * 2 ... * )

  # find the first
  .first:

  # that is a palindrome
  { $_ == .flip }
}

Perl 6, 39 byte

my &f={first {.flip==$_},($_,2*$_...*)}

(33 tidak termasuk my &f=)