Напишіть коротку програму для 196-алгоритму . Алгоритм починається з цілого числа, потім додає до нього зворотній характер, поки не буде досягнуто паліндром.

напр

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паліндром?). Якщо це правда, поверніться 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

Пітон 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

Еквівалент 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";

Основна логіка полягає в тому, що при кожній ітерації під час спочатку ви перевіряєте, чи досягається паліндром чи ні. Якщо ні, додайте зворотний номер до числа. Досить багато алгоритму!

Спробуйте його онлайн тут

Це фактичний суперник, оскільки 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

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 зі стдін

Не суперечуюсь , просто отримавши певний досвід моєї мови
Очікує, що число 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 . Спробуйте в Інтернеті! .

Брахілог , 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 <ім'я файла> <номер>

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

Спробуйте в Інтернеті!

Якщо ця відповідь буде незрозумілою чи неправильною на будь-якому рівні, сміливо зазначайте її.

Дякую Деннісу за те, що він допомагав мені в першому невеликому коді.

Пітон. 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

Версія для гольфу була створена за допомогою ручного вбудовування та перейменування решти функцій в єдині імена символів.

befunge, 57 байт

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

хоча код розміщений у сітці 4x19, так можна назвати його 76.

• перший рядок - ініціалізація та читання вхідного номера
• другий рядок переверніть перший номер у стеку і поставте його у друге положення стека.
• а третій рядок перевіряє, чи є число паліндром.

TM + C ++ (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]

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, 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 байти завдяки Джузеппе! -4 байки завдяки JayCe!

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

Спробуйте в Інтернеті!