インスピレーション開始は終了と等しいか

文字列sと整数nを指定すると、nth char in sがnend char inのth と等しいかどうかについて、true / falseyを出力しsます。

入力

空ではない文字列と整数。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

-1バイト、@ ais523のおかげで、 Ɠ

JavaScript（ES6）、26バイト

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

代わりに：

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

この1はほとんど動作しますが、時に失敗した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を取り、s(n)等しいかどうか「最後のn + 1」要素に対してn番目の要素をチェックします。

2番目の要素s(n)は、n番目の要素とs反転したn 番目の要素を照合します。

05AB1E、7 5バイト

アドナンのおかげで-2バイト

Âø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低音。使用例："letter" # 1-> True。

オンラインでお試しください！

アリス、24バイト

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

オンラインでお試しください！

入力は、1行目の文字列と2行目の数字で構成されます。出力はJabberwocky、文字が同じ場合であり、それ以外は何もありません。

説明

このプログラムは主に序数モードで、1つのコマンドが基本モードになっています。線形化されたプログラムは次のとおりです。

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バイト

アドナンのおかげで-2バイト。

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

オンラインでお試しください！

Cubix、22バイト

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

1インデックスは、入力を受け取りindex、stringスペースで区切られました。

オンラインで試す

立方体

    . .
    @ .
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のおかげで1バイト節約できました。

にコンパイルします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]}

Clojure、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øˆ±

オンラインでお試しください！

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

オンラインでお試しください！

Lua、46バイト

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

オンラインでお試しください！

J、6バイト

FrownyFrogのおかげで-4バイト

{(=|.)

元の回答の説明を参照してください-アイデアは十分に似ていますが、これは、右動詞がそれ自体モナドフックであるダイアディックフックで達成されます。

オンラインでお試しください！

元の回答（10バイト）

{=/@(,:|.)

,:|. 右逆引数の上にある右引数

=/ それらは要素ごとに等しいですか？

{ そのブールリストから左引数で示されるインデックスを取得します

オンラインでお試しください！

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個を保存します番目の文字をレジスタにします。次に、スタック全体を反転させて同じことを繰り返し、2つの文字が等しい場合は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

真実=なし、偽=ゴミ。

Lua、35バイト

1インデックスを使用します。

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

オンラインでお試しください！