เเรงบันดาลใจจาก การเริ่มต้นเท่ากับจุดจบ

รับสตริงsและจำนวนเต็มnเอาท์พุทความจริง / เท็จว่าnถ่านในนั้นsเท่ากับnth จากถ่านปลายในsวันจากถ่านที่สิ้นสุดใน

อินพุต

สตริงที่ไม่ว่างและจำนวนเต็ม คุณสามารถใช้การจัดทำดัชนี 0 หรือทำดัชนีตาม 1 จำนวนเต็มรับประกันว่าถูกต้องตามสตริง ตัวอย่างเช่นหากสตริงคือ "supercalifragalistic123" จำนวนเต็มสามารถอยู่ระหว่าง 1 ถึง 23 สำหรับการจัดทำดัชนีแบบ 1 และ 0 ถึง 22 สำหรับการจัดทำดัชนีแบบ 0 โปรดทราบว่าจะมีขนาดใหญ่กว่าครึ่งหนึ่งของความยาวของns

อินพุตถูก จำกัด ไว้ที่ ASCII ที่พิมพ์ได้

เอาท์พุต

ค่าความจริง / falsey ขึ้นอยู่กับว่าnค่า th ในsเท่ากับnth จากมูลค่าสุดท้ายsมา

โปรดทราบว่าอักขระตัวสุดท้ายอยู่ในตำแหน่ง 0 สำหรับการจัดทำดัชนีแบบ 0 และตำแหน่ง 1 สำหรับการจัดทำดัชนีแบบ 1 คิดว่ามันเป็นการเปรียบเทียบสตริงกับสิ่งที่ตรงกันข้าม

กรณีทดสอบ

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 การจัดทำดัชนี

"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

เยลลี่ , 5 4 ไบต์

=UƓị

ลองออนไลน์!

ไม่ควรมีคำตอบสั้น ๆ ในเยลลี่ โปรแกรมจะต้องมีการเปรียบเทียบการกลับรายการ / การปฏิเสธการเรียกดัชนีและไบต์สำหรับโฟลว์การควบคุม ( Ɠในกรณีนี้) ซึ่งเพิ่มได้สูงสุดสี่ไบต์

มันทำงานอย่างไร

 =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 ไบต์โดยใช้ @ ais523 Ɠ

JavaScript (ES6), 26 ไบต์

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

อีกวิธีหนึ่งคือ:

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

อันนี้เกือบใช้งานได้ แต่ล้มเหลวเมื่อn == 0(เพราะs.slice(-1,0) == ""):

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

อีกโซลูชัน 26 ไบต์ที่@RickHitchcockชี้ให้เห็น:

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

MATL , 5 ไบต์

tP=w)

ลองออนไลน์!

คำอธิบาย:

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 

อ็อกเทฟ 22 ไบต์

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

ลองออนไลน์!

หรือจำนวนเดียวกัน:

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

ลองออนไลน์!

คำอธิบาย:

มันค่อนข้างตรงไปตรงมา อันแรกใช้สตริงsและจำนวนเต็มnเป็นอินพุตและตรวจสอบองค์ประกอบที่ n'ths(n)กับ "last-n + 1" เพื่อความเท่าเทียมกัน

อันที่สองตรวจสอบองค์ประกอบที่ n'th s(n)กับองค์ประกอบที่ n ของการsกลับรายการ

05AB1E , 7 5 ไบต์

-2 ไบต์ขอบคุณAdnan

ÂøsèË

ลองออนไลน์! หรือลองทดสอบทั้งหมด

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

ลองออนไลน์!

Haskell, 22 ไบต์

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

0 basd ตัวอย่างการใช้งาน: ->"letter" # 1True

ลองออนไลน์!

อลิซ 24 ไบต์

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

ลองออนไลน์!

อินพุตประกอบด้วยสตริงในหนึ่งบรรทัดและตัวเลขในบรรทัดที่สอง ผลผลิตคือJabberwockyถ้าอักขระเหมือนกันและไม่มีอะไรเป็นอย่างอื่น

คำอธิบาย

โปรแกรมนี้ส่วนใหญ่อยู่ในโหมดปกติโดยมีหนึ่งคำสั่งในโหมดที่สำคัญ เป็น Linearized โปรแกรมดังต่อไปนี้:

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

งูหลาม , 24 22 ไบต์

-2 ไบต์ขอบคุณ Adnan

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

ลองออนไลน์!

Cubix , 22 ไบต์

..@.IAp):tBvpptc?1.\O0

1 จัดทำดัชนีจะเข้าเป็นindex,stringคั่นด้วยช่องว่าง

ลองออนไลน์

Cubified

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

คำอธิบาย

นี่คือเส้นตรงส่วนใหญ่ เหตุผลหลักคือ

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.

จากนั้นเราแยกสาขาด้วย?ถึงOutput 1หากผลลัพธ์เป็น 0 และ0อย่างอื่น

Java 8, 43 42 ไบต์

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

ลองที่นี่

C #, 28 27 ไบต์

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

บันทึกเป็นไบต์ด้วย @KevinCruijssen

Func<string, Func<int, bool>>รวบรวมไป

CJam , 8 ไบต์

l~_W%.==

ลองออนไลน์!

ดัชนี 0 ดัชนีไปก่อน

R 51 ไบต์

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

ฟังก์ชั่นไม่ระบุชื่อใช้การจัดทำดัชนีแบบ 1

Ruby, 22 20 18 ไบต์

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

Clojure, 27 ไบต์

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

ว้าวนี่สั้นกว่าที่ฉันคาดไว้

APL (Dyalog) , 10 5 ไบต์

⊃=⊃∘⌽

นี้เป็นฟังก์ชั่นโดยปริยายซึ่งจะต้องมีการกำหนดชื่อเช่นแล้วเรียกว่าเป็นf←⊃=⊃∘⌽int f string

ขอบคุณ @ Adámสำหรับพื้นที่ขนาด 5 ไบต์

มันทำงานอย่างไร:

⊃=⊃∘⌽  ⍝ 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)⍵'

ลองออนไลน์!

แก้ไขคำตอบ 22 ไบต์แล้ว หากคุณต้องการดูให้ตรวจสอบประวัติการแก้ไข

V , 26, 16 , 13 ไบต์

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

ลองออนไลน์!

hexdump:

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

1 การจัดทำดัชนี

คำอธิบาย:

ä$                  " 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

สำหรับการอ้างอิงคำตอบเดิมของฉันคือ:

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

ลองออนไลน์!(จัดทำดัชนี 0)

hexdump:

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

Mathematica, 34 ไบต์

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

Perl 6 , 27 ไบต์

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

ทดสอบมัน

{ # 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 ไบต์

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

เวอร์ชั่นออนไลน์

Pyth , 8 7 ไบต์

q@zQ@_z

ด้วยการย้อนกลับของอินพุต: ก่อนอื่นดัชนีแล้วสตริง มันเป็นดัชนี 0

คำอธิบาย:

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

ลองออนไลน์!

ลัวะ 46 ไบต์

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

ลองออนไลน์!

J, 6 ไบต์

-4 ไบต์ขอบคุณ FrownyFrog

{(=|.)

ดูคำอธิบายคำตอบดั้งเดิม - ความคิดนั้นคล้ายคลึงกันมากพอ แต่สิ่งนี้สามารถทำได้โดยใช้ตะขอ dyadic ซึ่งคำกริยาที่ถูกต้องนั้นเป็นตะขอ monadic

ลองออนไลน์!

คำตอบเดิม (10 ไบต์)

{=/@(,:|.)

,:|. ARG ขวาบนด้านบนของ ARG ขวากลับ

=/ พวกเขามีค่าเท่ากับหรือไม่

{ นำมาจากรายการบูลีนดัชนีที่ระบุโดยหาเรื่องด้านซ้าย

ลองออนไลน์!

C, 36 35 ไบต์

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

ใช้การจัดทำดัชนีแบบ 0 ตามธรรมชาติ

ลองออนไลน์!

Japt , 10 9 8 ไบต์

gV ¥Ug~V

ลองออนไลน์!

QBICขนาด 18 ไบต์

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

คำอธิบาย

?        =     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 ไบต์

q~_2$=@@~==

ไม่ดี มีการจัดการสแต็กมากเกินไป

> <> (พร้อมล่ามนี้ ) 25 ไบต์

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

มันไม่ทำงานใน TIO: ล่าม TIO จะไม่ย้อนกลับกองซ้อนใหม่เมื่อทำการ[เรียนการสอน แต่สนามเด็กเล่นปลา - เปรียบเทียบ"abcde"5[ooooo;วิ่งที่นี่และที่นี่เช่น

อินพุตสตริงถูกนำมาจาก STDIN และเราถือว่าnอยู่ในสแต็ก ใช้การจัดทำดัชนี 1 รายการ

ปลาได้รับอักขระที่nด้วย[:}]&ซึ่งจะดูดสิ่งแรกที่nลงบนสแต็กให้เป็นกองซ้อนที่กลับด้านใหม่จัดการกับบิตนั้นจากนั้นนำสิ่งกลับมาและบันทึกอักขระที่nลงในทะเบียน จากนั้นย้อนกลับสแต็กทั้งหมดและทำเช่นเดียวกันอีกครั้งและส่งคืน 1 หากอักขระสองตัวมีค่าเท่ากันและเป็นอย่างอื่น 0

นี้ดูเหมือนว่าจะทำงานที่ TIO , 26 ไบต์:

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

C, 73 ไบต์

คอมไพล์ตามที่เป็นกับ GCC 6.3.1 (ไม่มีแฟล็ก) การทำให้งงงวยบางอย่างที่ไม่จำเป็นรวมอยู่ด้วย

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

การใช้

$./a.out abcdcba 6

Truthy = nothing, falsey = ขยะ

Lua , 35 ไบต์

ใช้การจัดทำดัชนี 1 รายการ

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

ลองออนไลน์!