Zählen Sie bei einer nicht negativen Ganzzahl n alle palindromischen Zahlen (in Dezimalzahlen) zwischen 0 und n (einschließlich Bereich) auf. Eine palindromische Zahl bleibt gleich, wenn ihre Ziffern umgekehrt werden.

Die ersten palindromischen Zahlen (in Basis 10) sind hier angegeben :

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

Dies ist ein Code-Golf, bei dem der Preis an die wenigsten Charaktere geht. Die palindromischen Zahlen sollten eine pro Zeile an stdout ausgegeben werden. Das Programm sollte n von der Kommandozeile oder stdin lesen.

Golfscript, 15 Zeichen

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

Perl 5.10, 29 (oder 39) Zeichen

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

Muss die sayFunktion aktiviert sein. 29 Zeichen, wenn Sie das für kostenlos halten, andernfalls 39 hinzufügen use 5.010;. Argument zu STDIN.

Perl, 35 Zeichen

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

unter Verwendung der alten Perlgolf-Konvention, #!perldie nicht gezählt wird, aber alle darauf folgenden Flags sind.

Perl, 36 Zeichen

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

Wenn sich keiner der anderen qualifiziert.

Befunge 320 313 303 Zeichen

(einschließlich bedeutender Zeilenumbrüche und Leerzeichen)

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

Ich frage mich, ob ich das durch Umleiten der Pfade verkleinern könnte ...

Bearbeiten: Den oberen Teil neu gestalten, um eine zusätzliche Linie zu vermeiden.

Perl 5.10 - 27 Zeichen

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

Liest das Argument von stdin.

Ruby 1.9, 39 Zeichen

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

Eingabe (darf nicht mit einem Zeilenumbruch abgeschlossen werden) über stdin. Beispielaufruf:

echo -n 500 | ruby1.9 palinenum.rb

40 Zeichen für eine Version, die Befehlszeilenargumente verwendet:

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

J , 20 Zeichen

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

Python, 57 51 Zeichen

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

Verwendung:

echo 500 | python palindromic.py

Perl> 5.10: 25 Zeichen

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

APL ( 25 17)

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

Javascript 122 108 107 Zeichen ...

Ich bin mir sicher, dass dies mehr Golf gespielt werden kann - ich bin neu in diesem Bereich!

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

oder

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

Perl - 43 Zeichen

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

Dies ist mein erster Versuch, Code-Golf zu spielen, daher bin ich mir ziemlich sicher, dass ein Perl-Profi Golf spielen könnte.

Haskell 66 Zeichen

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'] wurde für die Befehlszeileneingabe in $ argv [1] geändert.

Scala 59

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

PHP, 59 55 53 Zeichen

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

Verwendung

php palindromic.php 500

Edit: danke Thomas

C, 98 Zeichen

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

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

Mathematica 61

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

Befunge, 97 (Rastergröße 37x4 = 148)

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

Haben Sie eine bessere Antwort auf diese Frage. Dies ist speziell Befunge-93; Mit Befunge-98 könnte ich es wahrscheinlich noch kompakter machen. Ich werde das in eine zukünftige Bearbeitung aufnehmen.

Da Sie in Befunge keine Zeichenfolgen bearbeiten können, war das Beste, was ich tun konnte, die Umkehrung der Ziffern jeder Zahl zu berechnen (was ich überrascht bin, dass ich ohne pund auskommen konnte g) und sie mit der ursprünglichen Zahl zu vergleichen. Die Ziffernumkehr nimmt den größten Teil des Codes ein (im Grunde die gesamte dritte und vierte Zeile).

Beachten Sie, dass das Programm in seiner jetzigen Form die Zahlen von der Eingabe bis 0 rückwärts druckt. Wenn dies eine große Sache ist, lassen Sie es mich wissen. (Die Herausforderung besteht nur darin, sie aufzuzählen, nicht speziell in aufsteigender Reihenfolge.)

05AB1E , 5 Bytes (nicht konkurrierend)

Die Sprache datiert die Herausforderung nach und ist daher nicht konkurrierend . Code:

ƒNÂQ–

Erläuterung:

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

Verwendet die CP-1252- Codierung. Probieren Sie es online aus! .

Brachylog (2), Frage nach den Sprachdaten:

Mit dem in der Frage angegebenen E / A-Format 8 Bytes

≥ℕA↔A≜ẉ⊥

Probieren Sie es online aus!

Mit modernen PPCG-E / A-Regeln 4 Bytes

≥ℕ.↔

Probieren Sie es online aus!

Dies ist eine Funktion, die alle Ausgaben generiert, kein vollständiges Programm wie im vorherigen Beispiel, und daher nicht der angegebenen Spezifikation entspricht, aber ich dachte, ich würde zeigen, wie das Programm aussehen würde, wenn die Frage geschrieben worden wäre nach modernen E / A-Standards (die die Verwendung von Funktionen und die Ausgabe über Generatoren ermöglichen).

Erläuterung

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

Für die vollständige Programmversion erstellen wir eine temporäre Variable A, um die Ausgabe zu speichern, sie explizit zu kennzeichnen (dies erfolgt implizit für das Hauptprädikat eines Programms) und verwenden die bekannte ẉ⊥Technik zum Ausgeben der Elemente eines Generators an die Standardausgabe.

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

Übergeben Sie n anstelle von n + 1 als Argument für diese Q-Lösung.

{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

Wahrscheinlich ein besserer Weg, dies zu tun, aber trotzdem, Beispielverwendung (Sie geben n + 1 ein, um zu n zu gelangen):

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

Vorschlag von tmartin, bringt es auf 29:

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

Gleiche Verwendung.

Python, 106 Zeichen

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)

Verwendung:

python a.py 500

C # ( 217 214 191 Zeichen)

Golfversion:

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

Lesbar:

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

Dies druckt Palindrome in absteigender Reihenfolge unter Verwendung des Operators n -> 0 aus. (wenn n auf 0 geht).

* Die bearbeitete Version ersetzt do ... während mit while und spart 3 Zeichen, aber jetzt müssen Sie mit n + 1 eingeben.

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

* bearbeitet: Es wurde eine bessere Möglichkeit gefunden, Zeichenfolgen umzukehren, ohne sie in ein Array zu konvertieren:

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

Lesbar:

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

Kann 53 niedriger sein? Vier verschiedene Optionen:

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

Wenn du funky werden willst ...

PHP 47

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

Sie müssen den Fehlertext ignorieren. Die Palindromnummern werden jedoch weiterhin in der Befehlszeile ausgegeben.

Pyth, 11

VhQIq`N_`NN

Beispiel:

$ 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