Tulis program yang membaca dari stdin dua bilangan bulat, setiap baris diakhiri, selanjutnya disebut "angka" dan "radix", dan:

1. Mencetak pesan tetap Anda inginkan jika nomor tersebut adalah palindrom di radix itu (misalnya true, t, 1)
2. Mencetak pesan tetap berbeda yang Anda inginkan jika nomor tersebut bukan merupakan palindrom di radix itu (misalnya false, f, 0, dll)
3. Pesan-pesan ini harus sama untuk setiap latihan, tetapi tidak ada aturan tentang apa yang harus mereka mainkan (apa pun yang terbaik untuk bermain golf).
4. Anda dapat menganggap input tersebut valid, dua bilangan bulat positif. "angka" tidak akan melebihi 2147483647, "radix" tidak akan melebihi 32767.
5. Anda mungkin tidak menggunakan sumber daya eksternal, tetapi Anda dapat menggunakan fungsi matematika apa pun yang disertakan secara default dalam bahasa Anda.

Catatan: radix hanyalah basis dari angka.

Sampel berjalan:

16
10
false

16
3
true

16
20
true

121
10
true

5
5
false

12346
12345
true

16781313
64
true

16781313
16
true

Fitur ganda J (23 char) dan K (19)

Kedua bahasa ini sangat mirip, baik secara umum maupun dalam golf khusus ini. Inilah J:

(-:|.)#.^:_1~/".1!:1,~1

• ,~1- Tambahkan nomor 1 untuk dirinya sendiri, membuat array 1 1.
• 1!:1- Baca dalam dua string dari keyboard ( 1!:1untuk membaca, dan 1menangani file / nomor untuk input keyboard).
• ". - Konversi setiap string ke angka.
• #.^:_1~/- F~/ x,yBerarti untuk menemukan y F x. Kami Fadalah #.^:_1, yang melakukan ekspansi basis.
• (-:|.)- Apakah argumen cocok dengan ( -:) kebalikannya ( |.)? 1untuk ya, 0untuk tidak.

Dan di sini adalah K:

a~|a:_vs/|.:'0::'``

• 0::'``- Baca dalam ( 0::) string untuk setiap 'baris ( ) dari konsol ( `adalah pegangan file untuk ini).
• .:'- Konversi ( .:) setiap ( ') string ke angka.
• _vs/|- Balikkan pasangan angka, sehingga radix berada di depan angka, dan kemudian masukkan ( /) fungsi ekspansi basis _vs("vektor dari skalar") di antara mereka.
• a~|a:- Tetapkan ekspansi yang dihasilkan ini ke a, dan kemudian periksa apakah acocok ( ~) kebalikannya ( |). Sekali lagi, 1untuk ya, 0untuk tidak.

GolfScript, 10 karakter

~base.-1%=

Itu yang mudah untuk GolfScript jika kita melakukannya dengan cara langsung. Outputnya adalah 0/ 1untuk false / true.

~       # Take input and evaluate it (stack: num rdx)
base    # Fortunately the stack is in the correct order for
        # a base transformation (stack: b[])
.       # Duplicate top of stack (stack: b[] b[])
-1%     # Reverse array (stack: b[] brev[])
=       # Compare the elements

APL (20)

⎕{≡∘⌽⍨⍵⊤⍨⍺/⍨⌊1+⍺⍟⍵}⎕

Keluaran 0atau 1, misalnya:

      ⎕{≡∘⌽⍨⍵⊤⍨⍺/⍨⌊1+⍺⍟⍵}⎕
⎕:
      5
⎕:
      5
0
      ⎕{≡∘⌽⍨⍵⊤⍨⍺/⍨⌊1+⍺⍟⍵}⎕
⎕:
      16781313
⎕:
      64
1

Penjelasan:

• ⎕{... }⎕: baca dua angka, berikan ke fungsi. ⍵adalah angka pertama dan ⍺merupakan angka kedua.
• ⌊1+⍺⍟⍵: floor(1+⍺ log ⍵), jumlah digit yang diperlukan untuk mewakili ⍵basis ⍺.
• ⍺/⍨: basis untuk setiap digit, jadi ⍺direplikasi dengan angka yang baru saja kita hitung.
• ⍵⊤⍨: mewakili ⍵dalam basis yang diberikan (menggunakan angka, sehingga berfungsi untuk semua nilai ⍺).
• ≡∘⌽⍨: lihat apakah hasilnya sama dengan kebalikannya.

Perl, 82 77 73 69 byte

$==<>;$.=<>;push(@a,$=%$.),$=/=$.while$=;@b=reverse@a;print@a~~@b?1:0

Angka-angka input diharapkan sebagai garis input STDIN dan hasilnya ditulis sebagai 1atau 0, yang pertama berarti angka pertama adalah palindrom dalam representasi basis yang diberikan.

Sunting 1: Menggunakan $=menyimpan beberapa byte, karena konversi internal ke int.

Sunting 2: Operator smartmatch ~~membandingkan elemen array secara langsung, sehingga konversi ke string tidak diperlukan.

Sunting 3: Optimasi dengan menghapus variabel yang tidak perlu.

65 byte : Jika string kosong dibolehkan sebagai output untuk false, empat byte terakhir dapat dihapus.

Versi tidak disatukan

$= = <>;
$. = <>;
while ($=) {
    push(@a, $= % $.);
    $= /= $.; # implicit int conversion by $=
}
@b = reverse @a;
print (@a ~~ @b) ? 1 : 0

Algoritma menyimpan digit angka yang dikonversi dalam array @a. Kemudian representasi string dari array ini dibandingkan dengan array dalam urutan terbalik. Spasi memisahkan digit.

Javascript 87

function f(n,b){for(a=[];n;n=(n-r)/b)a.push(r=n%b);return a.join()==a.reverse().join()}

nargumen adalah angka, bargumen adalah radix.

Sage, 45

Berjalan di prompt interaktif

A=Integer(input()).digits(input())
A==A[::-1]

Mencetak Truesaat palindrom, mencetak Falsesebaliknya

Perl 54 56 62

$==<>;$-=<>;while($=){$_.=$/.chr$=%$-+50;$=/=$-}say$_==reverse

Untuk diuji:

for a in $'16\n3' $'16\n10' $'12346\n12345' $'12346\n12346' $'21\n11' $'170\n16';do
    perl -E <<<"$a" ' 
        $==<>;$-=<>;while($=){$_.=$/.chr$=%$-+50;$=/=$-}say$_==reverse
    '
  done

akan memberi:

1

1


1

Jadi output ini 1untuk trueketika palindrom ditemukan dan tidak ada jika yang lain.

Tidak melakukan pelanggaran:

$==<>;                            # Stdin to `$=`  (value)
$-=<>;                            # Stdin to `$-`  (radix)
while ( $= ) {
    $_.= $/. chr ( $= % $- +50 ); # Add *separator*+ chr from next modulo to radix to `$_`
    $=/= $-                       # Divide value by radix
}
say $_ == reverse                 # Return test result

Nota :

• $_ adalah buffer baris saat ini dan kosong di awal.
• $=adalah variabel yang dipesan , aslinya digunakan untuk pencetakan garis, ini adalah penghitung baris. Jadi variabel ini adalah bilangan bulat , perhitungan apa pun pada ini akan menghasilkan bilangan bulat terpotong seperti jika int()digunakan.
• $- digunakan untuk bersenang-senang, hanya untuk tidak menggunakan huruf tradisional ... (beberapa kebingungan lagi) ...

Mathematica 77 43

IntegerDigits[n,b]mewakili n sebagai daftar angka dalam basis b. Setiap basis-b digit dinyatakan secara desimal.

Misalnya, 16781313 bukan palindrom di basis 17:

IntegerDigits[16781313, 17]

{11, 13, 15, 11, 14, 1}

Namun, ini adalah palindrom di basis 16:

IntegerDigits[16781313, 16]

{1, 0, 0, 1, 0, 0, 1}

Jika pasangan yang dipesan dalam contoh di atas dimasukkan,

(x=Input[]~IntegerDigits~Input[])==Reverse@x

akan kembali

Salah (* (karena {11, 13, 15, 11, 14, 1}! = {1, 14, 11, 15, 13, 11}) *)

Benar (* (karena {1, 0, 0, 1, 0, 0, 1} sama dengan {1, 0, 0, 0, 1, 0, 0, 1}) *)

Haskell (80 karakter)

tb 0 _=[]
tb x b=(tb(div x b)b)++[mod x b]
pali n r=(\x->(x==reverse x))(tb n r)

Sebut saja dengan pali $number $radix. Benar, ketika angka adalah palindrome, Salah jika tidak.

Ruby - 76 karakter

f=->(n,b){n==0?[]:[n%b,*f.(n/b,b)]};d=f.(gets.to_i,gets.to_i);p d==d.reverse

Perl 6 , 27 byte (22 tanpa stdin / out)

say (+get).base(get)~~.flip

Cobalah online!

  get()                     # pulls a line of stdin
 +                          # numerificate
(      ).base(get())        # pull the radix and call base to 
                            #  convert to string with that base
                    ~~      # alias LHS to $_ and smartmatch to
                      .flip # reverse of the string in $_

Perl6, raja golf yang dapat dibaca (golves?) (Dan juga beberapa tidak dapat dibaca).

Fungsi Perl 6 (bukan stdin / stdout), 22 byte

{$^a.base($^b)~~.flip}

Cobalah online!

dg - 97 byte

Mencoba dg :

n,r=map int$input!.split!
a=list!
while n=>
 a.append$chr(n%r)
 n//=r
print$a==(list$reversed a)

Dijelaskan:

n, r=map int $ input!.split!      # convert to int the string from input
a = list!                         # ! calls a function without args
while n =>
 a.append $ chr (n % r)           # append the modulus
 n //= r                          # integer division
print $ a == (list $ reversed a)  # check for palindrome list

C, 140 132

int x,r,d[32],i=0,j=0,m=1;main(){scanf("%d %d",&x,&r);for(;x;i++)d[i]=x%r,x/=r;i--;for(j=i;j;j--)if(d[j]-d[i-j])m=0;printf("%d",m);}

• radix 1 tidak didukung :)

Haskell - 59

Beberapa perubahan pada jawaban Max Ried.

0%_=[]
x%b=x`mod`b:((x`div`b)%b)
p=((reverse>>=(==)).).(%)

Pyth , 4 byte

_IjF

Cobalah di sini atau periksa test suite (Membutuhkan ~ 10-15 detik).

dc, 39 byte

Panjangnya adalah palindrome, tentu saja ( 33₁₂).

[[t]pq]sgod[O~laO*+sad0<r]dsrx+la=g[f]p

Nomor dan radix harus di atas tumpukan (di basis nomor saat ini); angka harus minimal 0, dan radix harus minimal 2. Outputnya tjika palindrom dan fjika tidak. Karena tidak ditentukan dalam tantangan, saya berasumsi bahwa angka tidak pernah memiliki angka nol di depan (jadi angka apa pun yang berakhir dengan 0tidak bisa menjadi palindrom).

Penjelasan

Sebagai program lengkap:

#!/usr/bin/dc

# read input
??

# success message
[[t]pq]sg

# set output radix
o

# keep a copy unmodified
d

# reverse the digits into register a
[O~ laO*+sa d0<r]dsrx

# eat the zero left on stack, and compare stored copy to a
+ la=g

# failure message
[f]p

LaTeX, 165 byte

Contoh di desmos.com

k, radix, adalah input yang dapat disesuaikan

b=\floor \left(\log _k\left(\floor \left(x\right)\right)\right)
f\left(x\right)=k^bx-x-\left(k^2-1\right)\sum _{n=1}^bk^{\left(b-n\right)}\floor \left(xk^{-n}\right)

Jika f(x)=0, xadalah palindrome di pangkalan k.

Perl 6 , 34 byte

-4 byte terima kasih kepada PhilH

{@(polymod $^a: $^b xx*)~~[R,] $_}

Cobalah online!

05AB1E ,  4  3 byte

вÂQ

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

в      # The first (implicit) input converted to base second (implicit) input
       #  i.e. 12345 and 12346 → [1,1]
       #  i.e. 10 and 16 → [1,6]
 Â     # Bifurcate the value (short for duplicate & reverse)
       #  i.e. [1,1] → [1,1] and [1,1]
       #  i.e. [1,6] → [1,6] and [6,1]
  Q    # Check if they are still the same, and thus a palindrome
       #  i.e. [1,1] and [1,1] → 1
       #  i.e. [1,6] and [6,1] → 0

C (gcc) , 79 byte

n,r,m;main(o){for(scanf("%d %d",&n,&r),o=n;n;n/=r)m=m*r+n%r;printf("%d",m==o);}

Cobalah online!

Kehabisan

n,r,m;main(o){
for(scanf("%d %d",&n,&r),       Read the number and the radix.
o=n;                            ...and save the number in o
n;                              Loop while n is non-zero
n/=r)                           Divide by radix to remove right-most digit.
m=m*r+n%r;                      Multiply m by radix to make room for a digit
                                and add the digit.
printf("%d",m==o);}             Print whether we have a palindrome or not.

Berdasarkan fakta bahwa untuk palindrome, kebalikan dari angka harus sama dengan angka itu sendiri.

Misalkan Anda memiliki nomor ABC tiga digit di beberapa pangkalan. Mengalikannya dengan basis akan selalu menghasilkan ABC0, dan membaginya dengan basis dalam AB dengan C sebagai sisanya. Jadi untuk membalikkan angka kita mengambil digit paling kanan dari nomor asli dan memasukkannya ke kanan pada nomor terbalik. Untuk memberi ruang bagi digit itu, kita gandakan kebalikannya dengan basis sebelumnya.

Pada dasarnya:

n       rev
ABC     0
AB      C
AB      C0
A       CB
A       CB0
0       CBA