Angka palindrom (jika Anda tidak tahu) adalah angka yang membaca mundur dan maju yang sama (misalnya, 11). Nomor 15 non-palindromic pertama adalah: 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26. Ini A029742 . Saya selalu membutuhkan angka-angka ini, tetapi catatan tempel saya sangat kecil, jadi kode Anda harus sesingkat mungkin.

Aturan

• Setiap pengiriman harus berupa program atau fungsi lengkap (mis. Dalam C, Anda tidak bisa hanya mendefinisikan suatu fungsi tanpa header, tetapi Anda dapat mendefinisikan suatu fungsi DENGAN header yang diperlukan).
• Jika memungkinkan, berikan tautan ke situs tempat program Anda dapat diuji.
• Program Anda tidak boleh menulis apa pun STDERR.
• Anda dapat mengambil input sebagai argumen atau dari STDIN(atau alternatif terdekat dalam bahasa Anda).
• Program diberi skor berdasarkan byte . Set karakter yang biasa adalah UTF-8, jika Anda menggunakan yang lain, silakan tentukan.
• Celah standar dilarang.

Uji Kasus

1
==> 10

-----

5
==> 15

-----

12
==> 23

Mencetak gol

Ini adalah kode-golf , jadi paling tidak byte menang.

Pengajuan

Untuk memastikan bahwa jawaban Anda muncul, silakan mulai jawaban Anda dengan tajuk utama, menggunakan templat Penurunan harga berikut:

# Language Name, N bytes

di mana Nukuran kiriman Anda. Jika Anda meningkatkan skor Anda, Anda dapat menyimpan skor lama di headline, dengan mencoretnya. Contohnya:

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

Jika Anda ingin memasukkan beberapa angka dalam tajuk Anda (mis. Karena skor Anda adalah jumlah dari dua file atau Anda ingin membuat daftar hukuman penterjemah secara terpisah), pastikan bahwa skor sebenarnya adalah angka terakhir di tajuk:

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

Anda juga dapat membuat tautan nama bahasa yang kemudian akan muncul di cuplikan papan peringkat:

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

Papan peringkat

Berikut ini adalah Stack Snippet untuk menghasilkan leaderboard biasa dan gambaran umum pemenang berdasarkan bahasa.

/* Configuration */

var QUESTION_ID = 79251; // Obtain this from the url
// It will be like https://XYZ.stackexchange.com/questions/QUESTION_ID/... on any question page
var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe";
var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk";
var OVERRIDE_USER = 53406; // This should be the user ID of the challenge author.

/* App */

var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page;

function answersUrl(index) {
  return "https://api.stackexchange.com/2.2/questions/" +  QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER;
}

function commentUrl(index, answers) {
  return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER;
}

function getAnswers() {
  jQuery.ajax({
    url: answersUrl(answer_page++),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      answers.push.apply(answers, data.items);
      answers_hash = [];
      answer_ids = [];
      data.items.forEach(function(a) {
        a.comments = [];
        var id = +a.share_link.match(/\d+/);
        answer_ids.push(id);
        answers_hash[id] = a;
      });
      if (!data.has_more) more_answers = false;
      comment_page = 1;
      getComments();
    }
  });
}

function getComments() {
  jQuery.ajax({
    url: commentUrl(comment_page++, answer_ids),
    method: "get",
    dataType: "jsonp",
    crossDomain: true,
    success: function (data) {
      data.items.forEach(function(c) {
        if (c.owner.user_id === OVERRIDE_USER)
          answers_hash[c.post_id].comments.push(c);
      });
      if (data.has_more) getComments();
      else if (more_answers) getAnswers();
      else process();
    }
  });  
}

getAnswers();

var SCORE_REG = /<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/;

var OVERRIDE_REG = /^Override\s*header:\s*/i;

function getAuthorName(a) {
  return a.owner.display_name;
}

function process() {
  var valid = [];
  
  answers.forEach(function(a) {
    var body = a.body;
    a.comments.forEach(function(c) {
      if(OVERRIDE_REG.test(c.body))
        body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>';
    });
    
    var match = body.match(SCORE_REG);
    if (match)
      valid.push({
        user: getAuthorName(a),
        size: +match[2],
        language: match[1],
        link: a.share_link,
      });
    
  });
  
  valid.sort(function (a, b) {
    var aB = a.size,
        bB = b.size;
    return aB - bB
  });

  var languages = {};
  var place = 1;
  var lastSize = null;
  var lastPlace = 1;
  valid.forEach(function (a) {
    if (a.size != lastSize)
      lastPlace = place;
    lastSize = a.size;
    ++place;
    
    var answer = jQuery("#answer-template").html();
    answer = answer.replace("{{PLACE}}", lastPlace + ".")
                   .replace("{{NAME}}", a.user)
                   .replace("{{LANGUAGE}}", a.language)
                   .replace("{{SIZE}}", a.size)
                   .replace("{{LINK}}", a.link);
    answer = jQuery(answer);
    jQuery("#answers").append(answer);

    var lang = a.language;
    if (/<a/.test(lang)) lang = jQuery(lang).text();
    
    languages[lang] = languages[lang] || {lang: a.language, user: a.user, size: a.size, link: a.link};
  });

  var langs = [];
  for (var lang in languages)
    if (languages.hasOwnProperty(lang))
      langs.push(languages[lang]);

  langs.sort(function (a, b) {
    if (a.lang > b.lang) return 1;
    if (a.lang < b.lang) return -1;
    return 0;
  });

  for (var i = 0; i < langs.length; ++i)
  {
    var language = jQuery("#language-template").html();
    var lang = langs[i];
    language = language.replace("{{LANGUAGE}}", lang.lang)
                       .replace("{{NAME}}", lang.user)
                       .replace("{{SIZE}}", lang.size)
                       .replace("{{LINK}}", lang.link);
    language = jQuery(language);
    jQuery("#languages").append(language);
  }

}

body { text-align: left !important}

#answer-list {
  padding: 10px;
  width: 290px;
  float: left;
}

#language-list {
  padding: 10px;
  width: 290px;
  float: left;
}

table thead {
  font-weight: bold;
}

table td {
  padding: 5px;
}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b">
<div id="answer-list">
  <h2>Leaderboard</h2>
  <table class="answer-list">
    <thead>
      <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr>
    </thead>
    <tbody id="answers">

    </tbody>
  </table>
</div>
<div id="language-list">
  <h2>Winners by Language</h2>
  <table class="language-list">
    <thead>
      <tr><td>Language</td><td>User</td><td>Score</td></tr>
    </thead>
    <tbody id="languages">

    </tbody>
  </table>
</div>
<table style="display: none">
  <tbody id="answer-template">
    <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>
<table style="display: none">
  <tbody id="language-template">
    <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr>
  </tbody>
</table>

Pyth, 7 byte

e.f!_I`

Suite uji

Penjelasan:

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.

Haskell, 38 byte

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

Menggunakan indeks berbasis 0. ([x|x<-[1..],(/=)<*>reverse$show x]!!) 11-> 23.

Tes apakah akan menyimpan nomor yang (/=)<*>reverse$show xditerjemahkan (show x) /= (reverse (show x)), yaitu memeriksa apakah representasi string dari angka tidak sama dengan kebalikan dari representasi string.

Brachylog , 14 11 byte

;0{<≜.↔¬}ⁱ⁽

-3 Bytes tank untuk di Fatalkan

Penjelasan

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

Cobalah online!

Jelly, 9 byte

1 byte terima kasih kepada @ Sp3000 .

ṚḌ_
0dz#Ṫ

Cobalah online!

Suite uji.

Penjelasan

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.

05AB1E , 8 byte

Kode:

µNÂÂQ>i¼

Menggunakan pengodean CP-1252 . Cobalah online! .

Clojure, 62 byte

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

Diindeks 0. Hasilkan rentang angka-angka non-palindromik malas yang tak terbatas menggunakan pemahaman daftar dan ambil nomor isatu. Lihat online: https://ideone.com/54wXI3

PowerShell v2 +, 65 byte

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

Putaran melalui angka dari 0(nilai implisit untuk tidak diinisialisasi $i) sampai kami menemukan input yang $args[0]cocok, kemudian mengeluarkan yang terakhir. Perhatikan bahwa kami tidak menginisialisasi loop, jadi $j=0ini implisit.

Setiap iterasi, kami melakukan pra-kenaikan $i, dan memeriksa apakah itu tidak sama dengan $iterbalik. Jika demikian, itu berarti kami telah menemukan non-palindrome, jadi peningkatan $j. Lingkaran kemudian berlanjut sebanyak yang diperlukan.

Contohnya

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

Python 2, 60 byte

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

Fungsi satu-diindeks yang mengambil input nmelalui argumen dan mengembalikan nomor nnon-palindromik.

Bagaimana itu bekerja

Ini adalah pencarian rekursif lengkap, yang secara berturut-turut menguji bilangan bulat idalam kisaran [1,∞)sampai nangka non-palindrom ditemukan; karena ipra-incremented, i-1kemudian dikembalikan. Pengujian apakah suatu bilangan adalah palindromik dilakukan dengan mengonversi suatu string, membalikkan, dan kemudian memeriksa apakah string asli dan yang dibalik sama.

Kode ini secara logis setara dengan:

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)

yang pada dasarnya adalah:

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

Cobalah di Ideone

Clojure, 62 byte

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

Pendekatan yang sangat berbeda dari jawaban yang lain, tetapi panjangnya sama.

R , 133 117 93 76 byte

-16 byte terima kasih kepada JayCe. -41 byte terima kasih kepada Giuseppe.

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

Cobalah online!

Keempat (gforth) , 103 99 byte

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

Cobalah online!

Penjelasan

Loop n kali, setiap iterasi menemukan nomor non-palindromik berikutnya dengan menambah penghitung dengan 1 sampai angka tidak sama dengan dirinya sendiri terbalik

Kode Tidak Terkunci

Biasanya saya tidak akan "ungolf" kode, tetapi karena kode ini agak berantakan saya pikir itu akan membantu

: 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
;

Penjelasan Kode

: 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 

Perl 6 , 29 byte

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

(menggunakan indeks berbasis 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
}

Pemakaian:

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)

Sebenarnya, 17 byte

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

Cobalah online!

Nilai diindeks 1. Ini dapat dengan mudah diubah menjadi 0-diindeks dengan mengganti yang pertama Rdengan r. Tapi, Ritulah yang awalnya saya ketik, jadi itulah yang saya lakukan.

Angka-angka nonpalindromik memuaskan a(n) ≈ n + 10, demikian 2n+9juga batas atas yang cukup.

Penjelasan:

;τ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

JavaScript (ES6), 54 byte

Menggunakan pengindeksan berbasis 1. Hanya berfungsi hingga nomor 7624.

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

Pemakaian

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 byte

Tidak menggunakan rekursi sehingga bisa menangani input yang jauh lebih besar.

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

Pemakaian

(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

Javascript (menggunakan perpustakaan eksternal) (97 byte)

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

Tautan ke lib: https://github.com/mvegh1/Enumerable

Penjelasan kode: Pustaka memiliki metode statis yang disebut Sequence, di mana param pertama mendefinisikan berapa banyak elemen yang akan dijamin urutannya, dan parameter ke-2 adalah predikat yang menerima nilai iterasi saat ini, "i". Predikat mengubah integer menjadi string, yang akan dikonversi ke array char dengan memanggil _.From. Array char dibandingkan dengan pembalikan array char, dan jika mereka tidak sama array char bergabung kembali ke dalam string dan dikembalikan. Kalau tidak, tidak ada yang dikembalikan (yaitu hasilnya tidak ditentukan, yang akan selalu diabaikan oleh perpustakaan). Akhirnya, elemen terakhir dari urutan, yaitu elemen N dikembalikan

C, 84 byte

Fungsi f(n)mengambil integer ndan mengembalikan n-thnomor non-palindrom (berbasis 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;}

Uji di Ideone!

Ini kode yang cukup sepele, sehingga mungkin ada ruang untuk perbaikan.

Ruby, 54 byte

Fungsi ini 1-diindeks dan sebagian didasarkan pada jawaban Javascript Dom Hastings . Saya pikir ada cara untuk bermain golf ini lebih baik, terutama dengan kondisi ternary terakhir itu. Selain itu, fungsi ini saat ini mengembalikan string, yang mungkin perlu diedit nanti. Saran bermain golf dipersilakan.

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

Tidak Disatukan:

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

C ++ (GCC), 148 byte

Ini berbasis 1 dan algoritma ini benar-benar naif

#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;}

APL NARS 35 karakter

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

itu adalah fungsi v; "⍎⌽⍕" r angka traslate r dalam string, balikkan string itu, traslate dari string ke angka. Fungsi tes dan bantuan:

  ⍝ 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

Sekam , 6 byte

Yay untuk ↔:)

!fS≠↔N

Cobalah online!

Penjelasan

 f   N  -- filter the naturals by:
  S≠    --   is it not equal to..
    ↔   --   ..itself reversed
!       -- index into that list

Perl 5 , 33 + 1 ( -p) = 34 byte

map{1until++$\!=reverse$\}1..$_}{

Cobalah online!

C # 7, 89 byte

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

1 diindeks Coba pada 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

Saya tidak berpikir ini menggunakan fitur bahasa apa pun dari c # 7, tapi saya meletakkannya di sana karena itulah yang saya uji

Japt , 14 12 11 10 9 bytes

1-diindeks

@UµX¦sw}f

Cobalah

Java 8, 117 95 94 byte

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

Diindeks 0

Penjelasan:

Coba di sini.

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

TCC, 11 byte

?>!~<>;i;'T

Cobalah online!

            | 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"