Dado un número entero no negativo n, enumere todos los números palindrómicos (en decimal) entre 0 yn (rango inclusivo). Un número palindrómico permanece igual cuando se invierten sus dígitos.

Los primeros números palindrómicos (en base 10) se dan aquí :

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

Este es un código de golf con el premio que va a menos personajes Los números palindrómicos deben enviarse uno por línea a stdout. El programa debería leer n desde la línea de comandos o stdin.

Golfscript, 15 caracteres

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

Perl 5.10, 29 (o 39) caracteres

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

Necesita la sayfunción habilitada. 29 caracteres si considera que es gratis, de lo contrario 39 para agregar use 5.010;. Argumento sobre STDIN.

Perl, 35 caracteres.

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

usando la antigua convención de perlgolf que #!perlno se cuenta, pero sí las banderas que la siguen.

Perl, 36 caracteres

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

Si ninguno de los otros califica.

Befunge 320 313 303 caracteres

(incluidas nuevas líneas y espacios en blanco significativos)

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

Me pregunto si podría hacer esto más pequeño cambiando el ruteo de los caminos ...

Editar: vuelve a hacer la parte superior para evitar una línea extra.

Perl 5.10 - 27 caracteres

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

Lee el argumento de stdin.

Ruby 1.9, 39 caracteres

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

Entrada (no debe terminarse con una nueva línea) a través de stdin. Ejemplo de invocación:

echo -n 500 | ruby1.9 palinenum.rb

40 caracteres para una versión que usa argumentos de línea de comandos:

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

J , 20 caracteres

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

Python, 57 51 caracteres

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

Uso:

echo 500 | python palindromic.py

Perl> 5.10: 25 caracteres

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

APL ( 25 17)

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

Javascript 122 108 107 caracteres ...

Estoy seguro de que esto se puede jugar más, ¡soy nuevo en esto!

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

o

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

Perl - 43 caracteres

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

Este es mi primer intento de código de golf, así que estoy bastante seguro de que un profesional de Perl podría jugarlo.

Haskell 66 personajes

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

Se cambió $ _GET ['n'] a $ argv [1] para la entrada de línea de comando.

Scala 59

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

PHP, 59 55 53 caracteres

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

Uso

php palindromic.php 500

Editar: gracias Thomas

C, 98 caracteres

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

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

Mathematica 61

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

Befunge, 97 (tamaño de cuadrícula 37x4 = 148)

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

Tener una mejor respuesta Befunge a esta pregunta. Este es Befunge-93 específicamente; Probablemente podría hacerlo aún más compacto con Befunge-98. Lo incluiré en una edición futura.

Como no puede operar con cadenas en Befunge, lo mejor que pude hacer fue calcular el reverso de dígitos de cada número (que me sorprende poder manejar sin py g) y compararlo con el número original. El reverso de dígitos ocupa la mayor parte del código (básicamente las líneas tercera y cuarta completas).

Tenga en cuenta que el programa, tal como está ahora, imprime los números hacia atrás desde la entrada hasta 0. Si esto es un gran problema, avíseme. (El desafío solo dice enumerarlos, no específicamente en orden creciente).

05AB1E , 5 bytes (no competitivos)

El lenguaje es posterior al desafío y, por lo tanto, no es competitivo . Código:

ƒNÂQ–

Explicación:

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

Utiliza la codificación CP-1252 . Pruébalo en línea! .

Brachylog (2), pregunta de fechas posteriores al idioma:

Con el formato de E / S indicado en la pregunta, 8 bytes

≥ℕA↔A≜ẉ⊥

Pruébalo en línea!

Con reglas modernas de E / S PPCG, 4 bytes

≥ℕ.↔

Pruébalo en línea!

Esta es una función que genera todas las salidas, no un programa completo como el ejemplo anterior, y por lo tanto no cumple con la especificación tal como está escrita, pero pensé que mostraría cómo se vería el programa si la pregunta hubiera sido escrita a los estándares modernos de E / S (que permiten el uso de funciones y salida a través de generadores).

Explicación

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

Para la versión completa del programa, creamos una variable temporal Apara contener la salida, etiquetarla explícitamente (esto se hace implícitamente para el predicado principal de un programa) y usar la ẉ⊥técnica bien conocida para enviar los elementos de un generador a la salida estándar.

Pitón

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

Pase n en lugar de n + 1 como argumento para esta solución Q.

{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

Probablemente una forma más ordenada de hacer esto, pero de todos modos, muestra el uso (ingresas n + 1 para llegar a n):

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

La sugerencia de tmartin lo reduce a 29:

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

Mismo uso.

Python, 106 caracteres

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)

uso:

python a.py 500

C # ( 217 214 191 caracteres)

Versión de 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();}}

Legible:

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

Esto imprime palíndromos en orden descendente haciendo uso del operador n -> 0. (como n va a 0).

* La versión editada reemplaza do ... while con while, guardando 3 caracteres, pero ahora debe ingresar con 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();}}

* editado: encontró una mejor manera de invertir la cadena sin convertirla en una matriz:

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

Legible:

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

¿Puede 53 ser más bajo? Cuatro opciones diferentes:

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

Si quieres ponerte funky ...

PHP 47

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

Tienes que ignorar el texto de error. Sin embargo, los números de palíndromo todavía se envían a la línea de comando.

Pyth, 11

VhQIq`N_`NN

Ejemplo:

$ 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