Cho một số nguyên dương N, xuất ra số nguyên dương nhỏ nhất sao cho số này là một palindrom (nghĩa là đảo ngược của chính nó) và chia hết cho N.

Bảng màu (tức là đầu ra) không cần số 0 đứng đầu là bảng màu, ví dụ: 080không phải là câu trả lời hợp lệ cho 16.

Đầu vào sẽ không bao giờ là bội số của 10, vì lý do trước đó.

Chương trình của bạn có thể mất nhiều thời gian khi cần thiết, ngay cả khi trong thực tế, nó sẽ quá dài để đưa ra câu trả lời.

Đầu vào và đầu ra

• Bạn có thể lấy đầu vào thông qua STDIN, làm đối số hàm hoặc bất cứ thứ gì tương tự.
• Bạn có thể in đầu ra STDOUT, trả lại từ một chức năng hoặc bất cứ thứ gì tương tự.
• Đầu vào và đầu ra phải ở trong cơ sở thập phân.

Các trường hợp thử nghiệm

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

Chấm điểm

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte sẽ thắng.

2sable / 05AB1E , 6/7 byte

2sable

[DÂQ#+

Giải trình

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

Dùng thử trực tuyến

05AB1E

[DÂQ#¹+

Sự khác biệt của mã 2sable là đầu vào chỉ được ẩn một lần trong 05AB1E, vì vậy ở đây chúng ta cần ¹lấy lại đầu vào đầu tiên.

Dùng thử trực tuyến

Đã lưu 1 byte với 2sable theo đề xuất của Adnan

Haskell, 45 37 34 byte

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

Bình thường, 7 byte

*f_I`*Q

Dùng thử trực tuyến: Trình diễn

Giải trình

*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

Phiên bản chơi gôn:

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

Phiên bản bị đánh cắp:

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

Hét lên Emigna và Kevin Cruijssen vì đã đóng góp cải tiến và cắt giảm các byte gần một nửa :)

C #, 103 80 byte

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

Bị đánh cắp

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)

Nghĩa là nó!

Giải pháp đệ quy với cnhư bộ đếm.

Trường hợp 0này là thú vị, bởi vì mặc dù c=0đáp ứng điều kiện palindrom, nó sẽ không được trả lại, bởi vì ccc and 0 or xxxluôn luôn trả về xxx.

PHP, 39 byte

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

• Lấy số N làm đối số $ argv [1];
• ; sau khi không làm gì cả
• strrev trả lại chuỗi ngược

Cùng chiều dài với vòng lặp for

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

Brachylog , 8 byte

:L#>*.r=

Hãy thử trực tuyến! (khoảng 5 giây cho 1234)

Xác nhận tất cả các testcase. (khoảng 20 giây)

: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 nhờ 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)*

Hãy thử nó ở đây!

C, 217 189 byte

Phiên bản độc lập:

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++;}}

Gọi tới một phiên bản chức năng:

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++;}}

Ung dung:

#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;
}

Gọi đến một chức năng vô căn cứ:

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
}

Tôi bao gồm các phiên bản độc lập cho lịch sử.

Đây là codegolf đầu tiên của tôi, bất kỳ bình luận nào đều được chào đón!

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

Bị đánh cắp

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)))kiểm tra xem tại mỗi vị trí của agiá trị avà ngược lại của nó có giống nhau không (nghĩa là nếu alà palindromic).
Có thể chơi golf một số byte bằng cách làm rối tung với types.

Trên thực tế , 15 14 byte

Yêu cầu trả lời bởi Leaky Nun. Gợi ý chơi golf chào mừng. Hãy thử trực tuyến!

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

Ungolfing

          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!)

Gọi với (1!)16hoặc đơn giản 1!16. Hãy thử nó trên Ideone.

VBSCRIPT, 47 byte

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

vô dụng

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

Bao gồm +2 cho -ap

Chạy với đầu vào trên 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

Hãy thử trực tuyến!

Japt , 14 byte

V±U s w ¥V?V:ß

Hãy thử trực tuyến!

Cảm ơn bạn ETHproductions đã giúp đỡ! :)

MATL , 10 byte

0`G+tVtP<a

Hãy thử trực tuyến!

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}}

Lâu vì cách xử lý đảo ngược trong PowerShell - không tốt lắm. ;-)

Đưa đầu vào $args[0], lưu trữ vào $i(biến vòng lặp của chúng tôi) và $n(đầu vào của chúng tôi). Vòng lặp vô hạn, tăng dần $itheo $ntừng thời điểm (để đảm bảo tính phân chia).

Mỗi lần lặp lại, chúng tôi kiểm tra xem có phải $ilà một bảng màu không. Có một số mánh khóe xảy ra ở đây, vì vậy hãy để tôi giải thích. Trước tiên chúng tôi lấy $ivà xâu chuỗi nó với "$i". Sau đó, mảng được lập chỉ mục theo thứ tự ngược lại ["$i".length..0]trước khi được chỉnh -joinlại thành chuỗi. Điều đó được đưa vào phía bên phải của -eqtoán tử uality, điều này hoàn toàn đưa chuỗi trở lại thành một [int], vì đó là toán hạng bên trái. Lưu ý: quá trình truyền này không loại bỏ bất kỳ số 0 đứng đầu nào khỏi bảng màu, nhưng vì chúng tôi đảm bảo đầu vào không chia hết cho10 , nên không sao.

Sau đó, ifnó là một bảng màu, chúng tôi chỉ cần đặt $ilên đường ống vàexit . Đầu ra là ẩn ở cuối thực hiện.

Các trường hợp thử nghiệm

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

Định dạng cuộc gọi là p(302)kết quả là một chuỗi.

Không có gì thông minh ở đây. Nó thực hiện tìm kiếm tuyến tính, sử dụng các hàm num2str()và fliplr().

Sự sắp xếp xấu xí này là một liên lạc ngắn hơn so với sử dụng một while(1) ... if ... break endmô hình.

Bị đánh cắp

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

Toán học, 49 byte

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

Bắt đầu tìm kiếm tại c = N, và tăng cnếu không phải là một bảng màu và không chia hết cho N. Khi điều kiện được đáp ứng, đầu ra c.

Thạch, 12 byte

¹µ+³ßµDU⁼Dµ?

Hãy thử trực tuyến!

Giải trình:

Liên kết này có 1 đối số. Các µs chia nó thành 4 phần. Bắt đầu từ cuối cùng và di chuyển sang trái:

           ? 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.

Thuốc tiên , 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

ilà đầu vào và xlà (cuối cùng) đầu ra

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

Sau khi cuộn qua các câu trả lời khác, tôi tìm thấy câu trả lời Python 2 ngắn hơn nhưng tôi đã nỗ lực vào giải pháp của mình để có thể ném nó vào đây. ¯ \ _ (ツ) _ /

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)

Hãy thử trực tuyến!

Tôi biết rằng câu hỏi đã được đăng hơn sáu tháng trước, nhưng câu hỏi này ngắn hơn bất kỳ bài nộp Python nào khác.

QBIC , 29 byte

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

Giải trình:

:      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}}

Giải trình:

-> \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 không bao gồm my &f=)