พิมพ์หมายเลข non-palindromic ของ Nth


22

จำนวน palindromic (ในกรณีที่คุณไม่ทราบ) เป็นตัวเลขที่อ่านไปข้างหน้าและข้างหลังเหมือนกัน (ตัวอย่าง 11) ครั้งแรก 15 ตัวเลขที่ไม่ใช่ palindromic 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26คือ: นี่คือA029742 ฉันต้องการตัวเลขเหล่านี้อย่างต่อเนื่อง แต่แผ่นบันทึกย่อของฉันมีขนาดเล็กมากดังนั้นรหัสของคุณจะต้องสั้นที่สุด

กฎระเบียบ

  • การส่งแต่ละครั้งจะต้องเป็นโปรแกรมหรือฟังก์ชั่นเต็มรูปแบบ (เช่นใน C คุณไม่สามารถกำหนดฟังก์ชั่นที่ไม่มีส่วนหัวได้ แต่คุณสามารถกำหนดฟังก์ชั่นที่มีส่วนหัวที่จำเป็น)
  • หากเป็นไปได้ให้ระบุลิงค์ไปยังเว็บไซต์ที่สามารถทดสอบโปรแกรมของคุณได้
  • STDERRโปรแกรมของคุณไม่ต้องเขียนอะไรไป
  • คุณสามารถป้อนเป็นอาร์กิวเมนต์หรือจากSTDIN(หรือเป็นทางเลือกที่ใกล้เคียงที่สุดในภาษาของคุณ)
  • โปรแกรมมีคะแนนตามไบต์ ชุดอักขระปกติคือ UTF-8 หากคุณใช้ตัวอื่นโปรดระบุ
  • ช่องโหว่มาตรฐานเป็นสิ่งต้องห้าม

กรณีทดสอบ

1
==> 10

-----

5
==> 15

-----

12
==> 23

เกณฑ์การให้คะแนน

นี่คืออย่างน้อยไบต์ชนะ

การส่ง

เพื่อให้แน่ใจว่าคำตอบของคุณปรากฏขึ้นโปรดเริ่มคำตอบด้วยหัวข้อโดยใช้เทมเพลต Markdown ต่อไปนี้:

# 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
มีตัวอย่างอะไรบ้าง?
Leun Nun

@KennyLau ฉันจะทำบางอย่าง
George Gibson

เราสามารถใช้ดัชนีที่เป็น 0 ได้ดังนั้น15จะเป็นเลขที่ 4 หรือไม่?
nimi

@nimi Either แต่โปรดระบุว่าคุณมีดัชนี 0 รายการหรือไม่
George Gibson

@nimi ขออภัยนั่นคือสิ่งที่ฉันหมายถึงได้แก้ไขเพื่อชี้แจง
George Gibson

คำตอบ:


9

Pyth, 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

Haskell, 38 ไบต์

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

ใช้ดัชนีที่ใช้ 0 ->([x|x<-[1..],(/=)<*>reverse$show x]!!) 1123

การทดสอบว่าจะ(/=)<*>reverse$show xแปลตัวเลขเป็น(show x) /= (reverse (show x))หรือไม่เช่นตรวจสอบว่าการแสดงสตริงของตัวเลขนั้นไม่เท่ากับการย้อนกลับของการแสดงสตริง


4

Brachylog , 14 11 ไบต์

;0{<≜.↔¬}ⁱ⁽

-3 ไบต์ถังเพื่อทำให้เสียชีวิต

คำอธิบาย

; {      }ⁱ⁽        --  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

ลองออนไลน์!


;İ{ℕ≜.↔¬}ᶠ⁽tสั้นลง 2 ไบต์
ทำให้เสียชีวิต

ที่จริงแล้วการใช้iterateสั้นลง 1 ไบต์:;0{<≜.↔¬}ⁱ⁽
ลดขนาด

3

เยลลี่ขนาด 9 ไบต์

1 ไบต์ขอบคุณที่@ SP3000

ṚḌ_
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 น่าสนใจมากจริงๆ!
Leun Nun

³คุณสามารถวาง หากคุณวางอินพุตบน STDIN คุณสามารถวางค่าได้0เช่นกัน (ในเวอร์ชั่นล่าสุดของเยลลี่ก็ใช้ṚḌ_ø#Ṫงานได้ แต่มันก็ยังใหม่กว่าความท้าทายนี้)
Dennis

ไม่ทำงานสำหรับฉัน ...
รั่วนูน

7 ไบต์แต่อาจใช้ฟีเจอร์ที่ใหม่กว่านี้
caird coinheringaahing

3

05AB1E , 8 ไบต์

รหัส:

µNÂÂQ>i¼

ใช้การเข้ารหัสCP-1252 ลองออนไลน์! .


นี้มีแนวโน้มมากที่สุดที่บางสิ่งบางอย่างจะทำอย่างไรกับรุ่นเก่า 05AB1E แต่จากความอยากรู้: ทำไมคู่ bifurcated Â? PS สำหรับคนอื่นที่อ่านข้อความนี้: สามารถเป็น 5 ไบต์µNÂʽได้แล้ว
Kevin Cruijssen

@KevinCruijssen: มีแนวโน้มเนื่องจากไม่มีเอาต์พุตโดยนัยของ N (เฉพาะด้านบนของสแต็ก) นอกจากนี้ก็อาจจะเป็น 4 ไบต์ในขณะนี้½ยังเป็นนัย
Emigna

@Emigna Ah ลืมไป½โดยปริยายถึงแม้ว่าฉันจะพูดถึงมันในเคล็ดลับที่ฉันเขียนเอง .. > <คิดว่า¼(เพิ่ม counter_variable โดย 1) เป็นนัยในขณะที่วนรอบµสักครู่ แต่แน่นอน½( ถ้าด้านบนของสแต็คเป็น 1: เพิ่ม counter_variable 1) แทน ..
Kevin Cruijssen

3

Clojure 62 ไบต์

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

0 การจัดทำดัชนี สร้างช่วงที่ไม่มีที่สิ้นสุดอย่างเกียจคร้านของตัวเลขที่ไม่ใช่ Palindromic โดยใช้รายการความเข้าใจและรับiหนึ่ง ดูออนไลน์ได้ที่: https://ideone.com/54wXI3


2

PowerShell v2 +, 65 ไบต์

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

วนซ้ำตัวเลขจาก0(ค่าโดยนัยสำหรับการไม่กำหนดค่าเริ่มต้น$i) จนกว่าเราจะค้นหาอินพุตที่$args[0]ตรงกันจำนวนมากจากนั้นส่งเอาต์พุตหมายเลขสุดท้าย โปรดทราบว่าเราไม่ได้เริ่มต้นการวนซ้ำดังนั้นจึง$j=0เป็นนัย

การวนซ้ำแต่ละครั้งเราเพิ่มค่าล่วงหน้า$iและตรวจสอบว่าไม่เท่ากับการ$iย้อนกลับ ถ้าเป็นเช่นนั้นนั่นหมายความว่าเราได้พบไม่ใช่ palindrome $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

Python 2, 60 ไบต์

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

ฟังก์ชั่นที่จัดทำดัชนีหนึ่งที่รับอินพุตของnอาร์กิวเมนต์ผ่านและส่งกลับnไม่ใช่ Palindromic

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

นี่เป็นการค้นหาแบบเรียกซ้ำที่ละเอียดถี่ถ้วนซึ่งจะทดสอบจำนวนเต็มอย่างต่อเนื่องiในช่วง[1,∞)จนกระทั่งพบจำนวนที่nไม่เป็น Palindromic เนื่องจากiเป็นการเพิ่มล่วงหน้าi-1จะถูกส่งคืน การทดสอบว่าตัวเลขนั้นเป็น palindromic หรือไม่โดยการแปลงเป็นสตริงการย้อนกลับจากนั้นตรวจสอบว่าสตริงเดิมและสตริงที่ย้อนกลับมีค่าเท่ากันหรือไม่

รหัสเทียบเท่ากับเหตุผล:

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

ลองใช้กับ Ideone


2

Clojure 62 ไบต์

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

แนวทางที่แตกต่างจากคำตอบอื่น ๆ แต่มีความยาวเท่ากัน


2

R , 133 117 93 76 ไบต์

-16 ไบต์ขอบคุณ JayCe -41 ไบต์ขอบคุณ Giuseppe

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

ลองออนไลน์!


1
คุณสามารถบางไบต์บางเหยียดหยามFฯลฯ .: TIO นอกจากนี้ทำไมคุณ จำกัด วงเพื่อ(0:97)+10?
JayCe

1
ใช้ tip # 3 จากคำตอบของฉันคำแนะนำสำหรับการเล่นกอล์ฟใน Rเพื่อแยกตัวเลขออก คุณสามารถทำall(D==rev(D))ที่Dเป็นเวกเตอร์ของตัวเลข ฉันเชื่อว่าการwhileวนซ้ำจะสั้นลงและตามที่ @JayCe ถามทำไมคุณตรวจสอบตัวเลขระหว่าง 10 ถึง 107 เท่านั้น
Giuseppe

@Giuseppe อัปเดตพร้อมคำแนะนำของคุณ ยังสับสนเล็กน้อยเกี่ยวกับวิธีการใช้whileลูปในขณะที่ไบต์ประหยัดเวลาเดียวกัน
Robert S.

1
@RobertS หากคุณมีคำถามใด ๆ อย่าลังเลที่จะ ping ฉันในห้องแชท R !
Giuseppe

2

ออกมา (gforth) , 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 ;

ลองออนไลน์!

คำอธิบาย

วนซ้ำ n ครั้งการวนซ้ำแต่ละครั้งจะค้นหาหมายเลขที่ไม่ใช่ Palindromic ถัดไปโดยการเพิ่มตัวนับ 1 จนกว่าจำนวนจะไม่เท่ากัน

รหัสที่ไม่ดี

ปกติฉันจะไม่ "ungolf" รหัส แต่เนื่องจากรหัสนี้ค่อนข้างยุ่งฉันคิดว่ามันจะช่วย

: 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

Perl 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 รายการ ซึ่งอาจจะมีการเปลี่ยนแปลงได้อย่างง่ายดายเพื่อการจัดทำดัชนี 0 โดยการเปลี่ยนครั้งแรกด้วยR rแต่Rเป็นสิ่งที่ฉันพิมพ์ในตอนแรกดังนั้นนั่นคือสิ่งที่ฉันจะไปด้วย

จำนวน nonpalindromic เป็นไปตามที่ต้องการ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

JavaScript (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

JavaScript (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

Javascript (ใช้ไลบรารีภายนอก) (97 ไบต์)

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

ลิงก์ไปยัง lib: https://github.com/mvegh1/Enumerable

คำอธิบายโค้ด: Library มีวิธีการคงที่ที่เรียกว่า Sequence โดยพารามิเตอร์แรกกำหนดจำนวนองค์ประกอบที่ลำดับจะรับประกันในการสร้างและพารามิเตอร์ที่ 2 เป็นภาคแสดงที่ยอมรับค่าการวนซ้ำปัจจุบัน "i" เพรดิเคตแปลงจำนวนเต็มเป็นสตริงซึ่งได้รับการแปลงเป็นอาร์เรย์ถ่านโดยการเรียก _.From char char ถูกเปรียบเทียบกับการกลับรายการของ char array และหากไม่เท่ากันจะมีการรวม char char เข้ากับสตริงและส่งคืน มิฉะนั้นจะไม่มีการส่งคืนสิ่งใด (เช่นผลลัพธ์ไม่ได้ถูกกำหนดไว้ซึ่งห้องสมุดจะเพิกเฉยเสมอ) ในที่สุดองค์ประกอบสุดท้ายของลำดับคือองค์ประกอบ Nth จะถูกส่งกลับ

ป้อนคำอธิบายรูปภาพที่นี่


1

C, 84 ไบต์

ฟังก์ชั่นf(n)รับจำนวนเต็มnและส่งกลับn-thตัวเลขที่ไม่ใช่ Palindromic (ตาม 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;}

ทดสอบบนIdeone!

มันเป็นรหัสเรื่องไม่สำคัญเลยดังนั้นอาจมีพื้นที่สำหรับการปรับปรุง


แนะนำ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;
ceilingcat

1

Ruby, 54 ไบต์

ฟังก์ชั่นนี้เป็นที่ 1 การจัดทำดัชนีและมีบางส่วนที่อยู่บนพื้นฐานของDom เฮสติ้งส์ของคำตอบ ฉันคิดว่ามันมีวิธีการเล่นกอล์ฟที่ดีกว่านี้โดยเฉพาะอย่างยิ่งกับเงื่อนไขที่ประกอบไปด้วยครั้งสุดท้าย นอกจากนี้ฟังก์ชันนี้ยังส่งคืนสตริงซึ่งอาจต้องแก้ไขในภายหลัง คำแนะนำการเล่นกอล์ฟใด ๆ ยินดีต้อนรับ

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

C ++ (GCC), 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;}

@enedil เกี่ยวกับการแก้ไขของคุณ: #importเป็นส่วนต่อขยายของ gcc มันจะเลิก แต่ไม่ได้เรื่องจริงๆที่นี่
OVS

1

APL NARS 35 ตัวอักษร

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

มันคือฟังก์ชั่น v; "⍎⌽⍕" r traslate number r ในสตริงย้อนกลับสตริงนั้น traslate จากสตริงเป็นตัวเลข ทดสอบและฟังก์ชั่นช่วยเหลือ:

  ⍝ 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

C # 7, 89 ไบต์

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

1 การจัดทำดัชนี ลองบน Repl.It

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

ฉันไม่คิดว่าจะใช้คุณสมบัติภาษาใด ๆ จาก c # 7 แต่ฉันใส่ไว้ที่นั่นเพราะนั่นคือสิ่งที่ฉันทดสอบ


ยินดีต้อนรับสู่ PPCG
Jonathan Frech


1

Java 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 ไบต์
Kevin Cruijssen

-2

TCC ขนาด 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.luaไฟล์ที่มีการประทับเวลา 16-07-26 12:46 UTC ซึ่งไม่มี?>คำสั่ง หากคำตอบของคุณต้องการเวอร์ชันของภาษาที่โพสต์ความท้าทายนั้นคุณต้องติดป้ายกำกับว่าไม่ใช่การแข่งขันในส่วนหัว ฉันจะลบ downvote ของฉันเมื่อคุณทำ
Dennis

@Dennis ฉันสะดุดกับโพสต์สองปีนี้และต้องการพูดถึงว่าคำตอบไม่ได้ถูกทำเครื่องหมายว่าไม่แข่งขันเมื่อภาษาของพวกเขาโพสต์นัดที่ท้าทาย
Jonathan Frech
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.