厳密非回文数 Nは、パリンドロームではない数である任意の（N-2塩基2）塩基。 これらの番号はOEISにリストされています
例えば、数19塩基2,3,4,5,6、... 17は：10011、201、103、34、31、... 12。これらの表現はいずれも回文的ではないため、その数は厳密に非回文的です。
このチャレンジでは、数値がパリンドロームでない場合は真実の値を返し、そうでない場合は偽の値を返す必要があります。
真実：
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
これはコードゴルフですので、できるだけ短く答えてください！
回答:
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（nbaseの回文である必要がありますn-1）になります。
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
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.
<3。
!Or@@Table[#==#~IntegerReverse~i,{i,2,#-2}]&
#~IntegerReverse~iベースiで記述されたときに入力の数字を反転するTIL 。
デニスのトリックで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
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)}
.polymod除数の無限リストでのヒントの使用。1362.polymod: 226 xx *
{...}を作成し-> $_ {...}、ほぼ同じです。また、を削除できるように、ラムダをどこにも格納する必要はありませんmy &f =。
¬{⟦₆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);}
再帰演習... iデバッグなしで（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
*/
for($b=$argn;--$b;)strrev($c=base_convert($argn,10,$b))!=$c?:die(1);STDINからの入力1を受け取り、0偽りのために、真実のために終了します。で実行し-Rます。
{⍵≤4:1⋄∼∨/{⍵≡⌽⍵}¨{⍵{(⍺⍴⍨⌊1+⍺⍟⍵)⊤⍵}w}¨2..¯2+w←⍵}
ここ{(⍺⍴⍨⌊1+⍺⍟⍵)⊤⍵}で、関数の変換は、桁数ベースのアルファの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
result < n-2チェックを追加することで再利用できると思います。