음수가 아닌 정수 n이 주어지면, 0과 n (포함 범위) 사이의 모든 회문 번호 (10 진수)를 열거하십시오. 회문 번호는 숫자를 반대로해도 동일하게 유지됩니다.

첫 번째 회문 번호 (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에 한 줄에 하나씩 출력되어야합니다. 프로그램은 명령 행 또는 stdin에서 n을 읽어야합니다.

골프 스크립트, 15 자

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

Perl 5.10, 29 (또는 39) 자

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

say기능이 활성화되어 있어야 합니다. 당신이 그것을 무료로 생각하면 29 문자, 그렇지 않으면 추가하려면 39 문자 use 5.010;. STDIN에 대한 주장.

펄, 35 자

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

#!perl계산되지 않은 이전 perlgolf 규칙을 사용 하지만 그 뒤에 오는 플래그는 사용되지 않습니다.

펄, 36 자

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

다른 사람이 자격이없는 경우.

비 펀지 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

Python, 57 51 자

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

용법:

echo 500 | python palindromic.py

펄> 5.10 : 25 자

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

APL ( 25 17)

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

자바 스크립트 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"));

펄-43 자

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

이것은 코드 골프에 대한 첫 번째 시도이므로 Perl 프로가 골프를 할 수 있다고 확신합니다.

하스켈 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}

매스 매 티카 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

그루비, 83

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

Q (34 자)

이 Q 솔루션의 인수로 n + 1 대신 n을 전달하십시오.

{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에 도달하려면 n + 1을 입력하십시오) :

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를 대체하지만 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