Biorąc pod uwagę dodatnią liczbę całkowitą N, wyprowadzaj najmniejszą dodatnią liczbę całkowitą taką, że liczba ta jest palindromem (tzn. Stanowi swoją własną odwrotność) i jest podzielna przez N.

Palindrom (tj. Wynik) nie może wymagać początkowego zera, aby być palindromem, np. 080Nie jest poprawną odpowiedzią 16.

Dane wejściowe nigdy nie będą wielokrotnością 10, z poprzedniego powodu.

Twój program może zająć tyle czasu, ile to konieczne, nawet jeśli w praktyce odpowiedź byłaby o wiele za długa.

Wejścia i wyjścia

• Możesz wziąć dane wejściowe STDINjako argument funkcji lub coś podobnego.
• Możesz wydrukować dane wyjściowe STDOUT, zwrócić je z funkcji lub coś podobnego.
• Wejścia i wyjścia muszą być w systemie dziesiętnym.

Przypadki testowe

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

Punktacja

To jest golf golfowy , więc wygrywa najkrótsza odpowiedź w bajtach.

2sable / 05AB1E , 6/7 bajtów

2sable

[DÂQ#+

Wyjaśnienie

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

Wypróbuj online

05AB1E

[DÂQ#¹+

Różnica w stosunku do kodu 2sable polega na tym, że dane wejściowe są domyślnie tylko raz w 05AB1E, więc tutaj musimy ¹ponownie uzyskać pierwsze dane wejściowe.

Wypróbuj online

Zapisano 1 bajt z 2sable, jak sugeruje Adnan

Haskell, 45 37 34 bajtów

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

Pyth, 7 bajtów

*f_I`*Q

Wypróbuj online: demonstracja

Wyjaśnienie

*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 bajtów

Wersja golfowa:

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

Wersja bez golfa:

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

Wołanie do Emigny i Kevina Cruijssena za wkład w ulepszenia i zmniejszenie bajtów prawie o połowę :)

C #, 103 80 bajtów

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

Bez golfa

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

Python 2, 46 bajtów

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

Ideone to!

Rozwiązanie rekurencyjne z clicznikiem.

Sprawa 0jest interesująca, ponieważ chociaż c=0spełnia warunek palindromu, nie zostanie zwrócona, ponieważ ccc and 0 or xxxzawsze wraca xxx.

PHP, 39 bajtów

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

• Pobiera liczbę N jako argument $ argv [1];
• ; po chwili nic nie robić
• strrev zwraca ciąg do tyłu

Ta sama długość z pętlą for

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

Brachylog , 8 bajtów

:L#>*.r=

Wypróbuj online! (około 5 sekund na 1234)

Sprawdź wszystkie przypadki testowe. (około 20 sekund)

: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 bajtów

4 bajty dzięki Neilowi.

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 bajtów

.f*`D_q)*

Wypróbuj tutaj!

C, 217 189 bajtów

Wersja samodzielna:

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

Wywołanie do wersji funkcji:

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

Nie golfowany:

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

Wywołanie funkcji niepoznanej:

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
}

Dołączyłem samodzielną wersję dla historyczności.

To jest mój pierwszy codegolf, każdy komentarz jest mile widziany!

R, 117 113 109 101 bajtów

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

Bez golfa

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)))sprawdza, czy w każdej pozycji awartość ai jej odwrotność są takie same (tj. czy ajest palindromiczne).
Może być możliwe wygranie niektórych bajtów przez zabawę z types.

Faktycznie , 15 14 bajtów

Zapytany o odpowiedź przez Dziurawą Zakonnicę. Sugestie dotyczące gry w golfa mile widziane. Wypróbuj online!

╖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 bajtów

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

Zadzwoń z (1!)16lub po prostu 1!16. Wypróbuj na Ideone.

VBSCRIPT, 47 bajtów

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

bez golfa

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 bajtów

Obejmuje +2 za -ap

Uruchom z wejściem na STDIN:

palidiv.pl <<< 16

palidiv.pl:

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

SILOS , 109 bajtów

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

Wypróbuj online!

Japt , 14 bajtów

V±U s w ¥V?V:ß

Wypróbuj online!

Dziękujemy ETHproductions za pomoc! :)

MATL , 10 bajtów

0`G+tVtP<a

Wypróbuj 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 bajty

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

Długi z powodu sposobu cofania w PowerShell - niezbyt dobrze. ;-)

Pobiera dane wejściowe $args[0], przechowuje w $i(nasza zmienna pętli) i $n(nasze dane wejściowe). Pętle nieskończenie rosną $iza $nkażdym razem (aby zapewnić podzielność).

Przy każdej iteracji sprawdzamy, czy $ijest to palindrom. Dzieje się tu trochę sztuczek, więc wyjaśnię. Najpierw bierzemy to $ii zaostrzamy "$i". Jest to następnie indeksowane tablicowo w odwrotnej kolejności, ["$i".length..0]zanim zostanie z -joinpowrotem edytowane do łańcucha. Jest to podawane po prawej stronie -eqoperatora uality, który domyślnie rzutuje ciąg z powrotem na [int], ponieważ jest to lewy operand. Uwaga: ten rzutowanie usuwa wszystkie wiodące zera z palindromu, ale ponieważ jesteśmy pewni, że dane wejściowe nie są podzielne przez 10, to w porządku.

Następnie ifjest to palindrom, po prostu umieszczamy $ina rurociągu i exit. Dane wyjściowe są niejawne na końcu wykonania.

Przypadki testowe

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 bajtów

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

Format połączenia to p(302)wynik, że jest to ciąg znaków.

Nic mądrego tutaj. Wykonuje wyszukiwanie liniowe za pomocą funkcji num2str()i fliplr().

To brzydkie ustawienie jest odrobinę krótsze niż użycie while(1) ... if ... break endwzoru.

Bez golfa

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 bajtów

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

Rozpoczyna wyszukiwanie od c = Ni zwiększa, cjeśli nie jest palindromem i nie można go podzielić N. Po spełnieniu warunków wyjścia c.

Galaretka, 12 bajtów

¹µ+³ßµDU⁼Dµ?

Wypróbuj online!

Wyjaśnienie:

Ten link wymaga 1 argumentu. Gdy µs podzielić ją na 4 części. Zaczynając od ostatniego i przesuwając się w lewo:

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

Eliksir , 75 bajtów

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 bajtów

ijest wejściem i xjest (ostatecznie) wyjściem

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

Po przewinięciu innych odpowiedzi znalazłem krótszą odpowiedź w Pythonie 2, ale włożyłem wysiłek w moje rozwiązanie, więc równie dobrze mogę tu rzucić. ¯ \ _ (ツ) _ / ¯

REXX, 46 bajtów

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

Python 2 , 44 bajty

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

Wypróbuj online!

Wiem, że pytanie zostało wysłane ponad sześć miesięcy temu, ale było ono krótsze niż jakiekolwiek inne przesłanie Pythona.

QBIC , 29 bajtów

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

Wyjaśnienie:

:      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 bajtów

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

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

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

Wyjaśnienie:

-> \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 bajtów

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

(33 z wyłączeniem my &f=)