以下のためのショートプログラム書く196-アルゴリズムを。アルゴリズムは整数から始まり、回文に達するまでその逆を追加します。

例えば

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

入力

整数、これはLyrchrel番号ではありません（つまり、無限に継続するのではなく、最終的にこのアルゴリズムで回文を生成します）

出力

回文が届きました。

APL（22文字）

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

これはDyalog APLで機能します。以下に、右から左に説明を示します。

• { ... }⍞：ユーザーから文字（⍞）として入力を取得し、関数（{ ... }）に入力します。
• 直接関数内（⋄ステートメントを分離するため、左から右に見ていきます）：
  • a≡⌽a←⍕(⍎⍵)+⍎⌽⍵ : a：⍎右引数の（⍵）reverse（⌽）を評価（）し、それを右引数自体の評価済みバージョンに追加します。次に、結果をフォーマットし（⍕;つまり、その文字表現を与えます）、←変数aにそれを割り当て（）、最後にaの逆が等価であるかどうかをテストしますa（つまり、a回文ですか？）。trueの場合、戻り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";

コアロジックは、while-doの各反復で、回文が達成されたかどうかを最初に確認することです。そうでない場合は、番号に逆を追加します。アルゴリズムはほとんど何ですか！

こちらからオンラインでお試しください

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

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、標準入力あり

競合せず、私の言語の経験を積むだけで
、標準入力からの数字が期待されます

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プログラムの1つとやや似ています。

?↔?.|↔;?+↰.  (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

バッシュ（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＃はゴルフではあまりうまくいきません。エレガントだが冗長。

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

オンラインでお試しください！

この回答がどのレベルでも不明確または間違っている場合は、遠慮なく指摘してください。

この最初の小さなコードを手伝ってくれたデニスに感謝します。

Python。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

（1文字少ない）

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

ゴルフバージョンは、手動でインライン化し、残りの関数の名前を単一の文字名に変更して作成されました。

befunge、57バイト

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

ただし、コードは4x19グリッドに配置されるため、76と呼ぶ場合があります。

• 最初の行は初期化中で、入力番号を読み取ります
• 2行目はスタック内の最初の番号を反転させ、2番目のスタック位置に置きます。
• 3行目では、数字が回文であるかどうかを確認します。

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]

Add ++、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バイト

@AdmBorkBorkのおかげで-1バイト

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、minバージョン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バイト！JayCeに感謝します！

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

オンラインでお試しください！