영감 은 시작이 끝과 같습니까?

문자열 s과 정수가 주어지면 th char in 이 end char in th 의 th 와 같은지에 n대한 진실 / 거짓을 출력합니다 .nsns

입력

비어 있지 않은 문자열과 정수 0 기반 인덱싱 또는 1 기반 인덱싱을 사용할 수 있습니다. 정수는 문자열을 기반으로 유효한 것으로 보장됩니다. 예를 들어 문자열이 "supercalifragalistic123"인 경우 정수는 1 기반 색인의 경우 1-23이고 0 기반 색인의 경우 0-22 일 수 있습니다. 그주의 사항 n의 절반 길이보다 클 수 있습니다 s.

입력은 인쇄 가능한 ASCII로 제한됩니다.

산출

의 nth 값 s이의 n마지막 값과 th 와 같은지 여부를 기반으로하는 참 / 거짓 값입니다 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Ɠị

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

젤리에는 더 짧은 대답이 없어야합니다. 프로그램은 비교, 반전 / 음화, 인덱스 호출 및 제어 흐름 바이트 ( Ɠ이 경우)를 필요로하므로 최대 4 바이트가 필요합니다.

작동 원리

 =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

@ ais523 덕분에 -1 바이트 Ɠ

자바 스크립트 (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)

@RickHitchcock이 지적한 또 다른 26 바이트 솔루션 :

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 번째 요소 s(n)와 "last-n + 1"요소가 같은지 점검합니다 .

두 번째 요소 s(n)는 n 번째 요소를 s반대로 n 번째 요소 와 비교합니다 .

05AB1E , 7 5 바이트

Adnan 덕분에 -2 바이트

ÂøsèË

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

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

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

하스켈, 22 바이트

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

0- 저음. 사용 예 : "letter" # 1-> True.

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

Alice , 24 바이트

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

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

입력은 한 줄의 문자열과 두 번째 줄의 숫자로 구성됩니다. 출력은 Jabberwocky문자가 동일하고 그렇지 않은 경우입니다.

설명

이 프로그램은 주로 순서 모드에 있으며 하나의 명령은 기본 모드에 있습니다. 선형화 된 프로그램은 다음과 같습니다.

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

Adnan 덕분에 -2 바이트

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그렇지.

자바 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 기반 인덱싱 사용

루비, 22 20 18 바이트

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

클로저, 27 바이트

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

와우, 이것은 내가 예상했던 것보다 짧았다.

APL (Dyalog) , 10 5 바이트

⊃=⊃∘⌽

이것은 암묵적인 기능으로, 같은 이름을 할당 한 f←⊃=⊃∘⌽다음로 호출해야 int f string합니다.

무려 5 바이트의 @ Adám에게 감사합니다.

작동 방식 :

⊃=⊃∘⌽  ⍝ 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øˆ±

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

16 진 덤프 :

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 인덱스)

16 진 덤프 :

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

수학, 34 바이트

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

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

FrownyFrog 덕분에 -4 바이트

{(=|.)

원래 답변 설명을 참조하십시오. 아이디어는 충분히 비슷하지만 오른쪽 동사 자체가 모나 딕 훅 인 2 개의 훅으로 수행됩니다.

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

원래 답변 (10 바이트)

{=/@(,:|.)

,:|. 오른쪽 오른쪽 arg 위에 오른쪽 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을 반환합니다.

이것은 26 바이트 동안 TIO 에서 작동하는 것 같습니다 .

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

진실 = 아무것도, 거짓 = 쓰레기.

루아 , 35 바이트

1- 인덱싱을 사용합니다.

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

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