给定一个非负整数n，请列举介于0和n（包括范围）之间的所有回文数（十进制）。回数数字相反时，其数字保持不变。

第一个回文数（以10为底）在这里给出：

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

这是一场代码高尔夫，奖金最少的人物。回文编号应每行输出到stdout。该程序应从命令行或标准输入中读取n。

Golfscript，15个字符

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

Perl 5.10，29（或39）个字符

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

需要say启用该功能。如果您认为免费，则为29个字符，否则为39个字符use 5.010;。关于STDIN的争论。

Perl，35个字符

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

使用#!perl不计算在内的旧perlgolf约定，但遵循该约定的任何标志。

Perl，36个字符

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

如果没有其他人有资格。

Befunge 320个 313 303字符

（包括重要的换行符和空格）

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

我想知道是否可以通过重新路由路径来减小此尺寸...

编辑：重做顶部以避免多余的线条。

Perl 5.10-27个字符

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

从stdin读取参数。

Ruby 1.9，39个字符

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

通过stdin输入（不得以换行符终止）。调用示例：

echo -n 500 | ruby1.9 palinenum.rb

使用命令行参数的版本为40个字符：

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

J，20个字符

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

Python，57个 51个字符

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

用法：

echo 500 | python palindromic.py

Perl> 5.10：25个字符

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

杀伤人员地雷（25 17）

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

Java脚本 122 108 107个字符...

我敢肯定，这可以打得更多-我是新手！

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

要么

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

Perl-43个字符

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

这是我第一次尝试打高尔夫，所以我很确定Perl专业人士可以打高尔夫。

Haskell 66个字符

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

将用于命令行输入的$ _GET ['n']更改为$ argv [1]。

斯卡拉59

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

PHP，59 55 53字符

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

用法

php palindromic.php 500

编辑：谢谢托马斯

C，98个字符

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个字符）

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

Mathematica 61

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

Befunge，97（网格尺寸37x4 = 148）

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

对这个问题有更好的Befunge答案。特别是Befunge-93；我可能可以使用Befunge-98使它更加紧凑。我将在以后的编辑中添加它。

由于您无法在Befunge中对字符串进行操作，因此，我能做的最好的事情是计算每个数字的反向数字（我很惊讶没有p和就能管理g），并将其与原始数字进行比较。反向数字占用大部分代码（基本上是整个第三和第四行）。

请注意，该程序从现在开始将数字从输入向下打印到0。如果这很重要，请告诉我。（挑战只是说要枚举它们，而不是按递增的顺序。）

05AB1E，5个字节（非竞争）

语言是挑战的最早发布日期，因此是非竞争性的。码：

ƒNÂQ–

说明：

ƒ      # 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编码。在线尝试！。

Brachylog（2），语言发布日期问题：

使用问题中说明的I / O格式，即8个字节

≥ℕA↔A≜ẉ⊥

在线尝试！

使用现代的PPCG I / O规则，4个字节

≥ℕ.↔

在线尝试！

这是一个生成所有输出的函数，而不是像上一个示例那样的完整程序，因此不符合所编写的规范，但是我想我将展示该程序在编写问题后的外观。符合现代I / O标准（允许使用功能，并通过生成器输出）。

说明

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

对于完整的程序版本，我们创建一个临时变量A来保存输出，将其显式标记（对程序的主谓词隐式完成），然后使用众所周知的ẉ⊥技术将生成器的元素输出到标准输出。

蟒蛇

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个字符）

传递n而不是n + 1作为此Q解的参数。

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

Q，32

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

问（33）

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

这样做可能是更整洁的方法，但是无论如何，请使用示例用法（输入n + 1到n）：

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

tmartin的建议，将其降至29：

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

用法相同。

Python，106个字符

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)

用法：

python a.py 500

C＃（217 214 191个字符）

高尔夫球版：

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

可读性：

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

这将使用n-> 0运算符以降序打印回文。（当n变为0时）。

*编辑后的版本将do ... while替换为while，节省了3个字符，但是现在您必须输入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();}}

*编辑：找到了一种无需转换为数组即可反转字符串的更好方法：

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

可读性：

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可以更低吗？四种不同的选择：

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

如果你想变得时髦...

PHP 47

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

您必须忽略错误文本。但是，回文编号仍会输出到命令行。

珀斯，11岁

VhQIq`N_`NN

例：

$ 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