Un número N estrictamente no palindrómico es un número que no es un palíndromo en ninguna base (en las bases 2 a N-2). Estos números están listados en OEIS

Por ejemplo, el número 19de la base de 2,3,4,5,6, ... 17 es: 10011, 201, 103, 34, 31, ... 12. Ninguna de estas representaciones es palindrómica, por lo que el número es estrictamente no palindrómico.

Para este desafío, debe devolver un valor verdadero si el número no es palindrómico, de lo contrario, un valor falso .

• Puede suponer que el número que le pasó es mayor o igual a 0.
• Su programa debería funcionar para valores hasta el tamaño entero de sus idiomas.

Casos de prueba:

Verdad:

0
1
2
3
4
6
11
19
47
53
79
103
389
997
1459

Falsy

5
7
8
9
10
13
16
43
48
61
62
101
113
211
1361

Este es un código de golf , ¡así que haga sus respuestas lo más breve posible!

C, 82 bytes

p(n,a,b,c,r){c=0;for(b=1;++b<n-2;c+=r==n)for(a=n,r=0;a>0;a/=b)r=r*b+a%b;return!c;}

Ideone it!

Explicación

Este código se invierte nen la base by se almacena en r:

for(a=n,r=0;a>0;a/=b)r=r*b+a%b;

El bucle exterior cuenta el número de bases de 2a n-1en el que nes un palíndromo.

Si nno es palindrómico, el recuento sería 1( ndebe ser un palíndromo en la base n-1).

Python 2, 71 bytes

n=input();b=1
while b<n-2:
 m=n;r=0;b+=1
 while m/(r!=n):r=r*b+m%b;m/=b

La salida es a través del código de salida , donde 0 es verdadero y 1 es falso. Pruébalo en Ideone .

SILOS , 206 bytes

GOTO e
lbld
c - 1
GOTO c
lble
readIO 
n = i
i - 3
b = i
b + 1
GOTO f
lbla
a = n
r = 0
lblb
m = a
m % b
r * b
r + m
a / b
if a b
r - n
r |
if r d
lblc
c + 1
i - 1
b - 1
lblf
if i a
c / c
c - 1
c |
printInt c

Pruébalo en línea!

Puerto de mi respuesta en C .

Haskell, 75 68 bytes

(a!c)b|a<1=c|x<-c*b+mod a b=div a b!x$b
f n=all((/=n).(n!0))[2..n-2]

Jalea , 9 bytes

bRµ⁼"US<3

Pruébalo en línea! o verificar todos los casos de prueba .

Cómo funciona

bRµ⁼"US<3  Main link. Argument: n

 R         Range; yield [1, ..., n].
b          Convert n to all bases between 1 and n, yielding a 2D array A>
  µ        Begin a new, monadic chain. Argument: A
     U     Upend; reverse the 1D arrays in A.
   ⁼"      Zipwith equal; yield 1 for each array that matches its inverse.
      S    Sum; add the resulting Booleans.
           If n > 1, the sum will be 2 if n is strictly non-palindromic (it is only
           a palindrome in bases 1 and n - 1), and greater than 2 otherwise.
           For 0 and 1, the sum will be 0 (sum of the empty array) and 1 (only a
           palindrome in base 1); both are less than 2.
       <3  Compare the sum with 3, yielding the desired Boolean.

Mathematica, 58 43 bytes

!Or@@Table[#==#~IntegerReverse~i,{i,2,#-2}]&

TIL que #~IntegerReverse~iinvierte los dígitos de la entrada cuando se escribe en la base i.

Pyth, 12 10 bytes

Guardado dos bytes con el truco de Dennis.

>3sm_IjQdS

Pruébalo en línea!

Explicación:

         S (Q)   Get all the bases we need by building a list from 1 to Q
   m               For all bases d in the bases list:
      jQd           cast Q to base d as a list
    _I              and check to see if the list is palindromic (invariant on reversal)
                  Compile all the results back into a list
  s                Sum the results (a shorter form of any), gives 3 or more for palindromics 
                    (2 is the usual because of bases 1 and Q-1)
>3                 And verify that the sum is greater than three to get non-palindromics

JavaScript (ES6), 83 bytes

f=(n,i=n-2,g=n=>n<i?[n]:[...g(n/i|0),n%i])=>i<2||`${a=g(n)}`!=a.reverse()&&f(n,i-1)

<input type=number oninput=o.textContent=f(this.value);><pre id=o>

Perl6, 110 72 65

my &f={?all(map {{.reverse ne$_}(@(.polymod: $^a xx*))},2..$_-2)}

No se pudo usar la base ya que está rota para cualquier base superior a 36.

Intentos anteriores

my &a={$^a??flat($a%$^b,a($a div$b,$b))!!()};my &f=-> $n {?all(map {.reverse ne$_ given @(a($n,$_))},2..$n-2)}
my &f=->\n {?all(map {.reverse ne$_ given @(n.polymod: $_ xx*)},2..n-2)}

Brachylog , 14 bytes

¬{⟦₆bk∋;?ḃ₍.↔}

Pruébalo en línea!

Salidas a través del predicado de éxito o falla, que se imprime true.o se false.ejecuta como un programa.

¬{           }    It cannot be shown that
        ?         the input
       ; ḃ₍       in a base
      ∋           which is an element of
  ⟦₆              the range from 1 to the input - 1
    b             without its first element
     k            or its last element
           .      can be unified with both the output variable
            ↔     and its reverse.

C, 77 bytes

h(n,b,k,z){for(z=0,k=n;z+=k%b,k/=b;z*=b);return b+3>n?1:z==n?0:h(n,++b,0,0);}

ejercicio recursivo ... cambio (b + 2> = n) con (b + 3> n) sin depuración ...

main()
{int  v[]={0,1,2,3, 4, 6,11,19,47,53,79,103,389,997,1459},
  n[]={5,7,8,9,10,13,16,43,48,61,62,101,113,211,1361}, m;
    // 0 1 2 3  4  5  6  7  8  9 10  11  12  13   14
 for(m=0; m<15; ++m)
    printf("%u=%u\n", v[m], h(v[m],2,0,0));
 for(m=0; m<15; ++m)
    printf("%u=%u\n", n[m], h(n[m],2,0,0));
}

/*
 77
 0=1
 1=1
 2=1
 3=1
 4=1
 6=1
 11=1
 19=1
 47=1
 53=1
 79=1
 103=1
 389=1
 997=1
 1459=1
 5=0
 7=0
 8=0
 9=0
 10=0
 13=0
 16=0
 43=0
 48=0
 61=0
 62=0
 101=0
 113=0
 211=0
 1361=0
*/

C, 129 bytes

f(n,b,k,j){int a[99];for(b=2;b+2<n;++b){for(j=0,k=n;a[j]=k%b,k/=b;++j);for(;k<j&&a[k]==a[j];++k,--j);if(k>=j)return 0;}return 1;}

PHP, 68 bytes

for($b=$argn;--$b;)strrev($c=base_convert($argn,10,$b))!=$c?:die(1);

toma información de STDIN, sale con 1for falsey, 0para verdad. Corre con -R.

APL (NARS), caracteres 47, bytes 94

{⍵≤4:1⋄∼∨/{⍵≡⌽⍵}¨{⍵{(⍺⍴⍨⌊1+⍺⍟⍵)⊤⍵}w}¨2..¯2+w←⍵}

donde {(⍺⍴⍨⌊1+⍺⍟⍵)⊤⍵}sería la conversión de función un omega positivo en dígitos base alfa número, y {⍵≡⌽⍵}sería la función comprobar palíndromo ... prueba:

  f←{⍵≤4:1⋄∼∨/{⍵≡⌽⍵}¨{⍵{(⍺⍴⍨⌊1+⍺⍟⍵)⊤⍵}w}¨2..¯2+w←⍵}
  f¨0 1 2 3 4 6 11 19 47 53 79 103 389 997 1459
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  f¨5 7 8 9 10 13 16 43 48 61 62 101 113 211 1361
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0