নবম অ-প্যালিনড্রমিক নম্বর মুদ্রণ করুন


22

একটি প্যালিনড্রমিক নম্বর (যদি আপনি জানেন না) এমন একটি সংখ্যা যা পিছন এবং সামনের দিকে একই পাঠ করে (উদাহরণস্বরূপ, 11)। প্রথম 15 অ palindromic সংখ্যা: 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26। এটি A029742 । আমার ক্রমাগত এই সংখ্যাগুলির প্রয়োজন, তবে আমার স্টিকি নোট প্যাড খুব ছোট, তাই আপনার কোডটি যথাসম্ভব সংক্ষিপ্ত হতে হবে।

বিধি

  • প্রতিটি জমা দিতে হবে একটি সম্পূর্ণ প্রোগ্রাম বা ফাংশন (যেমন সি তে, আপনি কেবল শিরোনাম ব্যতীত কোনও ফাংশন সংজ্ঞায়িত করতে পারবেন না, তবে প্রয়োজনীয় শিরোনামের সাহায্যে আপনি কোনও ফাংশন সংজ্ঞায়িত করতে পারেন)।
  • যদি এটি সম্ভব হয় তবে এমন কোনও সাইটের লিঙ্ক সরবরাহ করুন যেখানে আপনার প্রোগ্রামটি পরীক্ষা করা যেতে পারে।
  • আপনার প্রোগ্রাম অবশ্যই কিছু লিখতে হবে না STDERR
  • আপনি যুক্তি হিসাবে বা STDIN(বা আপনার ভাষার নিকটতম বিকল্প) থেকে ইনপুট নিতে পারেন ।
  • বাইট অনুযায়ী প্রোগ্রাম করা হয় । সাধারণ অক্ষর সেটটি ইউটিএফ -8, আপনি যদি অন্য কোনও ব্যবহার করে থাকেন তবে দয়া করে নির্দিষ্ট করুন।
  • স্ট্যান্ডার্ড লুফোলগুলি নিষিদ্ধ।

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

1
==> 10

-----

5
==> 15

-----

12
==> 23

স্কোরিং

এটি , তাই কমপক্ষে বাইটস জিত।

জমা

আপনার উত্তরটি প্রদর্শিত হয়েছে তা নিশ্চিত করার জন্য, দয়া করে নীচের মার্কডাউন টেমপ্লেটটি ব্যবহার করে আপনার উত্তরটি শিরোনাম দিয়ে শুরু করুন:

# Language Name, N bytes

Nআপনার জমা দেওয়ার আকারটি কোথায় ? আপনি যদি নিজের স্কোরটি উন্নত করেন তবে আপনি পুরানো স্কোরগুলি শিরোনামে রেখে দিতে পারেন । এই ক্ষেত্রে:

# Ruby, <s>104</s> <s>101</s> 96 bytes

যদি আপনি নিজের শিরোনামে একাধিক সংখ্যা অন্তর্ভুক্ত করতে চান (যেমন আপনার স্কোর দুটি ফাইলের সমষ্টি বা আপনি পৃথকভাবে দোভাষী পতাকা দণ্ডের তালিকা করতে চান), নিশ্চিত করুন যে আসল স্কোরটি শিরোনামের শেষ সংখ্যা:

# Perl, 43 + 2 (-p flag) = 45 bytes

আপনি ভাষাটির নামটিকে একটি লিঙ্কও বানাতে পারেন যা লিডারবোর্ড স্নিপেটে প্রদর্শিত হবে:

# [><>](http://esolangs.org/wiki/Fish), 121 bytes

লিডারবোর্ড

নিয়মিত লিডারবোর্ড এবং ভাষার দ্বারা বিজয়ীদের একটি সংক্ষিপ্ত বিবরণ উভয়ই তৈরি করতে এখানে একটি স্ট্যাক স্নিপেট।


1
কোন টেস্টকেস?
লিকি নুন

@ কেনি লাউ আমি কিছু করব।
জর্জ গিবসন

আমরা কি 0-ভিত্তিক সূচক ব্যবহার করতে পারি, তাই 154 র্থ সংখ্যাটি হবে?
নিমি

@ নিমিমি হয়, তবে দয়া করে নির্দিষ্ট করুন আপনার যদি 0-ইনডেক্স থাকে।
জর্জ গিবসন

@ নিমিমি দুঃখিত, এটাই আমি বোঝাতে চাইছিলাম, স্পষ্ট করার জন্য সম্পাদনা করেছে।
জর্জ গিবসন

উত্তর:


9

পাইথ, 7 বাইট

e.f!_I`

পরীক্ষা স্যুট

ব্যাখ্যা:

e.f!_I`
e.f!_I`ZQ    Implicit variable introduction.
 .f     Q    Find the first Q numbers whether the following is truthy,
             starting at 1, where Q is the input.
      `Z     Convert the number to a string.
     _I      Check if it's the same when reversed.
    !        Logical not.
 e           Return the last element of the list.

5

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

([x|x<-[1..],(/=)<*>reverse$show x]!!)

0-ভিত্তিক সূচক ব্যবহার করে। ([x|x<-[1..],(/=)<*>reverse$show x]!!) 11-> 23

কোনও সংখ্যাকে (/=)<*>reverse$show xঅনুবাদ করে রাখতে হবে কিনা তা পরীক্ষা করে (show x) /= (reverse (show x)), অর্থাৎ সংখ্যার স্ট্রিং উপস্থাপনা স্ট্রিং প্রতিনিধিত্বের বিপরীতে সমান হয় না কিনা তা পরীক্ষা করে দেখুন।


4

ব্র্যাচল্যাগ , 14 11 বাইট

;0{<≜.↔¬}ⁱ⁽

ফ্যাটালাইজ করতে -৩ বাইটের ট্যাঙ্ক

ব্যাখ্যা

; {      }ⁱ⁽        --  Find the nth number
 0                  --      (starting with 0)
   <                --      which is bigger then the previous one
    ≜               --      make explicit (otherwise it fucks up)
      .             --      which is the output
       ↔            --      and if reversed
        ¬           --      is not the output

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


;İ{ℕ≜.↔¬}ᶠ⁽t2 বাইট সংক্ষিপ্ত।

প্রকৃতপক্ষে, ব্যবহার করা iterateহচ্ছে 1 বাইট সংক্ষিপ্ত:;0{<≜.↔¬}ⁱ⁽

3

জেলি, 9 বাইট

1 বাইট ধন্যবাদ @ স্প3000 কে

ṚḌ_
0dz#Ṫ

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

পরীক্ষা স্যুট.

ব্যাখ্যা

DUḌ_   Helper link. Check if x is not palindrome.

D      Convert to decimal.
 U     Reverse.
  Ḍ    Convert back to integer.
   _   Subtract x from the result above.
       For 23, this will yield 32-23 = 9.
       Only yield 0 (falsy) if x is palindrome.
       If x is not a palindrome,
       it will return a truthy number.


0dz#Ṫ  Main link.

0      Start from 0.
   #   Find the first         numbers:
  ³                   <input>
 Ç         where the above link returns a truthy number.
    Ṫ  Yield the last of the matches.

1
মজাদার ঘটনা: চেষ্টা করুন123Ṛ
Sp3000

@ Sp3000 সত্যিই খুব আকর্ষণীয়!
লিকি নুন

আপনি ড্রপ করতে পারেন ³। আপনি যদি ইনপুটটি STDIN এ রাখেন তবে আপনি এটিও ড্রপ করতে পারেন 0। (জেলির সর্বশেষ সংস্করণেও ṚḌ_ø#Ṫখুব কার্যকরভাবে কাজ করে তবে এটি এই চ্যালেঞ্জের চেয়ে নতুন।)
ডেনিস

আমার জন্য কাজ করে না ...
লিকি নুন

By

3

05 এ বি 1 ই , 8 বাইট

কোড:

µNÂÂQ>i¼

ব্যবহার সিপি-1252 এনকোডিং। এটি অনলাইন চেষ্টা করুন!


এটি সম্ভবত 05AB1E এর পুরাতন সংস্করণটির সাথে কিছু করার আছে তবে কৌতূহলের বাইরে: দ্বিগুণ দ্বিখণ্ডিত কেন Â? অন্য যে কেউ এটি পড়ার জন্য পিএস: এখন 5 বাইট হতে পারে µNÂʽ
কেভিন ক্রুইজসেন

@ কেভিন ক্রুজসেন: সম্ভবত এন এর কোনও অন্তর্নির্মিত আউটপুট না থাকায় (কেবল স্ট্যাকের শীর্ষে)। এছাড়াও, এটি এখন 4 বাইট হতে পারে ½কারণ এটিও অন্তর্নিহিত।
এমিগানা

@ এমিগনা আহ, পুরোপুরি ½অন্তর্নিহিত হওয়া সম্পর্কে ভুলে গিয়েছিলেন , যদিও আমি নিজেই লিখেছি এমন একটি টিপতে আমি এটি উল্লেখ করেছি ..> << মনে হয়েছিল ¼(1 দ্বারা পাল্টে পাল্টানো পরিবর্তন ) কিছুক্ষণের µজন্য লুপের জন্য অন্তর্ভুক্ত ছিল, তবে এটি সত্যই ½( যদি স্ট্যাকের শীর্ষস্থানীয় হয় 1: পরিবর্তে 1 দ্বারা
পাল্টে

3

ক্লোজার, 62 বাইট

#(nth(for[i(range):when(not=(seq(str i))(reverse(str i)))]i)%)

0-ইন্ডেক্স। তালিকার বোধগম্যতা ব্যবহার করে অ-প্যালিনড্রমিক সংখ্যার আলস্যভাবে অসীম পরিসীমা তৈরি করুন এবং এটি গ্রহণ করুন i। এটি অনলাইনে দেখুন: https://ideone.com/54wXI3


2

পাওয়ারশেল ভি 2 +, 65 বাইট

for(;$j-lt$args[0]){if(++$i-ne-join"$i"["$i".length..0]){$j++}}$i

যতক্ষণ না আমরা অনেকগুলি ম্যাচ ইনপুট সন্ধান করি , ততক্ষণ শেষটিকে আউটপুট না দেওয়া পর্যন্ত সংখ্যার মধ্য দিয়ে লুপগুলি 0(শনাক্তকরণের জন্য অন্তর্নিহিত মান $i) ops $args[0]নোট করুন যে আমরা লুপটি আরম্ভ করি না, তাই $j=0অন্তর্নিহিত।

প্রতিটি পুনরাবৃত্তি, আমরা প্রাক-বৃদ্ধি $i, এবং এটি $iবিপরীত সমান নয় কিনা তা পরীক্ষা করে দেখুন । যদি তা হয় তবে এর অর্থ আমরা একটি প্যালিনড্রোম খুঁজে পেয়েছি, তাই বৃদ্ধি $j। লুপটি তারপরে প্রয়োজনীয় হিসাবে যতবার চলতে থাকে।

উদাহরণ

PS C:\Tools\Scripts\golfing> .\print-nth-palindromic-number.ps1 100
120

PS C:\Tools\Scripts\golfing> .\print-nth-palindromic-number.ps1 5
15

PS C:\Tools\Scripts\golfing> .\print-nth-palindromic-number.ps1 55
70

PS C:\Tools\Scripts\golfing> .\print-nth-palindromic-number.ps1 212
245

2

পাইথন 2, 60 বাইট

f=lambda n,i=0,j=1:j>n and i-1or f(n,i+1,j+(`i`!=`i`[::-1]))

একটি এক সূচকযুক্ত ফাংশন যা nআর্গুমেন্টের মাধ্যমে ইনপুট নেয় এবং nতম অ-প্যালিনড্রমিক নম্বর প্রদান করে।

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

এটি একটি সম্পূর্ণ রিকার্সিভ অনুসন্ধান, যা পরপর পূর্ণসংখ্যার পরীক্ষা হয় iসীমার মধ্যে [1,∞)পর্যন্ত nঅ palindromic সংখ্যার পাওয়া গেছে; যেহেতু iপ্রাক-বর্ধিত, i-1তারপরে ফিরে আসে। কোনও সংখ্যাটি প্যালিনড্রমিক কিনা তা পরীক্ষা করে স্ট্রিনে রূপান্তর করে, বিপরীত করে এবং তারপরে মূল এবং বিপরীত স্ট্রিংগুলি সমান কিনা তা পরীক্ষা করে।

কোডটি যৌক্তিকভাবে এর সমতুল্য:

def f(n,test=0,count=1):
    if count>n:
        return test
    elif str(test)!=reversed(str(test)):
        return f(n,test+1,count+1)
    else:
        return f(n,test+1,count)

যা নিজেই মূলত:

def f(n):
    test=0
    count=1
    while count<=n:
        if str(test)!=reversed(str(test)):
            count+=1
        test+=1
    return test-1

আইডিয়নে চেষ্টা করে দেখুন


2

ক্লোজার, 62 বাইট

#(nth(filter(fn[i](not=(seq i)(reverse i)))(map str(range)))%)

অন্যান্য উত্তরের চেয়ে বেশ আলাদা পদ্ধতির, তবে সমান দৈর্ঘ্যের।


2

আর , 133 117 93 76 বাইট

-16 বাইট জেসি ধন্যবাদ। -১৪ বাইট জিউসেপ্পিকে ধন্যবাদ।

x=scan();while({F=F+any((D=T%/%10^(1:nchar(T)-1)%%10)!=rev(D));F<=x})T=T+1;T

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


1
আপনি কিছু বাইটগুলি অপব্যবহার Fইত্যাদি করতে পারেন : টিআইও । এছাড়াও, আপনি কেন লুপটি সীমাবদ্ধ করছেন (0:97)+10?
জেসি

1
আমার উত্তর থেকে টিপ # 3 ব্যবহার করুন আরবিতে গল্ফিংয়ের টিপসগুলি আঁকতে টিপস ; all(D==rev(D))যেখানে আপনি Dঅঙ্কের ভেক্টর সেখানে করতে পারেন । আমি বিশ্বাস করি একটি whileলুপ সংক্ষিপ্ত হবে, এবং @ জাসি যেমন জিজ্ঞাসা করে, আপনি কেবলমাত্র 10 থেকে 107 এর মধ্যে নম্বর কেন পরীক্ষা করছেন?
জিউস্পে

@ জিউজ্পে আপনার প্রস্তাবনাগুলি আপডেট করেছেন। whileএকই সময়ে বাইটগুলি সাশ্রয় করার সময় কীভাবে একটি লুপ বাস্তবায়ন করবেন সে সম্পর্কে এখনও কিছুটা বিভ্রান্ত ।
রবার্ট এস

1
@RobertS। আপনার যদি কোনও প্রশ্ন থাকে তবে বিনা দ্বিধায় আমাকে আর্ট চ্যাটরুমে পিন করুন !
জিউসেপে

2

ফোর্থ (গফার্থ) , 103 99 বাইট

: f 9 swap 0 do begin 1+ dup 0 over begin 10 /mod >r swap 10 * + r> ?dup 0= until = 0= until loop ;

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

ব্যাখ্যা

লুপ এন বার, প্রতিটি পুনরাবৃত্তিটি 1 টি দ্বারা কাউন্টার বাড়িয়ে পরবর্তী অ-প্যালেন্ড্রোমিক সংখ্যাটি খুঁজে পায় যতক্ষণ না সংখ্যাটি তার বিপরীত হয় না

অবহেলিত কোড

সাধারণত আমি কোডটি "উনগল্ফ" করব না, তবে এই কোডটি কিছুটা অগোছালো বলে আমি অনুভব করেছি যে এটি সাহায্য করবে

: reverse ( s -- s )
    0 swap 
    begin 
        10 /mod
        >r swap
        10 * +
        r> ?dup 0=
    until 
; 

: f ( s -- s )
    9 swap 0
    0
    do
        begin
            1+ dup dup
            reverse =
        0= until
    loop
;

কোড ব্যাখ্যা

: f                \ start a new word definition
  9                \ start at 9, since all positive ints < 10 are palindromic
  swap 0           \ set up loop parameters from 0 to n-1
  do               \ start a counted loop       
    begin          \ start an indefinite loop
      1+ dup       \ increment counter and place a copy on the stack
      ( Reverse )
      0 over       \ add 0 to the stack (as a buffer) and copy the top counter above it
      begin        \ start another indefinite loop
        10 /mod    \ get the quotient and remainder of dividing the number by 10
        >r         \ store the quotient on the return stack
        swap 10 *  \ multiply the current buffer by 10
        +          \ add the remainder to the buffer
        r>         \ grab the quotient from the return stack
        ?dup       \ duplicate if not equal to 0
        0=         \ check if equal to 0
      until        \ end inner indefinite loop if quotient is 0
      ( End Reverse )
      = 0=         \ check if counter =/= reverse-counter            
    until          \ end the outer indefinite loop if counter =/= reverse-counter
  loop             \ end the counted loop
;                  \ end the word definition 

1

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

{grep({$_!= .flip},^Inf)[$_]}

(0 ভিত্তিক সূচক ব্যবহার করে)

{         # The $_ is implied above
  grep(   # V
    { $_ != $_.flip }, # only the non-palindromic elements of
    ^Inf               # an Infinite list ( 0,1,2,3 ...^ Inf )
  )[ $_ ]              # grab the value at the given index
}

ব্যবহার:

my &non-palindrome = {grep({$_!= .flip},^Inf)[$_]}

say non-palindrome 1  - 1; # 10
say non-palindrome 5  - 1; # 15
say non-palindrome 12 - 1; # 23

# this also works:
say non-palindrome 0..20;
# (10 12 13 14 15 16 17 18 19 20 21 23 24 25 26 27 28 29 30 31 32)

1

আসলে, 17 বাইট

;τR9+;`$;R=Y`M@░E

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

মানগুলি 1 সূচকযুক্ত। প্রথমটির Rসাথে প্রতিস্থাপন করে সহজেই 0-সূচকে পরিবর্তিত হতে পারে r। তবে, Rআমি প্রথমে যা টাইপ করেছি, তাই আমি যা করছি।

ননপ্যালিন্ড্রোমিক সংখ্যাগুলি সন্তুষ্ট হয় a(n) ≈ n + 10, তাই 2n+9যথেষ্ট পরিমাণে উপরের আবদ্ধ।

ব্যাখ্যা:

;τR9+;`$;R=Y`M@░E
;τ9+R;             push n, range(1,(2*n)+10)
      `$;R=Y`M@░   take values that are not palindromic
                E  take nth element

1

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

1-ভিত্তিক সূচক ব্যবহার করে। কেবল 7624 তম সংখ্যা পর্যন্ত কাজ করে।

d=(i,a=0)=>i?d(i-=++a!=[...''+a].reverse().join``,a):a

ব্যবহার

d=(i,a=0)=>i?d(i-=++a!=[...''+a].reverse().join``,a):a
d(1)
10
d(123)
146
d(7624)
7800
d(7625)
// Uncaught RangeError: Maximum call stack size exceeded

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

পুনরাবৃত্তি ব্যবহার করে না এবং তাই অনেক বড় ইনপুটগুলি পরিচালনা করতে পারে।

i=>eval("for(a=9;i-=++a!=[...`${a}`].reverse().join``;);a")

ব্যবহার

(i=>eval("for(a=9;i-=++a!=[...`${a}`].reverse().join``;);a"))(1)
10
(i=>eval("for(a=9;i-=++a!=[...`${a}`].reverse().join``;);a"))(7625)
7801
(i=>eval("for(a=9;i-=++a!=[...`${a}`].reverse().join``;);a"))(123456)
124579

1

জাভাস্ক্রিপ্ট (বাহ্যিক গ্রন্থাগার ব্যবহার করে) (97 বাইট)

n=>_.Sequence(n,i=>{i=_.From(i+"");if(!i.Reverse().SequenceEqual(i)){return i.Write("")}}).Last()

লিবের লিঙ্ক: https://github.com/mvegh1/ গণনাযোগ্য

কোড ব্যাখ্যা: লাইব্রেরিতে সিকোয়েন্স নামক স্থিতিশীল পদ্ধতি রয়েছে, যেখানে প্রথম প্যারাম নির্ধারণ করে সিকোয়েন্সটি কতগুলি উপাদান তৈরির গ্যারান্টি দেবে এবং ২ য় পরামিতি বর্তমান পুনরাবৃত্তির মানকে "i" স্বীকার করে একটি শিকারী। প্রাকটিকটি পূর্ণসংখ্যাকে একটি স্ট্রিংয়ে রূপান্তর করে, যা _.From কল করে একটি চর অ্যারে রূপান্তরিত হয়। চর অ্যারেটি চর অ্যারেটির বিপরীতের বিপরীতে তুলনা করা হয় এবং তারা সমান না হলে চর অ্যারেটিকে আবার একটি স্ট্রিংয়ে যুক্ত করে ফিরে আসে। অন্যথায়, কিছুই ফিরিয়ে দেওয়া হয়নি (অর্থাত্ ফলাফলটি অনির্ধারিত, যা গ্রন্থাগার সর্বদা উপেক্ষা করবে)। অবশেষে, সিকোয়েন্সের শেষ উপাদান, অর্থাৎ Nth এলিমেন্টটি ফিরে আসে

এখানে চিত্র বর্ণনা লিখুন


1

সি, 84 বাইট

ফাংশনটি f(n)পূর্ণসংখ্যা নেয় nএবং n-thঅ-প্যালিনড্রমিক নম্বর (1 ভিত্তিক) প্রদান করে।

g(n,r){return n?g(n/10,r*10+n%10):r;}s;f(n){for(s=9;n--;g(++s,0)==s&&s++);return s;}

আইডিয়নে এটি পরীক্ষা !

এটি মোটামুটি তুচ্ছ কোড, সুতরাং সম্ভবত উন্নতির জন্য জায়গা আছে।


n=n?g(n/10,r*10+n%10):r;}s;f(n){for(s=9;n--;g(++s,0)-s||s++);n=s;পরিবর্তে প্রস্তাব করুনreturn n?g(n/10,r*10+n%10):r;}s;f(n){for(s=9;n--;g(++s,0)==s&&s++);return s;
সিলিংক্যাট

1

রুবি, 54 বাইট

এই ফাংশনটি 1-ইনডেক্সড এবং আংশিকভাবে ডোম হেস্টিংসের জাভাস্ক্রিপ্ট উত্তরের উপর ভিত্তি করে । আমি মনে করি এটি আরও ভালভাবে গল্ফ করার একটি উপায় আছে, বিশেষ করে শেষের তিনটি অবস্থার সাথে। এছাড়াও, এই ফাংশনটি বর্তমানে একটি স্ট্রিং প্রদান করে, যা পরে সম্পাদনা করার প্রয়োজন হতে পারে। যে কোনও গল্ফিং পরামর্শ স্বাগত।

f=->x,y=?9{x<1?y:(y.next!.reverse!=y)?f[x-1,y]:f[x,y]}

Ungolfed:

def f(x, y="9")
 if x<1
  return y
 else
  y = y.next
  if y.reverse != y
   return f(x-1, y)
  else
   return f(x, y)
  end
 end
end

1

সি ++ (জিসিসি), 148 বাইট

এটি 1-ভিত্তিক এবং অ্যালগরিদমটি সত্যই নিষ্পাপ

#import <iostream>
using namespace std;int n,i=1;string s;main(){cin>>n;while(s=to_string(i+1),(n+=equal(begin(s),end(s),s.rbegin()))-i++);cout<<i;}

আপনার সম্পাদনা সম্পর্কিত @ জড়িত: #importএটি জিসিসির একটি সংকলক বর্ধক । এটি
অবচয়

1

এপিএল NARS 35 অক্ষর

r←v a;c
r←c←0
A:r+←1⋄c+←r≠⍎⌽⍕r⋄→A×⍳c<a

এটি ফাংশন v; স্ট্রিংয়ে "s" r ট্র্যাসলেট নম্বর আর, স্ট্রিংটি বিপরীত করুন, স্ট্রিং থেকে সংখ্যায় ট্র্যাসলেট করুন। পরীক্ষা এবং সহায়তা ফাংশন:

  ⍝ return the one string for the basic types ('Char', 'Int', 'Float', 'Complex or Quaternion or Oction')
  ⍝ or one string for composite types ('Tensor 3' 'Tensor 4' etc 'Matrix', 'List', 'String')
  ⍝ follow the example in: /codegolf//a/39745
  type←{v←⍴⍴⍵⋄v>2:'Tensor ',⍕v⋄v=2:'Matrix'⋄(v=1)∧''≡0↑⍵:'String'⋄''≡0↑⍵:'Char'⋄v=1:'List'⋄⍵≢+⍵:'Complex or Quaternion or Oction'⋄⍵=⌈⍵:'Int'⋄'Float'}
  h←{'Int'≢type ⍵:¯1⋄(⍵<1)∨⍵>2e5:¯1⋄v ⍵} 
  h 1
10
  h 1.32
¯1
  h 7878
8057
  h¨3 5 12
13 15 23 
  h 6 7 8
¯1
  h '123'
¯1
  h '1'
¯1
  h 1.0
10
  h 1.0003
¯1
  h ¯2
¯1
  h 0
¯1
  h 200000
201200
  h 200001
¯1



1

সি # 7, 89 বাইট

n=>{int i=9;for(;n-->0;)if(Enumerable.SequenceEqual(++i+"",(""+i).Reverse()))i++;return i;}

Repl.It এ 1 টি সূচিত চেষ্টা করুন

n=>
  int i = 9;                                  | Start at 9. Iterate exactly n times. Assume n >= 1      
  for(;n-->0;)                                | Iterate n times
  if(EnumerableSequenceEqual(                 | Compare two sequences
  ++i+"",(""+i).Reverse())                    | Generate the forward and backward strings, which behave like char sequences for Linq
  i++                                         | If the sequences are equal, the number is a palindrome. Increment i to skip
  return i;                                   | Return the number after the for loop exits

আমি মনে করি না যে এটি সি # 7 থেকে কোনও ভাষা বৈশিষ্ট্য ব্যবহার করে তবে আমি সেখানে রেখেছি যা আমি এর বিরুদ্ধে পরীক্ষা করেছি tested


পিপিসিজিতে আপনাকে স্বাগতম।
জোনাথন ফ্রেচ


1

জাভা 8, 117 95 94 বাইট

n->{int r=10;for(;n-->0;)if((++r+"").contains(new StringBuffer(r+"").reverse()))r++;return r;}

0-ইন্ডেক্স

ব্যাখ্যা:

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

n->{             // Method with integer as both parameter and return-type
  int r=10;      //  Result-integer, starting at 10
  for(;n-->0;)   //  Loop an amount of times equal to the input
    if((++r+"")  //   First raise `r` by 1, and then check if `r`
               .contains(new StringBuffer(r+"").reverse()))
                 //   is the same as `r` reversed (and thus a palindrome)
      r++;       //    And if it is: raise `r` by 1 again
  return r;}     //  Return result-integer

@ceilingcat যা ভুল ফলাফল দেয় .. এর new StringBuffer(int)সমান হয় না new StringBuffer(String)বা এর String.equals(StringBuffer)পরিবর্তে হয় না String.equals(String).. এটি তবে এটি একটি পুরানো উত্তর, তাই আমি (++r+"").contains(new StringBuffer(r+"").reverse())1 বাইট সংরক্ষণ করতে ব্যবহার করতে পারি ।
কেভিন ক্রুইজসেন

-2

টিসিসি, 11 বাইট

?>!~<>;i;'T

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

            | Printing is implicit
?>          | Find n-th number for which the following is "T":
  !~        | If not equal...
    <>;     | reverse. No value specified, so input is assumed.
       i;   | Input, since double semicolons are ignored
         'T | ... print string "T"

1
এটি tcc.lua16-07-26 12:46 ইউটিসি-র টাইমস্ট্যাম্প সহ ফাইলটির সাথে কাজ করে না , যার ?>কমান্ড নেই। যদি আপনার উত্তরের এমন ভাষার কোনও সংস্করণ প্রয়োজন যা চ্যালেঞ্জ পোস্ট করে, তবে আপনাকে অবশ্যই এটির শিরোনামে প্রতিদ্বন্দ্বী হিসাবে লেবেল করা উচিত । আপনি যখন করবেন তখন আমি আমার ডাউনটোট সরিয়ে ফেলব।
ডেনিস

@ ডেনিস আমি এই দুই বছরের পুরানো পোস্টটি নিয়ে হোঁচট খেয়েছি এবং উল্লেখ করতে চেয়েছিলাম যে উত্তরগুলি এখন আর প্রতিদ্বন্দ্বী হিসাবে চিহ্নিত হবে না যখন তাদের ভাষা-পরবর্তী পোস্ট চ্যালেঞ্জের তারিখ রয়েছে।
জোনাথন ফ্রেচ
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.