196-algorithm에 대한 간단한 프로그램을 작성하십시오 . 알고리즘은 정수에서 시작한 다음 회문에 도달 할 때까지 그 역을 추가합니다.

예 :

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

입력

라 이리 렐 숫자 가 아닌 정수 (즉, 무한대로 계속되는 것이 아니라이 알고리즘에서 결국 회문을 생성합니다)

산출

회문에 도달했습니다.

APL (22 자)

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

이것은 Dyalog APL에서 작동합니다. 다음은 오른쪽에서 왼쪽으로 설명입니다.

• { ... }⍞: 사용자로부터 문자 ( ⍞) 로 입력을 받아서 함수 ( { ... })에 입력합니다.
• 직접 함수 내에서 ( ⋄구문을 분리하므로 왼쪽에서 오른쪽으로 봅니다) :
  • a≡⌽a←⍕(⍎⍵)+⍎⌽⍵ : a: ⍎올바른 인수의 ( ⍵) 반전 ( ⌽)을 평가하고 ( ) 올바른 인수 자체의 평가 된 버전에 추가하십시오. 그런 다음 결과의 형식을 지정하고 ( ⍕즉, 문자 표현 제공) ←변수에 해당 값을 할당하고 ( ) a마지막에 a반전이 동일한 지 a(즉, a회문?) 테스트합니다 . 참이면 return 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. 일치하지 않으면 ~역순으로 문자열 을 평가하고 ( 숫자로 만들기 +) 원래 숫자 에 ( )를 더한 다음 ( do루프 를 계속하기 위해 ) 1을 반환 합니다.

파이썬 2, 55 바이트

JPvdMerwe 제안에 따라 :

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

파이썬 2, 62 :

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

루비 — 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

파이썬 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";

핵심 논리는 각 반복 작업에서 회문이 달성되었는지 먼저 확인하는 것입니다. 그렇지 않은 경우 숫자에 역을 추가하십시오. 알고리즘이 거의 무엇입니까!

여기에서 온라인으로 사용해보십시오

J는 수십 년 전부터 있었기 때문에 실제 경쟁자입니다.

J (16 바이트)

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

이것은 동사이므로 J 세션에서 변수에 할당하여 다음과 같이 사용할 수 있습니다.

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

작동 방식 :

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

파이썬 : 66

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

펄, 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)

stdin을 사용한 JAGL Alpha 1.2-19 , 21

논쟁하지 않고 내 언어에 대한 경험을 얻음
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

배쉬 (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

온라인으로 사용해보십시오!

이 답변이 어떤 수준에서 불분명하거나 틀리면 자유롭게 지적하십시오.

이 첫 번째 작은 코드를 도와 주신 Dennis에게 감사합니다.

파이썬. 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

나는 여전히 문자열을 되돌릴 수있는 쉬운 방법이 없다는 것을 싫어합니다.

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

골프 버전은 수동으로 인라인하고 나머지 기능의 이름을 단일 문자 이름으로 바꾸어 만들어졌습니다.

펀칭, 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;
}

파이크, 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]

파워 쉘, 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 바이트

최소 R명령 1.4의 GNU dc가 필요합니다 .

[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 덕분에 -4 안녕!

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

온라인으로 사용해보십시오!