엄격 비 대칭 수 N이있는 회문 아닌 숫자 임의 염기 (염기 2 N-2). 이 번호는 OEIS에 나와 있습니다

예를 들어, 숫자 19베이스에 2,3,4,5,6- ... 17 : 10011, 201, 103, 34, 31, ... 12. 이 표현들 중 어느 것도 회문식이 아니므로, 그 숫자는 엄격하게 회문이 아닙니다.

이 문제를 해결 하려면 숫자가 회문이 아닌 경우 참 값을, 그렇지 않으면 거짓 값 을 반환 해야 합니다 .

• 전달 된 숫자가 0보다 크거나 같다고 가정 할 수 있습니다.
• 프로그램은 언어의 정수 크기까지의 값으로 작동해야합니다.

테스트 사례 :

진실한 :

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

거짓 :

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

이것은 코드 골프 이므로 가능한 한 빨리 답변하십시오!

C, 82 바이트

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

무시 했어!

설명

이 코드 n는 기본에서 반대로 b되어 r다음에 저장됩니다 .

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

외부 루프에서 염기의 수를 계산 2에 n-1있는 n회문이다.

n회문이 아닌 경우 , 개수는 1( n기본 회문이어야합니다 n-1).

파이썬 2, 71 바이트

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

출력은 종료 코드 를 통해 이루어지며 , 여기서 0 은 진실이고 1 은 거짓입니다. Ideone에서 테스트하십시오 .

SILOS , 206 바이트

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

온라인으로 사용해보십시오!

내 대답의 포트 C 입니다.

하스켈, 75 68 바이트

(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]

젤리 , 9 바이트

bRµ⁼"US<3

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인하십시오 .

작동 원리

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.

매스 매 티카, 58 43 바이트

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

#~IntegerReverse~i기본 i로 쓸 때 입력의 숫자 를 반대로하는 TIL .

피스, 12 10 바이트

Dennis의 트릭으로 2 바이트를 절약했습니다.

>3sm_IjQdS

온라인으로 사용해보십시오!

설명:

         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

자바 스크립트 (ES6), 83 바이트

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>

펄 6, 110 72 65

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

36을 초과하는 기지에서 파손되었으므로 기지를 사용할 수 없습니다.

이전 시도

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 바이트

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

온라인으로 사용해보십시오!

술어 성공 또는 실패를 통해 출력하며, 인쇄 true.되거나 false.프로그램으로 실행되는 경우.

¬{           }    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 바이트

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

재귀 운동 ... 디버깅하지 않고 (b + 3> n)으로 (b + 2> = 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 바이트

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 바이트

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

STDIN에서 입력 1을 받고 허위로, 진실로 종료 0합니다. 로 실행하십시오 -R.

APL (NARS), 문자 47, 바이트 94

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

여기서 {(⍺⍴⍨⌊1+⍺⍟⍵)⊤⍵}숫자 기수 (α)의 함수 변환 한 포지티브 오메가 것 및 {⍵≡⌽⍵}기능 검사 회문 ... 테스트 할 것이다 :

  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