Viết một chương trình ngắn cho thuật toán 196 . Thuật toán bắt đầu từ một số nguyên, sau đó thêm ngược lại cho đến khi đạt được một bảng màu.

ví dụ

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

Đầu vào

một số nguyên, không phải là số lyrchrel (nghĩa là cuối cùng nó cũng mang lại một bảng màu theo thuật toán này, thay vì tiếp tục vô tận)

Đầu ra

các palindrom đạt.

APL (22 ký tự)

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

Điều này hoạt động trong Dyalog APL. Đây là một lời giải thích, từ phải sang trái:

• { ... }⍞: Nhận đầu vào từ người dùng dưới dạng ký tự ( ⍞) và cung cấp cho hàm của chúng tôi ( { ... }).
• Trong hàm trực tiếp ( ⋄phân tách các câu lệnh, vì vậy chúng tôi xem xét chúng từ trái sang phải):
  • a≡⌽a←⍕(⍎⍵)+⍎⌽⍵ : a: Đánh giá ( ⍎) đối số đúng ( ⍵) đảo ngược ( ⌽) và thêm đối số đó vào phiên bản được đánh giá của chính đối số đó. Sau đó, định dạng kết quả ( ⍕; nghĩa là đưa biểu diễn ký tự của nó), gán ( ←) cho biến đó avà cuối cùng kiểm tra xem angược lại có tương đương với a(tức là, có phải là amột bảng màu không?). Nếu đúng, trở về a; nếu không thì...
  • ∇a: Phản ahồi lại chức năng của chúng tôi ( ∇là tự tham chiếu ngầm).

Thí dụ:

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

GolfScript, 29 ký tự

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

Bình luận được chọn

Thịt của chương trình là dovòng lặp, tất nhiên. Vì vậy, tôi sẽ chỉ bao gồm điều đó.

1. .` sao chép số lượng và xâu chuỗi nó.
2. .-1% sao chép phiên bản chuỗi đó và đảo ngược nó.
3. .@ sao chép phiên bản đảo ngược và đưa phiên bản gốc không đảo ngược ra phía trước.

Vì vậy, giả sử, số là 5280. Ở giai đoạn này, ngăn xếp là : 5280 "0825" "0825" "5280". Các giai đoạn được thiết lập để so sánh. (Sau khi so sánh, ngăn xếp sẽ được để lại tại5280 "0825" bất kể là gì --- các mục để so sánh đã được bật ra.)

1. Nếu chuỗi và đảo ngược là như nhau, chúng tôi không quan tâm đến chuỗi đảo ngược, vì vậy chỉ cần bật nó ra ( ;) và trả về 0 (để kết thúcdo vòng lặp).
2. Nếu chúng không khớp, thì hãy đánh giá ( ~) chuỗi đảo ngược (để biến nó thành số), thêm ( +) vào số ban đầu và trả về 1 (để tiếp tục dovòng lặp).

Python 2, 55 byte

Theo đề xuất của JPvdMerwe:

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

Con trăn 2, 62:

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

Ruby - 56 ký tự

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

Chỉ cần thực hiện các kỹ năng Pyth của tôi, không phải là một ứng cử viên nghiêm túc.

Bình thường, 16 byte

L?bqb_by`+vbi_bTyz

Tương đương với 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 byte

CJam đã được tạo ra sau khi câu hỏi này được hỏi, vì vậy về mặt kỹ thuật, đây là một bài nộp không hợp lệ. Nhưng tôi thấy câu hỏi thú vị, vì vậy ở đây đi:

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

Giải trình:

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

Logic cốt lõi là trong mỗi lần lặp trong khi thực hiện, trước tiên bạn kiểm tra xem palindrom có ​​đạt được hay không. Nếu không, thêm ngược lại cho số. Khá nhiều thuật toán là gì!

Dùng thử trực tuyến tại đây

Đây là một ứng cử viên thực sự, vì J đã tồn tại trong nhiều thập kỷ.

J (16 byte)

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

Đây là một động từ, vì vậy nó có thể được gán cho một biến trong phiên J và được sử dụng như vậy:

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

Làm thế nào nó hoạt động:

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

Con trăn: 66

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

Perl, 40 ký tự

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

Scala 82

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

JAGL Alpha 1.2 - 19, 21 với stdin

Không tranh cãi , chỉ cần có một số kinh nghiệm với ngôn ngữ của tôi
Mong đợi một số từ stdin

T~d{DddgCi+dgdC=n}uSP

Giải trình

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 byte (không cạnh tranh)

Không cạnh tranh , vì ngôn ngữ hoãn thách thức.

Mã số:

[DÂQ#Â+

Giải trình:

[        # 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.

Sử dụng mã hóa CP-1252 . Hãy thử trực tuyến! .

Brachylog , 8 byte

↔?|↔;?+↰

Hãy thử trực tuyến!

Khá giống với một trong những chương trình Brachylog đầu tiên tôi đã xem và bị thu hút bởi, từ video giới thiệu 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 ký tự

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

Kiểm tra:

$ php 196.php <<< 5280
23232

Bash (64)

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

Gọi bằng: bash <tên tệp> <số>

C # - 103 99 ký tự

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

C # không bao giờ làm rất tốt trong golf. Thanh lịch, nhưng dài dòng.

Trong Q (39 ký tự)

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

Sử dụng mẫu:

q)f 5280
23232

Chỉnh sửa:

Đến 34 giờ, sử dụng tương tự:

{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

Jelly , 9 byte (không cạnh tranh)

Một câu trả lời rất đơn giản, chỉ dành cho thử thách mã hóa bằng ngôn ngữ bí truyền.

ṚḌ+µŒḂ¬$¿

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

Hãy thử trực tuyến!

Nếu câu trả lời này không rõ ràng hoặc sai ở bất kỳ cấp độ nào, vui lòng chỉ ra nó.

Cảm ơn Dennis đã giúp tôi với đoạn mã nhỏ đầu tiên này.

Con trăn. 85 ký tự:

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

Nếu bạn không muốn đầu ra trên mỗi lần lặp:

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

(một ký tự ít hơn)

Windows PowerShell (63)

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

Tôi vẫn ghét rằng không có cách nào dễ dàng để đảo ngược một chuỗi.

Haskell 89 87 ký tự

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

Phiên bản có thể đọc được:

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

Phiên bản chơi gôn được tạo bằng cách đặt nội tuyến thủ công và đổi tên các chức năng còn lại thành tên nhân vật duy nhất.

befunge, 57 byte

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

mặc dù mã nằm trong lưới 4x19, vì vậy có thể gọi nó là 76.

• dòng đầu tiên là khởi tạo và đọc số đầu vào
• dòng thứ hai đảo ngược số thứ nhất trong ngăn xếp và đặt nó ở vị trí ngăn xếp thứ hai.
• và dòng thứ ba kiểm tra nếu một số là palindrom.

C ++ TMP (256 ký tự)

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

Phiên bản này có thể được rút ngắn một chút, nhưng câu trả lời 256 ký tự khó có thể bỏ qua. Đây là một phiên bản không chơi gôn:

#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 byte (không biên dịch)

D`_b]D$XIsr)h

Hãy thử nó ở đây!

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

Thêm ++ , 57 byte

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

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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 byte

-1 byte nhờ @AdmBorkBork

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

Kịch bản thử nghiệm:

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

&$f 5280

GNU dc, 46 byte

Yêu cầu GNU dc, phiên bản tối thiểu 1.4 (cho Rlệnh).

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

Đầu vào và đầu ra là hàng đầu, như thường lệ. Phải mất một lượng mã đáng ngạc nhiên để đảo ngược các chữ số trong dc (trừ khi tôi thiếu một cái gì đó, điều này là không thể). Nó có phạm vi số để hành xử độc đáo với các đầu vào như thế này (chẳng hạn sẽ tràn số học không dấu 32 bit chẳng hạn):

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

Giải trình

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

-84 byte nhờ Giuseppe! -4 tạm biệt nhờ JayCe!

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

Hãy thử trực tuyến!