Dengan bilangan bulat n-negatif, sebutkan semua angka palindromik (dalam desimal) antara 0 dan n (rentang inklusif). Angka palindromik tetap sama ketika digitnya dibalik.

Angka palindromik pertama (dalam basis 10) diberikan di sini :

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 22, 33, 44, 55, 66, 77, 88, 99, 101, 111, 121, 131, 141, 141, 151, 161, 171, 181, 191, 202, 212, 222, 232, 242, 252, 262, 272, 282, 292, 303, 313, 323, 333, 343, 353, 363, 373, 383, 393, 404, 414, 424, 434, 444, 454, 464, 474, 484, 494, 505, 515, ...

Ini adalah kode golf dengan hadiah mencapai karakter paling sedikit. Angka-angka palindrom harus merupakan keluaran satu per baris ke stdout. Program harus membaca n dari commandline atau stdin.

Golfscript, 15 karakter

~),{.`-1%~=},n*

Perl 5.10, 29 (atau 39) karakter

say for grep$_==reverse,0..<>

Membutuhkan sayfitur yang diaktifkan. 29 karakter jika Anda menganggap itu gratis, sebaliknya 39 ditambahkan use 5.010;. Argumen tentang STDIN.

Perl, 35 karakter

#!perl -l
print for grep $_==reverse,0..<>

menggunakan konvensi perlgolf lama yang #!perltidak dihitung tetapi ada flag yang mengikutinya.

Perl, 36 karakter

print$_,$/for grep $_==reverse,0..<>

Jika tidak ada yang memenuhi syarat.

Befunge 320 313 303 karakter

(termasuk baris baru dan spasi yang signifikan)

 &:#v_v#  #                  :-1<
v91:<         v          <
0     >0.@    >\25**\1-:#^_v
pv   p09+1g09<^_           >$+     v
:>:25*%\25*/:| ^:p18:+1g18\<
 :          > >90g 1-:90p  | >  ^
>|           $^     <      >-|  ^  #<
 @           > 0 81p^        >:.25*,^
            ^                      <

Aku ingin tahu apakah aku bisa membuat ini lebih kecil dengan mengubah rute jalan ...

Sunting: redid bagian atas untuk menghindari garis tambahan.

Perl 5.10 - 27 karakter

map{say if$_==reverse}0..<>

Membaca argumen dari stdin.

Ruby 1.9, 39 karakter

puts (?0..gets).select{|i|i==i.reverse}

Input (tidak boleh diakhiri dengan baris baru) via stdin. Doa contoh:

echo -n 500 | ruby1.9 palinenum.rb

40 karakter untuk versi yang menggunakan arg baris perintah:

puts (?0..$*[0]).select{|i|i==i.reverse}

J , 20 karakter

(#~(-:|.)@":"0)>:i.n

Python, 57 51 karakter

for i in range(input()):
 if`i`==`i`[::-1]:print i

Pemakaian:

echo 500 | python palindromic.py

Perl> 5.10: 25 karakter

map$_==reverse&&say,0..<>

APL ( 25 17)

↑t/⍨t≡∘⌽¨t←⍕¨0,⍳⎕

Javascript 122 108 107 karakter ...

Saya yakin ini bisa bermain golf lebih banyak - saya baru dalam hal ini!

n=prompt(o=[]);for(i=0;i<=n;i++)if(i+''==(i+'').split("").reverse().join(""))o.push(i);alert(o.join("\n"));

atau

n=prompt(o=[]);i=-1;while(i++<n)if(i+''==(i+'').split("").reverse().join(""))o.push(i);alert(o.join("\n"));

Perl - 43 karakter

for$i(0..<>){if($i==reverse$i){print$i,$/}}

Ini adalah upaya pertama saya di kode golf, jadi saya cukup yakin seorang pro Perl bisa menurunkannya.

Haskell 66 karakter

main=do n<-readLn;mapM_ putStrLn[s|s<-map show[0..n],s==reverse s]

PHP 64 58

for($i=0;$i<=$argv[1];print$i==strrev($i)?$i.'\n':'',$i++)

Mengubah $ _GET ['n'] menjadi $ argv [1] untuk input baris perintah.

Scala 59

(0 to readInt)filter(x=>""+x==(""+x).reverse)mkString("\n")

PHP, 59 55 53 karakter

for($i=0;$i++<$argv[1];)if($i==strrev($i))echo"$i\n";

Pemakaian

php palindromic.php 500

Sunting: terima kasih Thomas

C, 98 karakter

n,i,j,t;main(){for(scanf("%d",&n);i<=n;i-j?1:printf("%d ",i),i++)for(t=i,j=0;t;t/=10)j=j*10+t%10;}

k (23 karakter)

{i@&{&/i=|i:$x}'i:!1+x}

Mathematica 61

Column@Select[0~Range~Input[],#==Reverse@#&@IntegerDigits@#&]

Befunge, 97 (ukuran kotak 37x4 = 148)

#v&#:< ,*25-$#1._.@
:>:::01-\0v >-!#^_$1-
*\25*/:!#v_::1>\#* #*25*#\/#$:_$\25*%
   `-10:\<+_v#

Dapatkan jawaban Befunge yang lebih baik untuk pertanyaan ini. Ini Befunge-93 secara khusus; Saya mungkin bisa membuatnya lebih ringkas dengan Befunge-98. Saya akan memasukkannya dalam sunting mendatang.

Karena Anda tidak dapat beroperasi pada string di Befunge, yang terbaik yang bisa saya lakukan adalah menghitung angka-kebalikan dari setiap nomor (yang saya terkejut saya bisa kelola tanpa pdan g) dan membandingkannya dengan nomor asli. Digit-reverse mengambil sebagian besar kode (pada dasarnya seluruh baris ketiga dan keempat).

Perhatikan bahwa program, seperti yang ada sekarang, mencetak angka mundur dari input ke 0. Jika ini masalah besar, beri tahu saya. (Tantangannya hanya mengatakan untuk menyebutkan mereka, tidak secara khusus dalam urutan meningkat.)

05AB1E , 5 byte (tidak bersaing)

Bahasa ini mengungguli tantangan dan karenanya tidak bersaing . Kode:

ƒNÂQ–

Penjelasan:

ƒ      # For N in range(0, input() + 1)
 N     #   Push N
  Â    #   Bifurcate (pushes N and N[::-1])
   Q   #   Check for equality
    –  #   If true, pop and print N

Menggunakan pengodean CP-1252 . Cobalah online! .

Brachylog (2), pertanyaan tanggal bahasa:

Dengan format I / O yang dinyatakan dalam pertanyaan, 8 byte

≥ℕA↔A≜ẉ⊥

Cobalah online!

Dengan aturan I / O PPCG modern, 4 byte

≥ℕ.↔

Cobalah online!

Ini adalah fungsi yang menghasilkan semua output, bukan program lengkap seperti contoh sebelumnya, dan karenanya tidak sesuai dengan spesifikasi seperti yang tertulis, tapi saya pikir saya akan menunjukkan bagaimana program akan terlihat seperti jika pertanyaan telah ditulis dengan standar I / O modern (yang memungkinkan penggunaan fungsi, dan output melalui generator).

Penjelasan

≥ℕ.↔ 
 ℕ    Generate natural numbers
≥     less than or equal to the input
  .   but output only the ones
   ↔  that would produce the same output if reversed

Untuk versi program lengkap, kami membuat variabel sementara Auntuk menahan output, secara eksplisit melabelnya (ini dilakukan secara implisit untuk predikat utama program), dan menggunakan ẉ⊥teknik terkenal untuk mengeluarkan elemen generator ke output standar.

Python

n=raw_input('')
for a in range(0,int(n)+1):
    r=str(a)
    if str(a)==r[::-1]:
        print r

Groovy, 83

System.in.eachLine{(0..it.toInteger()).each{if("$it"=="$it".reverse())println(it)}}

Q (34 karakter)

Lewati n daripada n +1 sebagai argumen untuk solusi Q ini.

{i(&)({all i=(|)i:($)x}')i:(!)1+x}

Q, 32

{a(&)a~'((|:)')a:((-3!)')(!)1+x}

Q (33)

{if[x="I"$(|:) -3!x;:x]} each til

Mungkin cara yang lebih rapi untuk melakukan ini tetapi bagaimanapun, sampel penggunaan (Anda memasukkan n +1 untuk sampai ke n):

q){if[x="I"$(|:) -3!x;:x]} each til  10
0 1 2 3 4 5 6 7 8 9

Saran oleh tmartin, turun ke 29:

({$[x="I"$(|:) -3!x;x;]}')(!)

Penggunaan yang sama.

Python, 106 karakter

import sys as a
print(type(a.argv[1]))
for x in range(int(a.argv[1])+1):
 x=str(x)
 if x==x[::-1]:print(x)

pemakaian:

python a.py 500

C # ( 217 214 191 karakter)

Versi golf:

using System;using System.Linq;class P{static void Main(){int n=int.Parse(Console.ReadLine());do{var t=(n+"").ToArray();Array.Reverse(t);Console.Write(n+""==new string(t)?n+"\n":"");}while(n-->0);Console.ReadLine();}}

Dapat dibaca:

using System;
using System.Linq;
class P
{
    static void Main()
    {
        int n = int.Parse(Console.ReadLine());
        do
        {
            var t = (n + "").ToArray();
            Array.Reverse(t);
            Console.Write(n + "" == new string(t) ? n + "\n" : "");
        } while (n-->0);

        Console.ReadLine();
    }
}

Ini mencetak palindrom dengan urutan menurun menggunakan operator n -> 0. (seperti n pergi ke 0).

* Versi yang sudah diedit menggantikan do ... while with while, menyimpan 3 karakter, tetapi sekarang Anda harus memasukkan dengan n +1.

using System;using System.Linq;class P{static void Main(){int n=int.Parse(Console.ReadLine());while(n-->0){var t=(n+"").ToArray();Array.Reverse(t);Console.Write(n+""==new string(t)?n+"\n":"");}Console.ReadLine();}}

* diedit: menemukan cara yang lebih baik untuk membalikkan string tanpa mengubah ke array:

using System;using System.Linq;class P{static void Main(){int n=int.Parse(Console.ReadLine());while(n-->0)Console.Write(n+""==string.Join("",(""+n).Reverse())?n+"\n":"");Console.ReadLine();}}

Dapat dibaca:

using System;
using System.Linq;
class P
{
    static void Main()
    {
        int n = int.Parse(Console.ReadLine());
        while (n-->0)
            Console.Write(n + "" == string.Join("", ("" + n).Reverse()) ? n + "\n" : ""); 
        Console.ReadLine();
    }
}

PHP 53

Bisakah 53 lebih rendah? Empat opsi berbeda:

for($i=$argv[1];$i-->0;)echo$i==strrev($i)?"$i\n":"";
for($i=$argv[1];$i-->0;)if($i==strrev($i))echo"$i\n";
while(($i=$argv[1]--)>0)echo$i==strrev($i)?"$i\n":"";
while(($i=$argv[1]--)>0)if($i==strrev($i))echo"$i\n";

Jika Anda ingin ...

PHP 47

while(($i=$argv[1]--)>0)if($i==strrev($i))`$i`;

Anda harus mengabaikan teks kesalahan. Namun, nomor palindrome masih ditampilkan ke baris perintah.

Pyth, 11

VhQIq`N_`NN

Contoh:

$ pyth -c 'VhQIq`N_`NN' <<< 200
0
1
2
3
4
5
6
7
8
9
11
22
33
44
55
66
77
88
99
101
111
121
131
141
151
161
171
181
191