Terinspirasi oleh Apakah awal sama dengan akhir

Diberikan string sdan integer n, menampilkan kebenaran / falsey, apakah karakter nth ssama dengan nth dari karakter akhir s.

Memasukkan

String yang tidak kosong dan integer. Anda dapat menggunakan pengindeksan berbasis 0 atau pengindeksan berbasis 1. Bilangan bulat dijamin valid berdasarkan string. Misalnya, jika string adalah "supercalifragalistic123", integer dapat dari 1 hingga 23 untuk pengindeksan berbasis 1, dan 0 hingga 22 untuk pengindeksan berbasis 0. Harap dicatat bahwa nbisa lebih besar dari setengah panjangnya s.

Masukan terbatas pada ASCII yang dapat dicetak.

Keluaran

Nilai kebenaran / kepalsuan didasarkan pada apakah nilai nth ssama dengan nth dari nilai terakhir di s.

Harap perhatikan bahwa karakter terakhir berada di posisi 0 untuk pengindeksan berbasis 0 dan posisi 1 untuk pengindeksan berbasis 1. Anggap saja membandingkan string dengan terbalik.

Uji Kasus

Diindeks 0

"1", 0         Truthy 1 == 1
"abc", 1       Truthy b == b
"aaaaaaa", 3   Truthy a == a
"[][]", 1      Falsey ] != [
"[][]", 0      Falsey [ != ]
"ppqqpq", 2    Truthy q == q
"ababab", 5    Falsey a != b
"12345", 0     Falsey 1 != 5
"letter", 1    Truthy e == e
"zxywv", 3     Falsey w != x

1-diindeks

"1", 1         Truthy 1 == 1
"abc", 2       Truthy b == b
"aaaaaaa", 4   Truthy a == a
"[][]", 2      Falsey ] != [
"[][]", 1      Falsey [ != ]
"ppqqpq", 3    Truthy q == q
"ababab", 6    Falsey a != b
"12345", 1     Falsey 1 != 5
"letter", 2    Truthy e == e
"zxywv", 4     Falsey w != x

Jelly , 5 4 byte

=UƓị

Cobalah online!

Seharusnya tidak ada jawaban yang lebih pendek di Jelly. Suatu program akan membutuhkan perbandingan, pembalikan / negasi, panggilan indeks, dan byte untuk aliran kontrol ( Ɠdalam hal ini), yang menambahkan hingga empat byte.

Bagaimana itu bekerja

 =UƓị 
       - (implicit) input string
 =     - equals (vectorizing by characters because a string is a charlist)
  U    - the reversed string
    ị  - get the element at the index of:
   Ɠ   - the input index

-1 byte terima kasih kepada @ ais523, menggunakan Ɠ

JavaScript (ES6), 26 byte

s=>n=>s[n]==s.substr(~n,1)

Kalau tidak:

s=>n=>s[n]==s.slice(~n)[0]

Yang ini hampir berhasil, tetapi gagal ketika n == 0(karena s.slice(-1,0) == ""):

s=>n=>s[n]==s.slice(~n,-n)

Solusi 26-byte lain yang ditunjukkan oleh @RickHitchcock :

s=>n=>s[n]==s[s.length+~n]

MATL , 5 byte

tP=w)

Cobalah online!

Penjelasan:

t   % Duplicate the input

Stack:
    ['ppqqpq' 'ppqqpq']

P   % Reverse the top element of the stack

Stack:
    ['ppqqpq' 'qpqqpp']

=   % Equals. Push an array of the indices that are equal

Stack:
    [[0 1 1 1 1 0]]

w   % Swap the top two elements

Stack:
    [[0 1 1 1 1 0], 3]

)   % Grab the a'th element of b 

Oktaf , 22 byte

@(s,n)s(n)==s(end-n+1)

Cobalah online!

Atau bytecount yang sama:

@(s,n)s(n)==flip(s)(n)

Cobalah online!

Penjelasan:

Cukup lurus ke depan. Yang pertama mengambil string sdan integer nsebagai input dan memeriksa elemen s(n)ke-n terhadap elemen "last-n + 1" untuk kesetaraan.

Yang kedua memeriksa elemen s(n)ke-n terhadap elemen ke-n sterbalik.

05AB1E , 7 5 byte

-2 byte terima kasih kepada Adnan

ÂøsèË

Cobalah online! atau Coba semua tes

     # Add a reversed copy on top of the original string
 ø    # Zip
  sè  # Extract the nth element
    Ë # Check if they are equal

Cobalah online!

Haskell, 22 byte

s#n=s!!n==reverse s!!n

0-basd. Contoh penggunaan: "letter" # 1-> True.

Cobalah online!

Alice , 24 byte

/t.~e?/-mom
\I!RtI&1n;@/

Cobalah online!

Input terdiri dari string pada satu baris, dan nomor pada baris kedua. Output adalah Jabberwockyjika karakternya sama, dan tidak ada yang sebaliknya.

Penjelasan

Program ini sebagian besar dalam mode ordinal, dengan satu perintah dalam mode kardinal. Secara linier, programnya adalah sebagai berikut:

I.ReI&1m;mt!~t?&-no

I  % Input first line
   % STACK: ["ppqqpq"]
.  % Duplicate top of stack
   % STACK: ["ppqqpq", "ppqqpq"]
R  % Reverse top of stack
   % STACK: ["ppqqpq", "qpqqpp"]
e  % Push empty string
   % STACK: ["ppqqpq", "qpqqpp", ""]
I  % Input next line
   % STACK: ["ppqqpq", "qpqqpp", "", "3"]
&  % (cardinal mode) Pop stack and repeat next command that many times
   % STACK: ["ppqqpq", "qpqqpp", ""], ITERATOR: [3]
1  % Append "1" to top of stack
   % STACK: ["ppqqpq", "qpqqpp", "111"]
m  % Truncate so the top two strings on the stack have the same length
   % STACK: ["ppqqpq", "qpq", "111"]
;  % Discard top of stack
   % STACK: ["ppqqpq", "qpq"]
m  % Truncate again
   % STACK: ["ppq", "qpq"]
t  % Extract last character
   % STACK: ["ppq", "qp", "q"]
!  % Move top of stack to tape
   % STACK: ["ppq", "qp"]
~  % Swap
   % STACK: ["qp", "ppq"]
t  % Extract last character
   % STACK: ["qp", "pp", "q"]
?  % Copy data from tape onto top of stack
   % STACK: ["qp', "pp", "q", "q"]
&  % Iterator: effectively a no-op in ordinal mode when the top of the stack is a 1-character string
   % STACK: ["qp", "pp", "q"], ITERATOR: ["q"]
-  % Remove occurrences: here, result is "" iff the characters are equal
   % STACK: ["qp", "pp", ""]
n  % Logical Not (for a consistent truthy value)
   % STACK: ["qp", "pp", "Jabberwocky"]
o  % Output top of stack

Python , 24 22 byte

-2 byte terima kasih kepada Adnan.

lambda s,n:s[n]==s[~n]

Cobalah online!

Cubix , 22 byte

[email protected]):tBvpptc?1.\O0

1-diindeks, mengambil input sebagai index, string, dipisahkan oleh spasi.

Cobalah online

Kubus

    . .
    @ .
I A p ) : t B v
p p t c ? 1 . \
    O 0
    . .

Penjelasan

Ini sebagian besar linier. Logika utamanya adalah

IAp):tBpptc

IA           Get the first input as an int and the rest as a string.
  p):        Move the index to the top of the stack, increment it, and copy it.
     t       Look up the appropriate character in the string.
      Bpp    Reverse the stack and put the index and character back on top.
         t   Look up the appropriate character in the reversed string.
          c  XOR the two characters.

Kami kemudian cabang dengan ?ke Output 1jika hasilnya adalah 0 dan 0sebaliknya.

Java 8, 43 42 byte

s->n->s.charAt(n)==s.charAt(s.length()+~n)

Coba di sini.

C #, 28 27 byte

s=>n=>s[n]==s[s.Length+~n];

Menyimpan satu byte berkat @KevinCruijssen.

Kompilasi ke a Func<string, Func<int, bool>>.

CJam , 8 byte

l~_W%.==

Cobalah online!

Indeks 0-diindeks pergi dulu.

R 51 byte

function(s,n){s=el(strsplit(s,''));s[n]==rev(s)[n]}

Fungsi anonim, menggunakan pengindeksan berbasis 1

Ruby, 22 20 18 byte

->s,n{s[n]==s[~n]}

Clojure, 27 byte

#(nth(map =(reverse %)%)%2)

Wow, ini lebih pendek dari yang saya harapkan.

APL (Dyalog) , 10 5 byte

⊃=⊃∘⌽

Ini adalah fungsi diam-diam, yang perlu diberi nama seperti f←⊃=⊃∘⌽, dan kemudian disebut sebagai int f string.

Terima kasih kepada @ Adám untuk 5 byte kekalahan.

Bagaimana itu bekerja:

⊃=⊃∘⌽  ⍝ Main function; tacit. 
       ⍝ Inputs are ⍺ = 1 (left) and ⍵ = 'abca' (right).
⊃      ⍝ ⍺⊃⍵, meaning 'pick the ⍺-th element of ⍵'
 =     ⍝ Compare to
    ⌽  ⍝ ⌽⍵, meaning 'invert ⍵'
  ⊃    ⍝ Again, ⍺⊃⍵, but:
   ∘   ⍝ Compose. This turns ⌽ into the right argument for ⊃,
       ⍝ which becomes 'pick the ⍺-th element from ⌽(the inverse of)⍵'

Cobalah online!

Jawaban 22 byte telah diedit. Jika Anda ingin melihatnya, periksa riwayat revisi.

V , 26, 16 , 13 byte

ä$Àñã2xñVpøˆ±

Cobalah online!

Hexdump:

00000000: e424 c0f1 e332 78f1 5670 f888 b1         .$...2x.Vp...

1 diindeks.

Penjelasan:

ä$                  " Duplicate this line horizontally
  Àñ   ñ            " Arg1 times...
    ã               "   Move to the center of this line
     2x             "   And delete two characters
        V           " Select this whole line
         p          " And replace it with the last pair of characters we deleted
          ø         " Count the number of matches of the following regex...
           <0x88>   "   Any character
                 ±  "   Followed by itself

Untuk referensi, jawaban asli saya adalah:

Àñx$x|ñxv$hhpÓ¨.©±/1
ñllS0

Cobalah online!(0 diindeks)

Hexdump:

00000000: c0f1 7824 787c f178 7624 6868 70d3 a82e  ..x$x|.xv$hhp...
00000010: a9b1 2f31 0af1 6c6c 5330                 ../1..llS0

Mathematica, 34 Bytes

s=StringTake;s[#,{#2}]==s[#,{-#2}]&

Perl 6 , 27 byte

{[eq] $^a.comb[$^b,*-1-$b]}

Menguji

{ # bare block lambda with two placeholder parameters ｢$a｣ and ｢$b｣

  [eq]        # reduce using string equality operator

    $^a       # declare first positional parameter

    .comb\    # split that into individual characters

    [         # index into that sequence

      $^b,    # declare and use second parameter

      *-1-$b  # closure that subtracts one and the 
              # second parameter of the outer block
              # (｢*｣ is the parameter of this closure)

    ]
}

PHP> = 7.1, 36 Bytes

[,$t,$p]=$argv;echo$t[$p]==$t[~+$p];

Versi Online

Pyth , 8 7 byte

q@zQ@_z

Dengan input terbalik: pertama indeks, lalu string. Diindeks 0.

Penjelasan:

q@zQ@_z
 @zQ        Get the nth (Qth) character
     _z     Reverse the string
    @       Get the nth character of the reversed string. Implicit input of the index
q           Test equality

Cobalah online!

Lua, 46 byte

function f(s,n)return s:byte(n)==s:byte(-n)end

Cobalah online!

J, 6 byte

-4 byte terima kasih kepada FrownyFrog

{(=|.)

Lihat penjelasan jawaban asli - idenya cukup mirip, tetapi ini dilakukan dengan kait diad yang kata kerja kanannya sendiri merupakan kait monadik.

Cobalah online!

jawaban asli (10 byte)

{=/@(,:|.)

,:|. arg kanan di atas arg kanan terbalik

=/ Apakah mereka secara elementer sama?

{ ambil dari daftar boolean indeks yang ditunjukkan oleh arg kiri

Cobalah online!

C, 36 35 byte

#define f(s,n)s[n]==s[strlen(s)+~n]

Menggunakan pengindeksan berbasis 0, secara alami.

Cobalah online!

Japt , 10 9 8 byte

gV ¥Ug~V

Cobalah online!

QBIC , 18 byte

?_s;,:,1|=_sA,-a,1

Penjelasan

?        =     PRINT -1 if equal, 0 otherwise, between
 _s     |      A substring of
   ;,:,1          A$ string (read from cmd line), from the n'th pos, length 1
 _sA,-a,1      And a substring of A$, n'th pos from the right, also 1 length
               The second Substring is auto-terminated because EOF.

CJam, 11 byte

q~_2$=@@~==

Buruk. Manipulasi tumpukan terlalu banyak.

> <> (dengan juru bahasa ini ), 25 byte

i:0(?v
]&=n;>~{:}[:}]&r[}

Ini tidak berfungsi di TIO: juru bahasa TIO tidak membalik tumpukan baru ketika melakukan [instruksi, tetapi taman bermain ikan tidak - bandingkan "abcde"5[ooooo;berjalan di sini dan di sini , misalnya.

Input string diambil dari STDIN, dan kami menganggap n sudah ada di stack. Menggunakan pengindeksan 1.

Ikan mendapat n th karakter dengan [:}]&yang sifon off pertama n hal-hal di stack menjadi baru, tumpukan terbalik, memanipulasi yang sedikit, kemudian menempatkan sesuatu kembali dan menyimpan n karakter th dalam register. Kemudian membalik seluruh tumpukan dan melakukan hal yang sama lagi, dan mengembalikan 1 jika kedua karakter sama, dan 0 sebaliknya.

Ini tampaknya bekerja di TIO , selama 26 byte:

i:0(?v
]&=n;>~{:}[{:}]&r[{

C, 73 byte

Kompilasi apa adanya dengan GCC 6.3.1 (tanpa bendera). Beberapa kebingungan yang tidak perlu termasuk.

main(c,v)char**v;{c=atoi(v[2]);putchar((*++v)[c]-(*v)[strlen(*v+1)-c]);}

Pemakaian

$./a.out abcdcba 6

Kebenaran = tidak ada, falsey = sampah.

Lua , 35 byte

Menggunakan pengindeksan 1.

s,n=...print(s:byte(n)==s:byte(-n))

Cobalah online!