Dato un numero intero non negativo n, enumera tutti i numeri palindromici (in decimale) tra 0 e n (intervallo compreso). Un numero palindromico rimane lo stesso quando le sue cifre sono invertite.

I primi numeri palindromici (in base 10) sono riportati qui :

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

Questo è un codice golf con il premio che va al minor numero di personaggi. I numeri palindromici dovrebbero essere emessi uno per riga su stdout. Il programma dovrebbe leggere n dalla riga di comando o stdin.

Golfscript, 15 caratteri

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

Perl 5,10, 29 (o 39) caratteri

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

Ha bisogno della sayfunzione abilitata. 29 caratteri se lo consideri gratuito, altrimenti 39 da aggiungere use 5.010;. Argomento su STDIN.

Perl, 35 caratteri

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

usando la vecchia convenzione perlgolf che #!perlnon viene contata ma che ne sono seguite tutte le bandiere.

Perl, 36 caratteri

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

Se nessuno degli altri si qualifica.

Befunge 320 313 303 caratteri

(compresi nuovi spazi significativi e spazi bianchi)

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

Mi chiedo se potrei ridurlo ridirigendo i percorsi ...

Modifica: ridisegna la parte superiore per evitare una riga aggiuntiva.

Perl 5.10 - 27 caratteri

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

Legge l'argomento da stdin.

Ruby 1.9, 39 caratteri

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

Input (non deve essere terminato con una nuova riga) tramite stdin. Esempio di invocazione:

echo -n 500 | ruby1.9 palinenum.rb

40 caratteri per una versione che utilizza args a riga di comando:

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

J , 20 caratteri

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

Python, 57 51 caratteri

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

Uso:

echo 500 | python palindromic.py

Perl> 5.10: 25 caratteri

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

APL ( 25 17)

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

Javascript 122 108 107 caratteri ...

Sono sicuro che questo può essere giocato di più - ne sono nuovo!

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 caratteri

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

Questo è il mio primo tentativo di codificare il golf, quindi sono abbastanza sicuro che un professionista del Perl possa giocare a golf.

Haskell 66 caratteri

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

Modificato $ _GET ['n'] in $ argv [1] per l'input dalla riga di comando.

Scala 59

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

PHP, 59 55 53 caratteri

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

uso

php palindromic.php 500

Modifica: grazie Thomas

C, 98 caratteri

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

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

Mathematica 61

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

Befunge, 97 (dimensione della griglia 37x4 = 148)

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

Avere una risposta migliore di Befunge a questa domanda. Questo è Befunge-93 in particolare; Probabilmente potrei renderlo ancora più compatto con Befunge-98. Lo includerò in una modifica futura.

Dal momento che non puoi operare sulle stringhe in Befunge, il meglio che potevo fare era calcolare l'inversione di cifra di ogni numero (che sono sorpreso di poter gestire senza pe g) e confrontarlo con il numero originale. Il digit-reverse occupa la maggior parte del codice (sostanzialmente l'intera terza e quarta riga).

Si noti che il programma, così com'è ora, stampa i numeri all'indietro dall'input fino a 0. Se questo è un grosso problema, fatemi sapere. (La sfida dice solo di elencarli, non specificatamente in ordine crescente.)

05AB1E , 5 byte (non concorrenti)

La lingua postdatizza la sfida ed è quindi non competitiva . Codice:

ƒNÂQ–

Spiegazione:

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

Utilizza la codifica CP-1252 . Provalo online! .

Brachylog (2), domanda postdati lingua:

Con il formato I / O indicato nella domanda, 8 byte

≥ℕA↔A≜ẉ⊥

Provalo online!

Con moderne regole I / O PPCG, 4 byte

≥ℕ.↔

Provalo online!

Questa è una funzione che genera tutti gli output, non un programma completo come nell'esempio precedente, e quindi non è conforme alle specifiche scritte, ma ho pensato di mostrare come sarebbe il programma se la domanda fosse stata scritta ai moderni standard I / O (che consentono l'uso di funzioni e l'output tramite generatori).

Spiegazione

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

Per la versione completa del programma, creiamo una variabile temporanea Aper contenere l'output, etichettarlo esplicitamente (ciò viene fatto implicitamente per il predicato principale di un programma) e utilizziamo la ẉ⊥tecnica ben nota per trasmettere gli elementi di un generatore all'output standard.

Pitone

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

Passa n anziché n + 1 come argomento per questa soluzione 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

Probabilmente un modo più pulito per farlo, ma comunque, uso del campione (inserisci n + 1 per arrivare a n):

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

Suggerimento di tmartin, arriva a 29:

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

Stesso utilizzo.

Python, 106 caratteri

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)

utilizzo:

python a.py 500

C # ( 217 214 191 caratteri)

Versione golfizzata:

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

Leggibile:

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

Questo stampa i palindromi in ordine decrescente usando l'operatore n -> 0. (come n va a 0).

* La versione modificata sostituisce do ... while with while, salvando 3 caratteri, ma ora è necessario immettere 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();}}

* modificato: trovato un modo migliore per invertire la stringa senza convertire in 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();}}

Leggibile:

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 può essere inferiore? Quattro diverse opzioni:

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

Se vuoi diventare funky ...

PHP 47

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

Devi ignorare il testo dell'errore. I numeri del palindromo vengono comunque emessi sulla riga di comando.

Pyth, 11

VhQIq`N_`NN

Esempio:

$ 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