শুরু কি সমান সমান দ্বারা অনুপ্রাণিত

একটি স্ট্রিং দেওয়া sএবং একটি পূর্ণসংখ্যা n, আউটপুট একটি truthy / falsey কিনা হিসেবে nম গৃহস্থালির কাজ sসমান nশেষ গৃহস্থালির কাজ থেকে তম s।

ইনপুট

একটি খালি খালি স্ট্রিং এবং একটি পূর্ণসংখ্যা। আপনি 0-ভিত্তিক সূচক বা 1-ভিত্তিক সূচক ব্যবহার করতে পারেন। পূর্ণসংখ্যাটি স্ট্রিংয়ের ভিত্তিতে বৈধ হওয়ার গ্যারান্টিযুক্ত। উদাহরণস্বরূপ, স্ট্রিংটি যদি "সুপারক্যালিফ্রাগালিস্টিকাল 123" হয় তবে পূর্ণসংখ্যা 1-ভিত্তিক সূচকের জন্য 1 থেকে 23 এবং 0-ভিত্তিক সূচকের জন্য 0 থেকে 22 পর্যন্ত হতে পারে। দয়া করে নোট করুন যে nদৈর্ঘ্যের অর্ধেকের চেয়ে বড় হতে পারে s।

ইনপুট প্রিন্টযোগ্য এএসসিআইআইয়ের মধ্যে সীমাবদ্ধ।

আউটপুট

একজন truthy / falsey কিনা উপর ভিত্তি করে মান nম মান sসমান nগত মান থেকে তম 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

code-golf string

— স্টিফেন
সূত্র

স্যান্ডবক্স (মুছে ফেলা)

— স্টিফেন

nকোড পয়েন্ট হিসাবে গ্রহণ করা কি গ্রহণযোগ্য হবে ? (যেমন মস্তিষ্ক-বিমানবিধ্বংসী কামান যেমন গূঢ় ভাষার জন্য)

— DJMcMayhem

@ ডিজেএমসিএমহেম নিশ্চিত

— স্টিফেন 21

11

জেলি , 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 ব্যবহার করে Ɠ

— fireflame241
সূত্র

পোস্টের আসল সংস্করণ থেকে 4 বাইট সমাধান ব্যর্থ হয়েছে:ịµU=

— ক্যালকুলেটরফ্লাইন

আপনি এটি ডায়াডিকের পরিবর্তে মোনাডিক তৈরি করে চারটি বাইটে উন্নতি করতে পারেন (এবং যুক্তির চেয়ে মানক ইনপুট থেকে এন নিয়েছেন): অনলাইনে চেষ্টা করুন! আপনি যখন কন্ট্রোল ফ্লোতে একটি বাইট এবং অতিরিক্ত বাইট অন নষ্ট করেন তখন এই কৌশলটি প্রায়শই কার্যকর হয় ³, Ɠব্যয়গুলি যেমন একটি বাইট হয় তবে ³অন্তর্নিহিত করে তোলে এবং প্রায়শই আপনাকে আরও নিয়ন্ত্রণ প্রবাহের নমনীয়তা দেয়।

@ আইজ ৫১২ ভাল ধারণা, উত্তরের আগে আমি আসলে কখনই ইনপুট ব্যবহার করিনি কারণ অন্তর্নিহিত যুক্তিগুলি আরও দক্ষ হতে থাকে।

— ফায়ার ফ্লেম 241

14

জাভাস্ক্রিপ্ট (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 বাইট সমাধান নির্দেশ করেছেন:

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

— ETHproductions
সূত্র

3

এর দুর্দান্ত ব্যবহার, এর জন্য এর ~আগে কখনও তা হবে না।

— স্টিফেন 21

10

এমএটিএল , 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

— ডিজেএমসিএমহেম
সূত্র

1

খুব চালাক পদ্ধতির!

— লুইস মেন্ডো

3

নিবন্ধন করুন যে সম্পূরক আপনার কাছ থেকে :) আসছে শান্ত

— DJMcMayhem

এখন আমরা দেখতে পাচ্ছি যে জেলি এই এক্সডিটিকে পরাজিত করতে পারে

— স্টিফেন

5

অক্টাভা , 22 বাইট

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

এটি অনলাইন চেষ্টা করুন!

বা একই বাইকাউন্ট:

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

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা:

এটি বেশ সোজা এগিয়ে। প্রথমটি ইনপুট হিসাবে একটি স্ট্রিং sএবং একটি পূর্ণসংখ্যার লাগে এবং সাম্যের জন্য "শেষ-এন + 1" উপাদানটির বিপরীতে nn'th উপাদানটি পরীক্ষা করে s(n)।

দ্বিতীয়টি বিপরীত n'th উপাদানটির s(n)বিরুদ্ধে n'th উপাদানটি পরীক্ষা করে s।

— স্টিও গ্রিফিন
সূত্র

5

05 এ বি 1 ই , 7 5 বাইট

-২ বাইট আদনানকে ধন্যবাদ

ÂøsèË

এটি অনলাইন চেষ্টা করুন! বা সমস্ত পরীক্ষা করে দেখুন

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

এটি অনলাইন চেষ্টা করুন!

— রিলে
সূত্র

ÂøsèËদুটি বাইট সংরক্ষণ করে

— আদনান

@ আদনান ধন্যবাদ! আমি জানতাম বিপরীত অনুলিপি যুক্ত করার জন্য 1 বাইট উপায় ছিল, আমি কীভাবে এটির লেবেল লাগানো হয়েছিল তা মনে করতে পারি না।

— রিলে 21

@ কমরেডস্পার্কলপনি আদনানের পরামর্শ অন্তর্ভুক্ত করার জন্য আমি এটি আপডেট করতে ভুলে গেছি।

— রিলে

5

হাস্কেল, 22 বাইট

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

0-basd। ব্যবহারের উদাহরণ: "letter" # 1-> True।

এটি অনলাইন চেষ্টা করুন!

— nimi
সূত্র

5

অ্যালিস , 24 বাইট

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

এটি অনলাইন চেষ্টা করুন!

ইনপুটটিতে একটি লাইনের স্ট্রিং এবং দ্বিতীয় লাইনের নম্বর থাকে। আউটপুট হয়Jabberwockyঅক্ষরগুলি একই এবং otherwise

ব্যাখ্যা

কার্ডিনাল মোডে একটি কমান্ড সহ এই প্রোগ্রামটি বেশিরভাগ অর্ডিনাল মোডে থাকে। লিনিয়ারাইজড, প্রোগ্রামটি নিম্নরূপ:

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

— Nitrodon
সূত্র

নিবন্ধন করুন

— স্টিফেন

3

@StephenS হাস্যরসাত্মক কথাবার্তা।

— মার্টিন ইন্ডার

@ স্টেফেনস বিটিডব্লিউ, আপনি যদি এলোমেলো পোস্টে আমার উল্লেখ করেন তবে আমি বিজ্ঞপ্তি পাই না। পিংস কেবল তখনই কাজ করে যদি পোস্টটি আমার হয় বা আমি নিজেই মন্তব্য করেছি (এবং আমি মনে করি পোস্টটি সম্পাদনা করি কিনা)। আপনি সাধারণত আমাকে আড্ডায় ডেকে আনি আরও ভাল।

— মার্টিন ইন্ডার

@ মার্টিনএন্ডার আমি একপ্রকার জানতাম, তবে আপনাকে পিং করার পক্ষে এটি যথেষ্ট গুরুত্বপূর্ণ ছিল না। নিশ্চিতকরণ এবং লিঙ্কের জন্য ধন্যবাদ :)

— স্টিফেন

5

পাইথন , 24 22 বাইট

-২ বাইট ধন্যবাদ আদনানকে।

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

এটি অনলাইন চেষ্টা করুন!

— totallyhuman
সূত্র

3

আমি মনে করি আপনি -n-1দ্বারা প্রতিস্থাপন করতে পারেন ~n।

— আদনান

কেন কেবল পাইথন 2? পাইথন 3 এ ঠিকঠাক কাজ করার মতো মনে হচ্ছে, আপনার এটি পরিবর্তন করে কেবল 'পাইথন' করা উচিত।

— sagiksp

@ সাগিক্স্প এটি টিআইও

— ফিলিপ নার্দি বাতিস্তা

ওহ, বুদ্ধিমান।

— sagiksp

@ সগিক্স্প হ্যাঁ, এটি টিআইওর টেমপ্লেট তবে আপডেট হয়েছে। :)

— সম্পূর্ণরূপে

4

কিউবিক্স , 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অন্যথায়।

3

জাভা 8, 43 42 বাইট

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

এখানে চেষ্টা করুন।

— কেভিন ক্রুইজসেন
সূত্র

3

সি #, 28 27 বাইট

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

@ কেভিন ক্রুজসেনকে একটি বাইট ধন্যবাদ সংরক্ষণ করা হয়েছে।

সংকলন a Func<string, Func<int, bool>>।

— TheLethalCoder
সূত্র

আপনি পরিবর্তন করে একটি বাইট সংরক্ষণ করতে পারবেন s.Length-n-1করার s.Length+~n।

— কেভিন ক্রুইজসেন

@ কেভিন ক্রুজসেন ধন্যবাদ, সুন্দর কৌশলটি কখনই সে সম্পর্কে ভাবেনি।

— TheLethalCoder

1

আমি পুরোপুরি সৎ হব, নিজে নিজে জেএসের মন্তব্যে তা পেয়েছি। :) বাইট-অপারেশনগুলি আসলে আমার দক্ষতা নয়।

— কেভিন ক্রুইজসেন

3

সিজেম , 8 বাইট

l~_W%.==

এটি অনলাইন চেষ্টা করুন!

0-সূচক সূচক প্রথম যায়।

— এরিক দ্য আউটগল্ফার
সূত্র

3

আর 51 বাইট

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

বেনামে ফাংশন, 1-ভিত্তিক সূচক ব্যবহার করে

— লাফানো বল
সূত্র

1

43 বাইট:function(s,n)(s=utf8ToInt(s))[n]==rev(s)[n]

— জিউসেপ

3

রুবি, 22 20 18 বাইট

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

— reitermarkus
সূত্র

3

আমার ধারণা ->s,n{s[n]==s[~n]}কাজ করা উচিত? (রুবির কোনও ধারণা নেই)

— ক্রিস্টোফ

এটা, চমৎকার! ধন্যবাদ!

— রিটারমার্কাস

3

Clojure, 27 বাইট

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

বাহ, এটি আমার প্রত্যাশার চেয়ে কম ছিল।

— NikoNyrh
সূত্র

3

এপিএল (ডায়ালগ) , 10 5 বাইট

⊃=⊃∘⌽

এটি একটি সূক্ষ্ম ফাংশন, যার নাম নির্ধারণ করা দরকার যেমন f←⊃=⊃∘⌽, এবং তারপরে তাকে বলা হয় int f string।

পুরো পাঁচটি বাইটের জন্য @ অ্যাডমকে ধন্যবাদ।

কিভাবে এটা কাজ করে:

⊃=⊃∘⌽  ⍝ 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 বাইট উত্তরটি সম্পাদনা করা হয়েছিল। আপনি যদি এটি দেখতে চান তবে পুনর্বিবেচনার ইতিহাসটি পরীক্ষা করে দেখুন।

— জে স্যালা
সূত্র

"এটি একটি অপ্রচলিত উপায়ে ইনপুট নেয়" - এপিএলে বাম এবং ডান দিকের আর্গুমেন্ট হিসাবে 2 উপাদান ইনপুট নেওয়া সম্পূর্ণ মানসম্মত এবং সর্বদা গ্রহণযোগ্য যদি না ওপি নির্দিষ্টভাবে উদ্ভট কারণে এটি নিষিদ্ধ করে।

— জোনা

@ জোনাঃ হ্যাঁ, চ্যাটের লোকেরা আমাকে সে সম্পর্কে আলোকিত করেছিল। আমি এটি এটিকে রেখেছি কারণ ওপি ঠিক আছে কিনা তা নির্দিষ্টভাবে উল্লেখ করে না। আমি এটি সম্পাদনা করব যখন আমি আমার পিসিতে ফিরে আসি যাতে সংক্ষিপ্ত উত্তরটি প্রথমে উপস্থিত হয়।

— জে.সাল্ল

"অন্তর্নিহিতভাবে ধরে নেওয়া হয়" সম্পর্কিত: প্রকৃতপক্ষে, এই ফাংশনটি তাত্পর্যপূর্ণভাবে ডাকা হলেও এটি কাজ করবে এবং তারপরে 1ডিফল্ট বাম যুক্তি হিসাবে উপস্থিত হবে to এটি অনলাইন চেষ্টা করুন! ফাংশনগুলি কিছু অনুমান করে না; এগুলি বর্ণহীনভাবে প্রয়োগ করা হচ্ছে কারণ তাদের একটি বাম এবং ডান যুক্তি উভয়ই দেওয়া হয়েছে।

— অ্যাডম

@ আদম আমি ভেবেছিলাম যে এটি ঘটেছে কারণ যখন এককভাবে বলা ⊃হয় তখন যুক্তির প্রথম উপাদানটি গ্রহণ করে? যাইহোক, আমি স্পষ্ট করতে সম্পাদনা করব।

— জে.সাল্লি

3

ভি , 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

— ডিজেএমসিএমহেম
সূত্র

এটি অনলাইন চেষ্টা করুন! এটি কিছুটা খাটো। মানুষ Àñx$x|ñঅনেক বেশি চরিত্রের মত অনুভূত। আমি কেবল একটি রেইজেক্স চেষ্টা করেছি, তবে এটি 24 টির মতো দীর্ঘ হয়েছে!

— nmjcman101

1

@ nmjcman101 দেখা যাচ্ছে যে আরও নতুন বৈশিষ্ট্য ব্যবহার করে এর চেয়ে ছোট হতে পারে।

— ডিজেএমসিএমহেম

ওহ বাহ আমি অনুশীলনের বাইরে এসেছি, আমি

— সবেও

@ nmjcman101 আমি একটি ব্যাখ্যা পোস্ট করেছি (এবং আরও কিছুটা

— গল্ফ দিয়েছি

2

গণিত, 34 বাইট

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

— J42161217
সূত্র

StringTake[#, #2]এর প্রথম #2 অক্ষর গ্রহণ করে #। StringPartএই ক্ষেত্রে ভাল কাজ করবে। #~(s=StringPart)~-#2==s@##&

— জংহওয়ান মিন

আমার ভুল সংশোধন করা হয়েছে!

— J42161217

#~s~{#2}==#~s~{#2}&সর্বদা ফল দেয় True...

— JWHwan Min

চূড়ান্ত স্থির! ....

— J42161217

1

আসলে, আপনি যদি একটি গ্রহণ করতে পারেন Listএর Stringইনপুট হিসাবে গুলি, তাই #[[#2]]==#[[-#2]]&যথেষ্ট হবে

— JungHwan ন্যূনতম

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)

    ]
}

— ব্র্যাড গিলবার্ট বি 2 গিলস
সূত্র

2

পিএইচপি> = 7.1, 36 বাইট

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

অনলাইন সংস্করণ

— জার্গ হালসারম্যান
সূত্র

1

~+$pএকটি বাইট সংরক্ষণ করে।

— ব্যবহারকারী 63956

2

পাইথ , 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

এটি অনলাইন চেষ্টা করুন!

— জিম
সূত্র

2

লুয়া, 46 বাইট

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

এটি অনলাইন চেষ্টা করুন!

— MCAdventure10
সূত্র

আপনি অনুমান করতে পারবেন না যে ইনপুটটি ইতিমধ্যে রয়েছে sএবং আপনার এটির

— আউটপুটও

2

জে, 6 বাইট

-4 বাইট ধন্যবাদ ফ্রাউনফ্রোগের জন্য

{(=|.)

আসল উত্তরের ব্যাখ্যা দেখুন - ধারণাটি যথেষ্ট অনুরূপ, তবে এটি একটি ডায়াডিক হুক দিয়ে সম্পন্ন হয়েছে যার ডান ক্রিয়াটি নিজেই একটি মোনাডিক হুক।

এটি অনলাইন চেষ্টা করুন!

মূল উত্তর (10 বাইট)

{=/@(,:|.)

,:|. বিপরীতে ডান দিকের তীরের উপরে ডান দিকের আর্ট

=/ তারা মূলত সমান?

{ বুলি আর্গ দ্বারা সূচিত সূচকটি বুলিয়ান তালিকা থেকে নিন

এটি অনলাইন চেষ্টা করুন!

— দুর্ভাগ্যআনয়নকারী
সূত্র

2

সি, 36 35 বাইট

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

প্রাকৃতিকভাবে 0-ভিত্তিক সূচক ব্যবহার করে।

এটি অনলাইন চেষ্টা করুন!

— এমডি এক্সএফ
সূত্র

আমার মনে হয় -1-nহতে পারে +~n।

— জোনাথন ফ্রেচ

1

জাপট , 10 9 8 বাইট

gV ¥Ug~V

এটি অনলাইন চেষ্টা করুন!

— লুক
সূত্র

1

কিউবিআইসি , 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.

— steenbergh
সূত্র

1

সিজেম, 11 বাইট

q~_2$=@@~==

খারাপ। অত্যধিক স্ট্যাক ম্যানিপুলেশন।

— Esolanging ফল
সূত্র

1

> <> ( এই দোভাষীর সাথে), 25 বাইট

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

এটি টিআইওতে কাজ করে না: টিআইও ইন্টারপ্রেটার [নির্দেশ দেওয়ার সময় নতুন স্ট্যাকটি বিপরীত করে না , তবে মাছের খেলার মাঠটি করে - উদাহরণস্বরূপ, এখানে এবং এখানে"abcde"5[ooooo; চালানোর তুলনা করুন ।

স্ট্রিং ইনপুটটি STDIN থেকে নেওয়া হয়েছে এবং আমরা ধরে নিই n ইতিমধ্যে স্ট্যাকের মধ্যে রয়েছে। 1-ইনডেক্সিং ব্যবহার করে।

মাছটি n তম অক্ষর পায় [:}]&, যা স্ট্যাকের প্রথম এন জিনিসগুলিকে একটি নতুন, বিপরীত স্ট্যাকের মধ্যে রাখে, সামান্য হেরফের করে, তারপর জিনিসগুলি পিছনে রাখে এবং রেজিস্টারে এন থ্রি অক্ষর সংরক্ষণ করে । এটি পুরো স্ট্যাকটিকে বিপরীত করে আবার একই কাজ করে এবং দুটি অক্ষর সমান হলে 1 এবং অন্যথায় 0 প্রদান করে returns

এটি 26 টি বাইটের জন্য টিআইওতে কাজ করছে বলে মনে হচ্ছে :

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

— গাছ
সূত্র

1

সি, 73 বাইট

জিসিসি 6.3.1 (কোনও পতাকা নেই) এর সাথে রয়েছে সংকলনগুলি কিছু অপ্রয়োজনীয় অবহেলা অন্তর্ভুক্ত।

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

ব্যবহার

$./a.out abcdcba 6

সত্যবাদি = কিছুই নয়, মিথ্যা = আবর্জনা।

— sigvaldm
সূত্র

1

লুয়া , 35 বাইট

1-ইনডেক্সিং ব্যবহার করে।

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

এটি অনলাইন চেষ্টা করুন!

— ফিলিপ নারদী বাটিস্তা
সূত্র

নবম চরটি কি শেষ চর থেকে নবম সমান হয়?

ইনপুট

আউটপুট

পরীক্ষার মামলা

জেলি , 5 4 বাইট

জাভাস্ক্রিপ্ট (ES6), 26 বাইট

এমএটিএল , 5 বাইট

অক্টাভা , 22 বাইট

05 এ বি 1 ই , 7 5 বাইট

হাস্কেল, 22 বাইট

অ্যালিস , 24 বাইট

ব্যাখ্যা

পাইথন , 24 22 বাইট

কিউবিক্স , 22 বাইট

ব্যাখ্যা

জাভা 8, 43 42 বাইট

সি #, 28 27 বাইট

সিজেম , 8 বাইট

আর 51 বাইট

রুবি, 22 20 18 বাইট

Clojure, 27 বাইট

এপিএল (ডায়ালগ) , 10 5 বাইট

কিভাবে এটা কাজ করে:

ভি , 26, 16 , 13 বাইট

গণিত, 34 বাইট

পার্ল 6 , 27 বাইট

পিএইচপি> = 7.1, 36 বাইট

পাইথ , 8 7 বাইট

ব্যাখ্যা:

লুয়া, 46 বাইট

জে, 6 বাইট

মূল উত্তর (10 বাইট)

সি, 36 35 বাইট

জাপট , 10 9 8 বাইট

কিউবিআইসি , 18 বাইট

সিজেম, 11 বাইট

> <> ( এই দোভাষীর সাথে), 25 বাইট

সি, 73 বাইট

লুয়া , 35 বাইট