รับค่าเป็นจำนวนเต็มที่ไม่ใช่ค่าลบ n ระบุจำนวน palindromic ทั้งหมด (เป็นทศนิยม) ระหว่าง 0 ถึง n (ช่วงที่ครอบคลุม) หมายเลข palindromic ยังคงเหมือนเดิมเมื่อมีการกลับตัวเลข

ตัวเลข palindromic ตัวแรก (ในฐาน 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, 383, 393, 393, 404, 414, 424, 434, 444, 454, 464, 474, 484, 494, 505, 515, ...

นี่คือรหัสกอล์ฟที่มีรางวัลน้อยที่สุดสำหรับตัวละคร หมายเลข palindromic ควรเป็นเอาต์พุตหนึ่งบรรทัดต่อ stdout โปรแกรมควรอ่าน n จาก commandline หรือ stdin

Golfscript, 15 ตัวอักษร

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

Perl 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*,^
            ^                      <

ฉันสงสัยว่าฉันสามารถทำให้ขนาดเล็กลงได้โดยเปลี่ยนเส้นทางใหม่ ...

แก้ไข: redid ส่วนบนเพื่อหลีกเลี่ยงการเพิ่มบรรทัด

Perl 5.10 - 27 ตัวอักษร

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

อ่านอาร์กิวเมนต์จาก stdin

Ruby 1.9, 39 ตัวอักษร

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

อินพุต (ต้องไม่ถูกยกเลิกด้วยการขึ้นบรรทัดใหม่) ผ่าน stdin ตัวอย่างการร้องขอ:

echo -n 500 | ruby1.9 palinenum.rb

40 ตัวอักษรสำหรับเวอร์ชั่นที่ใช้ commandline args:

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

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

Perl - 43 ตัวอักษร

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

นี่เป็นความพยายามครั้งแรกของฉันที่การตีกอล์ฟดังนั้นฉันค่อนข้างมั่นใจว่า Perl มืออาชีพสามารถตีมันลงได้

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] สำหรับอินพุตบรรทัดคำสั่ง

สกาล่า 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

แก้ไข: ขอบคุณ Thomas

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}

Mathematica 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 ไบต์ (ไม่แข่งขัน)

ภาษา postdates ความท้าทายและดังนั้นจึงเป็นเรื่องที่ไม่ใช่การแข่งขัน รหัส:

ƒ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) คำถามภาษา postdates:

ด้วยรูปแบบ 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

Groovy, 83

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

Q (34 ตัวอักษร)

ผ่าน n แทน n + 1 เป็นอาร์กิวเมนต์สำหรับโซลูชัน 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

อาจเป็นวิธีที่ใช้กันได้ในการดำเนินการนี้ แต่ต่อไปให้ลองใช้ตัวอย่าง (คุณป้อน 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;]}')(!)

การใช้งานเดียวกัน

Python 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 ตัวอักษร)

รุ่น Golfed:

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

สิ่งนี้จะพิมพ์ palindromes ตามลำดับจากมากไปน้อยโดยใช้ตัวดำเนินการ n -> 0 (เมื่อ n ไปที่ 0)

* เวอร์ชันที่แก้ไขจะถูกแทนที่ด้วย ... ในขณะที่ในขณะที่ประหยัด 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`;

คุณต้องละเว้นข้อความแสดงข้อผิดพลาด อย่างไรก็ตามหมายเลข palindrome ยังคงส่งออกไปยังบรรทัดคำสั่งอย่างไรก็ตาม

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