Negatif olmayan bir tamsayı n verildiğinde, 0 ile n (dahil aralık) arasındaki tüm palindromik sayıları (ondalık olarak) numaralandırın. Palindromik bir rakam, sayıları ters çevrildiğinde aynı kalır.

İlk palindromik sayılar (taban 10'da) burada verilmiştir :

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

Bu ödül golf en az karakter olacak bir kod golf. Palindromik sayıların stdout'a her satıra bir çıkışı yapılmalıdır. Program, komut satırından veya stdin'den n okumalıdır.

Golfscript, 15 karakter

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

Perl 5.10, 29 (veya 39) karakter

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

İhtiyaç sayetkin özelliği. Ücretsiz olduğunu düşünüyorsanız 29 karakter, aksi takdirde 39 ekleyin use 5.010;. STDIN tartışması.

Perl, 35 karakter

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

eski perlgolf konvansiyonu #!perlsayılmaz ama onu takip eden bayraklar kullanılır.

Perl, 36 karakter

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

Diğerlerinden hiçbiri uygun değilse.

Befunge 320 313 303 karakter

(önemli yeni satırlar ve boşluklar dahil)

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

Acaba yolları yeniden yönlendirerek bunu küçültebilir miyim ...

Düzenleme: fazladan bir çizgiden kaçınmak için üst kısmı yeniden düzenleyin.

Perl 5.10 - 27 karakter

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

Stdin'den argümanı okur.

Yakut 1.9, 39 karakter

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

Stdin yoluyla giriş (bir satırsonu ile sonlandırılmamalıdır). Örnek çağırma:

echo -n 500 | ruby1.9 palinenum.rb

Komut satırı argümanlarını kullanan bir sürüm için 40 karakter:

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

Kullanımı:

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

Eminim bu daha fazla golf olabilir - Ben bu konuda yeniyim!

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

veya

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,$/}}

Bu benim ilk denemede kod golf, bu yüzden bir Perl pro aşağı golf olabilir eminim.

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++)

Komut satırı girişi için $ _GET ['n'] öğesini $ argv [1] olarak değiştirdi.

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

kullanım

php palindromic.php 500

Düzenleme: teşekkürler 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 (ızgara boyutu 37x4 = 148)

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

Bu soruya daha iyi bir Befunge cevabı ver. Bu özellikle Befunge-93; Befunge-98 ile muhtemelen daha da kompakt hale getirebilirim. Bunu gelecekteki bir düzenlemeye ekleyeceğim.

Befunge'de dizelerde çalışamayacağınız için yapabileceğim en iyi şey, her sayının rakam tersini hesaplamaktı (ki bu olmadan pveg ) ve orijinal sayısıyla karşılaştırabilirsiniz. Rakam-tersi kodun çoğunu alır (temel olarak üçüncü ve dördüncü satırların tümü).

Programın şu anda olduğu gibi, sayıları girişten geriye doğru 0'a yazdırdığını unutmayın. Bu çok önemliyse, bana bildirin. (Zorluk, sadece artan sıralamada değil, sadece numaralandırmayı söylüyor.)

05AB1E , 5 bayt (rakip olmayan)

Dil bu mücadeleden sonra gelir ve bu nedenle rekabet etmez . Kod:

ƒNÂQ–

Açıklama:

ƒ      # 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

CP-1252 kodlamasını kullanır . Çevrimiçi deneyin! .

Brachylog (2), dil postdates sorusu:

Soruda belirtilen I / O formatı ile 8 bayt

≥ℕA↔A≜ẉ⊥

Çevrimiçi deneyin!

Modern PPCG I / O kuralları ile 4 bayt

≥ℕ.↔

Çevrimiçi deneyin!

Bu, önceki örnekte olduğu gibi tam bir program değil, tüm çıktıları üreten bir işlevdir ve bu nedenle yazılı spesifikasyona uymaz, ancak soru yazıldıysa programın nasıl görüneceğini göstereceğimi düşündüm Modern I / O standartlarına (fonksiyonların kullanımına ve jeneratörler aracılığıyla çıkışa izin verir).

açıklama

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

Tam program sürümü için, Açıktıyı tutmak, açıkça etiketlemek (bu bir programın ana yüklemi için örtük olarak yapılır) ve ẉ⊥bir jeneratörün elemanlarını standart çıktıya çıkarmak için iyi bilinen tekniği kullanarak geçici bir değişken oluştururuz .

piton

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

Harika, 83

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

Q (34 karakter)

Bu Q çözümü için argüman olarak n + 1 yerine n değerini iletin.

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

S, 32

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

Q (33)

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

Muhtemelen bunu yapmanın daha temiz bir yolu ama yine de, örnek kullanım (n'ye ulaşmak için n + 1 girersiniz):

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

Tmartin tarafından öneri, 29'a indirir:

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

Aynı kullanım.

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)

kullanımı:

python a.py 500

C # ( 217 214 191 karakter)

Golf versiyonu:

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();}}

Okunabilir:

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();
    }
}

Bu n -> 0 operatörünü kullanarak palindromları azalan sırada yazdırır. (n 0'a giderken).

* Düzenlenen sürüm, ... karakterini değiştirirken, 3 karakter kaydeder, ancak şimdi n + 1 ile giriş yapmanız gerekir.

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();}}

* düzenlendi: diziye dönüştürmeden dizeyi ters çevirmenin daha iyi bir yolunu buldu:

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();}}

Okunabilir:

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

53 daha düşük olabilir mi? Dört farklı seçenek:

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

Eğer korkak almak istiyorsanız ...

PHP 47

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

Hata metnini yok saymanız gerekir. Bununla birlikte, palindrom numaraları hala komut satırına gönderilir.

Pyth, 11

VhQIq`N_`NN

Misal:

$ 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