Враховуючи невід'ємне ціле число 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 з командного рядка або stdin.

Гольфскрипт, 15 символів

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

Перл 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..<>

використовуючи стару конвенцію perlgolf, яка #!perlне враховується, але будь-які прапори, що слідують за нею.

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.

Рубін 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

Пітона, 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..<>

APL ( 25 17)

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

Javascript 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 pro може зіграти його.

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] для введення командного рядка.

Scala 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}

Математика 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-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 . Спробуйте в Інтернеті! .

Брахілог (2), мова подає питання:

З форматом вводу / виводу, зазначеним у запитанні, 8 байт

≥ℕA↔A≜ẉ⊥

Спробуйте в Інтернеті!

З сучасними правилами вводу / виводу PPCG, 4 байти

≥ℕ.↔

Спробуйте в Інтернеті!

Це функція, яка генерує всі результати, а не повну програму, як попередній приклад, і тому не відповідає специфікаціям, як написано, але я подумав, що я покажу, як виглядатиме програма, якби питання було написане до сучасних стандартів вводу / виводу (які дозволяють використовувати функції та виводити через генератори).

Пояснення

≥ℕ.↔ 
 ℕ    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

Гровий, 83

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

Q (34 знаків)

В якості аргументу для цього рішення Q введіть n, а не n + 1.

{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

Можливо, це більш акуратний спосіб зробити це, але все одно, вибіркове використання (ви вводите 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;]}')(!)

Те саме використання.

Пітон, 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, зберігаючи 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