เขียนโปรแกรมสั้นสำหรับ196 ขั้นตอนวิธี อัลกอริทึมเริ่มต้นจากจำนวนเต็มจากนั้นเพิ่มการย้อนกลับของมันจนกว่าจะถึง Palindrome

เช่น

input = 5280
5280 + 0825 = 6105
6105 + 5016 = 11121
11121 + 12111 = 23232
output = 23232

อินพุต

จำนวนเต็มซึ่งไม่ได้เป็นจำนวน lyrchrel (นั่นคือในที่สุดมันก็ให้ผลเป็น palindrome ภายใต้อัลกอริทึมนี้แทนที่จะดำเนินการต่อไปเรื่อย ๆ )

เอาท์พุต

ถึง palindrome

APL (22 ตัวอักษร)

{a≡⌽a←⍕(⍎⍵)+⍎⌽⍵:a⋄∇a}⍞

งานนี้ใน Dyalog APL นี่คือคำอธิบายจากขวาไปซ้าย:

• { ... }⍞: รับข้อมูลจากผู้ใช้เป็นอักขระ ( ⍞) และป้อนเข้าสู่ฟังก์ชั่นของเรา ( { ... })
• ภายในฟังก์ชั่นโดยตรง ( ⋄แยกข้อความสั่งดังนั้นเราจึงดูจากซ้ายไปขวา):
  • a≡⌽a←⍕(⍎⍵)+⍎⌽⍵ : a: Evaluate ( ⍎) อาร์กิวเมนต์ที่ถูกต้องคือ ( ⍵) reverse ( ⌽) และเพิ่มเข้าไปในเวอร์ชันที่ประเมินของอาร์กิวเมนต์ที่เหมาะสมนั้นเอง จากนั้นให้จัดรูปแบบผลลัพธ์ ( ⍕; เช่นให้การแสดงอักขระ), มอบหมาย ( ←) ให้กับตัวแปรaและสุดท้ายทดสอบว่าการaย้อนกลับนั้นเทียบเท่ากับa(เช่นคือapalindrome หรือไม่) ถ้าเป็นจริงส่งคืนa; มิฉะนั้น...
  • ∇a: ป้อนaกลับเข้าสู่ฟังก์ชันของเรา ( ∇เป็นการอ้างอิงตนเองโดยนัย)

ตัวอย่าง:

      {a≡⌽a←⍕(⍎⍵)+⍎⌽⍵:a⋄∇a}⍞
412371
585585

GolfScript, 29 ตัวอักษร

~]{{.`.-1%.@={;0}{~+1}if}do}%

ความเห็นที่เลือก

เนื้อของโปรแกรมเป็นdoวงแน่นอน ดังนั้นฉันจะครอบคลุมที่

1. .` คัดลอกหมายเลขและทำให้เป็นสตริง
2. .-1% คัดลอกเวอร์ชันของสตริงนั้นและย้อนกลับ
3. .@ คัดลอกเวอร์ชันที่กลับด้านและนำเวอร์ชันที่ไม่กลับด้านเดิมมาไว้ด้านหน้า

ดังนั้นพูดว่าตัวเลขคือ 5280. 5280 "0825" "0825" "5280"ในขั้นตอนนี้สแต็คเป็น: สเตจถูกตั้งค่าสำหรับการเปรียบเทียบ (หลังจากการเปรียบเทียบสแต็กจะถูกทิ้งไว้5280 "0825"ไม่ว่าจะมีอะไรโผล่ออกมา --- ไอเท็มเพื่อเปรียบเทียบถูกนำออกไป)

1. หากสตริงและการย้อนกลับเหมือนกันเราไม่สนใจเกี่ยวกับสตริงที่ย้อนกลับดังนั้นเพียงแค่เปิดมันออก ( ;) และกลับ 0 (เพื่อสิ้นสุดการdoวนรอบ)
2. หากพวกเขาไม่ตรงกันแล้วประเมิน ( ~) สตริงกลับ (เพื่อทำให้ตัวเลข) เพิ่ม ( +) ที่หมายเลขเดิมและกลับ 1 (เพื่อดำเนินการต่อdoวง)

Python 2, 55 ไบต์

ทำตามคำแนะนำของ JPvdMerwe:

n=input()
while`n`!=`n`[::-1]:n+=int(`n`[::-1])
print n

Python 2, 62:

n=raw_input()
while n!=n[::-1]:n=`int(n)+int(n[::-1])`
print n

Ruby - 56 ตัวอักษร

x,r=gets
x="#{x.to_i+r.to_i}"until x==r=x.reverse
puts x

เพียงแค่ใช้ทักษะ Pyth ของฉันไม่ใช่คู่แข่งที่จริงจัง

Pyth, 16 ไบต์

L?bqb_by`+vbi_bTyz

เทียบเท่ากับ Python 3:

y=lambda b:b if b==b[::-1] else y(str(eval(b)+int(b[::-1],10)))
print y(input())

J 25 ^{27 31}

f=:(+g)^:(~:g=.|.&.":)^:_
e.g.
f 5280
23232

CJam, 22 21 ไบต์

CJam ถูกสร้างขึ้นหลังจากถามคำถามนี้ดังนั้นในทางเทคนิคแล้วมันเป็นข้อผิดพลาดที่ไม่ถูกต้อง แต่ฉันพบคำถามที่น่าสนใจดังนั้นต่อไปนี้:

r{__W%:X=0{~X~+s1}?}g

คำอธิบาย:

r{                 }g    "Read the input number as string and enter a while-do loop";
  __                     "Make 2 copies of the string number";
    W%:X                 "Reverse the second and store it in X";
        =                "Check if the number is already palindrome";
         0{      }?      "Put 0 on stack if it is palindrome, else, run the code block";
           ~             "Convert the string to int";
            X~           "Put the reverse string on stack and convert it to int too";
              +s         "Add the two numbers and covert back the result to string";

เหตุผลหลักคือในการทำซ้ำในขณะที่ทำแต่ละครั้งแรกคุณตรวจสอบว่า palindrome สำเร็จหรือไม่ ถ้าไม่เพิ่มย้อนกลับไปยังหมายเลข ค่อนข้างอัลกอริทึมคืออะไร!

ลองออนไลน์ได้ที่นี่

นี่คือคู่แข่งจริงเนื่องจาก J ได้รับรอบมานานหลายทศวรรษ

J (16 ไบต์)

(+^:~:|.&.":)^:_

นี่เป็นคำกริยาดังนั้นจึงสามารถกำหนดให้กับตัวแปรในเซสชั่น J และใช้ดังนี้:

   f =. (+^:~:|.&.":)^:_
   f 5280
23232

มันทำงานอย่างไร:

(+^:~:|.&.":)^:_
 +^:~:           add if unequal
      |.&.":     reverse under string format
 +^:~:|.&.":     add reverse unless a palindrome
(           )^:_ repeat until unchanged

Python: 66

n=input()
while 1:
 r=int(`n`[::-1])
 if n==r:break
 n+=r
print n

Perl, 40 ตัวอักษร

$_=<>;$_+=$r while$_!=($r=reverse);print

สกาล่า 82

def p(n:Int):Int={val s=n.toString.reverse.toInt
if(n==s)n else p(n+s)}
p(readInt)

JAGLอัลฟ่า 1.2 - 19, 21 พร้อม stdin

ไม่โต้แย้งเพียงแค่ได้รับประสบการณ์เกี่ยวกับภาษาของฉัน
คาดว่าตัวเลขจาก stdin

T~d{DddgCi+dgdC=n}uSP

คำอธิบาย

T~                       Get a line of input, and eval to an integer
  d                      Duplicate (for first round)
   {Ddd                  Drop last and duplicate twice
       gCi               Convert to string, reverse, and convert back to integer
          +d             Add to original and duplicate
            gdC          Convert to string, duplicate, reverse
               =n}       If it isn't a palindrome, keep going
                  uSP    Run until palindrome reached, then print output number

05AB1E , 7 ไบต์ (ไม่แข่งขัน)

ไม่ใช่การแข่งขันเนื่องจากภาษาโพสต์ความท้าทาย

รหัส:

[DÂQ#Â+

คำอธิบาย:

[        # Infinite loop.
 DÂ      # Duplicate and bifurcate (which duplicates it and reverses the duplicate).
   Q#    # If the number and the number reversed are equal, break.
     Â+  # Add the reversed number to the initial number.

ใช้การเข้ารหัสCP-1252 ลองออนไลน์! .

Brachylogขนาด 8 ไบต์

↔?|↔;?+↰

ลองออนไลน์!

ค่อนข้างคล้ายกับหนึ่งในโปรแกรม Brachylog แรกที่ผมเห็นและรู้สึกทึ่งจากวิดีโอแนะนำ Brachylog

?↔?.|↔;?+↰.  (initial ? and the .s are implicit)

?↔?          % If the input and its reverse are the same,
   .         %   then the input is the output
    |↔;?+↰   % Or, add the input and its reverse, and call this predicate recursively
          .  % The result of that is the output

PHP - 54 48 ตัวอักษร

<?for($s=`cat`;$s!=$r=strrev($s);$s+=$r);echo$s;

ทดสอบ:

$ php 196.php <<< 5280
23232

Bash (64)

X=`rev<<<$1|sed s/^0*//`;[ $1 = $X ]&&echo $1||. $0 $(($1+$X))

โทรด้วย: bash <filename> <number>

C # - 103 99 ตัวอักษร

public int P(int i)
{
    var r = int.Parse(new string(i.ToString().Reverse().ToArray())));
    return r == i ? i : P(i + r);        
}

C # เล่นกอล์ฟไม่เก่ง สง่างาม แต่ verbose

ใน Q (39 ตัวอักษร)

f:{while[x<>g:"I"$reverse -3!x;x+:g];x}

ตัวอย่างการใช้งาน:

q)f 5280
23232

แก้ไข:

ลงมาที่ 34 ตอนนี้การใช้งานเดียวกัน:

{while[x<>g:"I"$(|) -3!x;x+:g];x} 5280

r=input()
while 1:
    r=`r`
    if r==r[::-1]:
      break
    else:
      r=int(r)+int(r[::-1])

print r

เยลลี่ , 9 ไบต์ (ไม่ใช่คู่แข่งขัน)

คำตอบที่ง่ายมากเพียงแค่ความท้าทายในการเขียนโค้ดและภาษาที่ลึกลับ

ṚḌ+µŒḂ¬$¿

ṚḌ        : take the argument, reverse (and vectorize) it
  +µ      : add both
    ŒḂ¬$¿ : while the result isn't a palindrome

ลองออนไลน์!

หากคำตอบนี้ไม่ชัดเจนหรือผิดในทุกระดับรู้สึกอิสระที่จะชี้ให้เห็น

ขอบคุณเดนนิสที่ช่วยฉันออกด้วยโค้ดชิ้นแรก

หลาม 85 ตัวอักษร:

s,i=str,int;rs=lambda q:s(q)[::-1];n=i(input());
while rs(n)!=s(n):n+=i(rs(n));print n

หากคุณไม่ต้องการเอาต์พุตในการวนซ้ำแต่ละครั้ง:

s,i=str,int;rs=lambda q:s(q)[::-1];n=i(input());
while rs(n)!=s(n):n+=i(rs(n))
print n

(ตัวละครน้อยลงหนึ่งตัว)

Windows PowerShell (63)

for($a=+"$input";-join"$a"[99..0]-ne$a){$a+=-join"$a"[99..0]}$a

ฉันยังคงเกลียดชังว่าไม่มีวิธีง่ายๆในการย้อนกลับสตริง

Haskell 89 87 ตัวอักษร

r=read.reverse.show
main=getLine>>=print.head.filter(\x->x==r x).iterate(\x->x+r x).read

รุ่นที่สามารถอ่านได้ค่อนข้าง:

myFind p = head . filter p
rev = read . reverse . show
isPalindrome x = x == rev x
next x = x + rev x
sequence196 = iterate next
palindrome196 = myFind isPalindrome . sequence196

main = getLine >>= print . palindrome196 . read

รุ่น golfed ถูกสร้างขึ้นโดยการทำคู่มือและเปลี่ยนชื่อฟังก์ชั่นที่เหลือเป็นชื่อตัวอักษรเดี่ยว

ก่อนหน้า, 57 ไบต์

"KCTS"4(&:0\v
\T\a*+\:0`jv>:a%\a/
0:+_v#-TD2$<^\
  @.<

แม้ว่ารหัสนั้นจะอยู่ในตาราง 4x19 ดังนั้นอาจเรียกว่า 76

• บรรทัดแรกกำลังเริ่มต้นและอ่านหมายเลขอินพุต
• บรรทัดที่สองกลับหมายเลขแรกในสแต็กและวางในตำแหน่งสแต็กที่สอง
• และบรรทัดที่สามตรวจสอบว่าตัวเลขเป็นโทนสีหรือไม่

C ++ TMP (256 ตัวอักษร)

#include<cstdio>
#define Y(A,B,C,D)template<int N>struct A<C,D>{enum{v=B};};
#define Z(A)template<int N,int M>struct A{enum{v=
#define n 5194
Z(R)R<N/10,M*10+N%10>::v};};Y(R,N,0,N)Z(S)S<N+M,R<N+M,0>::v>::v};};Y(S,N,N,N)main(){printf("%d",S<n+R<n,0>::v,0>::v);}

รุ่นนี้อาจสั้นลงเล็กน้อย แต่คำตอบ 256 ตัวอักษรยากที่จะผ่าน นี่คือเวอร์ชันที่ไม่ตีกอล์ฟ:

#include <iostream>

template<size_t N>
class Reverse
{
    template<size_t M, size_t R>
    struct Inner
    {
        enum { value = Inner<M/10, R*10 + M%10>::value };
    };

    template<size_t R>
    struct Inner<0, R>
    {
        enum { value = R };
    };

public:
    enum { value = Inner<N, 0>::value };
};

template<size_t N>
class OneNineSix
{
    template<size_t M, size_t R=Reverse<M>::value>
    struct Inner
    {
        enum { value = OneNineSix<M + R>::value };
    };

    template<size_t M>
    struct Inner<M, M>
    {
        enum { value = M };
    };

public:
    enum { value = Inner<N + Reverse<N>::value>::value };
};

int main()
{
    const size_t N = 4123;

    std::cout << OneNineSix<N>::value << std::endl;
}

Pyke, 13 ไบต์ (ไม่ใช่การแข่งขัน)

D`_b]D$XIsr)h

ลองที่นี่!

 `_b          -     int(reversed(str(num))
D   ]         -    [num, ^]
     D        -   _ = ^
      $       -  delta(^)
       XI     - if ^:
         s    -  num = sum(_)
          r   -  goto_start()
            h - _[0]

เพิ่ม ++ , 57 ไบต์

L,BDbRBv
D,f,@,1]A+
D,g,@,1]A=
D,h,@,{f}A{g}Q{h}
L,{h}2/i

ลองออนไลน์!

มันทำงานอย่างไร

L,	; Create a function 'lambda 1'
	; Example argument:   [5280]
    BD	; Digits;     STACK = [[5 2 8 0]]
    bR	; Reverse;    STACK = [[0 8 2 5]]
    Bv	; Undigits;   STACK = [825]

D,f,@,	; Define a monadic function 'f'
	; Example argument:         [5280]
    1]	; Call 'lambda 1';  STACK = [825]
    A+	; Add the argument; STACK = [6105]

D,g,@,	; Define a monadic function 'g'
	; Example argument:          [5280]
    1]	; Call 'lambda 1';   STACK = [825]
    A=	; Equal to argument; STACK = [0]

D,h,@,	; Define a monadic function 'h'
	; Example argument:  [5280]
   {f}	; Call 'f';  STACK = [6105]
   A{g}	; If 'g'...
   Q	;   Return
   {h}	; Else call 'h'

L,	; Define a function, 'lambda 2'
	; Example argument: [5280]
   {h}	; Call 'h'; STACK = [46464]
   2/i	; Halve;    STACK = [23232]

Powershell, 63 62 ไบต์

-1 ไบต์ขอบคุณ @AdmBorkBork

param($m)for(;$m-$s;$m=-join"$s"[-1..-"$s".Length]){$s+=$m};$s

สคริปต์ทดสอบ:

$f = {
param($m)for(;$m-$s;$m=-join"$s"[-1..-"$s".Length]){$s+=$m};$s
}

&$f 5280

GNU dc ขนาด 46 ไบต์

ต้องการ GNU dc เวอร์ชันขั้นต่ำ 1.4 (สำหรับRคำสั่ง)

[O~3RO*+rd0<R]sR[+lfx]sg[ddO~rd0<R+d3R!=g]dsfx

อินพุตและเอาต์พุตอยู่ด้านบนสุดของสแต็กตามปกติ มันต้องใช้รหัสที่น่าประหลาดใจในการย้อนกลับตัวเลขใน dc (เว้นแต่ฉันจะหายไปบางสิ่งซึ่งอยู่ไกลจากที่เป็นไปไม่ได้) มันมีช่วงตัวเลขที่จะทำงานได้ดีกับอินพุตเช่นสิ่งเหล่านี้ (ซึ่งจะเกินเลขคณิตที่ไม่ได้ลงนามแบบ 32 บิตเป็นต้น):

• 89 ⇒ 8,813,200,023,188
• 8997 ⇒ 16,668,488,486,661
• 10677 ⇒ 4,668,731,596,684,224,866,951,378,664

คำอธิบาย

# Reverse digits, starting after first digit extracted
[O~3RO*+r d0<R]sR

# Recursion helper - add and recurse
[+ lfx]sg

# Main recursive function
[dd O~r d0<R+ d3R !=g]dsfx

R , 193 109 105 ไบต์

-84 ไบต์ขอบคุณ Giuseppe! -4 byes ขอบคุณ JayCe!

function(x){"-"=utf8ToInt
S=strtoi
"!"=rev
while({z=paste(S(x)+S(intToUtf8(!-x),10));any(-z!=!-z)})x=z
z}

ลองออนไลน์!