196 algoritması için kısa bir program yaz . Algoritma bir tamsayıdan başlar, ardından bir palindrom elde edilinceye tersini ekler.

Örneğin

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

Giriş

lirikül sayı olmayan bir tam sayı (yani, sonunda sonsuz devam etmekten ziyade, bu algoritma altında bir palindrom oluşturur)

Çıktı

palindrom ulaştı.

APL (22 karakter)

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

Bu Dyalog APL'de çalışır. İşte sağdan sola bir açıklama:

• { ... }⍞: Kullanıcıdan karakter ( ⍞) olarak girdi alın ve fonksiyonumuza ( { ... }) besleyin .
• Direct işlevi içinde ( ⋄ifadeleri ayırır, bu yüzden onlara soldan sağa bakarız):
  • a≡⌽a←⍕(⍎⍵)+⍎⌽⍵ : a: Evaluate ( ⍎) doğru argümanın's ( ⍵) reverse ( ⌽) ve bunu doğru argümanın kendi değerlendirilen sürümüne ekleyin. Daha sonra sonucu biçimlendirin ( ⍕; yani karakter gösterimini verin), ←değişkene bunu ( ) atayın ave son olarak atersinin eşdeğer olup olmadığını test edin a(yani abir palindrom mu?). Doğruysa, geri dönün a; aksi takdirde...
  • ∇a: İşlevimize ageri dönün ( ∇örtük kendi kendine referanstır).

Örnek:

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

GolfScript, 29 karakter

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

Seçilmiş yorum

Programın eti doelbette ki döngüdür. Bu yüzden sadece onu koruyacağım.

1. .` sayıyı kopyalar ve dizgiler.
2. .-1% dize sürümünü kopyalar ve tersine çevirir.
3. .@ ters çevrilmiş sürümü kopyalar ve ters çevrilmemiş orijinal sürümü öne getirir.

Yani, diyelim ki, sayı yığını, bu aşamada 5280. geçerli: 5280 "0825" "0825" "5280". Karşılaştırma için aşama belirlenir. (Karşılaştırmadan sonra, yığın 5280 "0825"--- ne olursa olsun karşılaştırılır - karşılaştırılacak öğeler çıkarıldı.)

1. Eğer dize ve tam tersi aynı ise, tersine çevrilmiş dizgiyi önemsemeyiz, bu yüzden sadece açın ( ;) ve 0 dodöndürün ( döngüyü sonlandırmak için ).
2. ~Eşleşmiyorlarsa, ters çevrilmiş dizgiyi (bir sayı yapmak için) değerlendirin ( ) +, orijinal sayıya ( ) ekleyin ve 1'e geri dönün ( dodöngüye devam etmek için ).

Python 2,55 bayt

JPvdMerwe önerisinin ardından:

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

Yakut - 56 karakter

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

Sadece Pyth yeteneklerimi kullanıyorum, ciddi bir rakip değil.

Pyth, 16 bayt

L?bqb_by`+vbi_bTyz

Python 3'e eşdeğer:

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 bayt

CJam bu soru sorulduktan sonra oluşturuldu, bu yüzden teknik olarak geçersiz bir başvuru. Ama soruyu ilginç buldum, işte burada:

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

Açıklama:

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

Temel mantık, her bir yineleme işleminde, ilk önce palindromun elde edilip edilmediğini kontrol etmenizdir. Değilse, numaraya tersini ekleyin. Algoritmanın ne olduğu hemen hemen!

Burada çevrimiçi deneyin

Bu gerçek bir yarışmacı, çünkü J on yıllardır burada.

J (16 bayt)

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

Bu bir fiildir, bu nedenle bir J oturumundaki bir değişkene atanabilir ve böyle kullanılır:

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

Nasıl çalışır:

(+^:~:|.&.":)^:_
 +^:~:           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 karakter

$_=<>;$_+=$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 Alfa 1.2 - 19, 21, stdin ile

Rekabet etmemek , sadece dilimle ilgili biraz tecrübe edinmek
Stdin'den bir rakam bekliyor

T~d{DddgCi+dgdC=n}uSP

açıklama

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 bayt (rekabet etmeyen)

Rekabetçi değil , çünkü dil mücadeleyi sürdürüyor.

Kod:

[DÂQ#Â+

Açıklama:

[        # 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 kodlamasını kullanır . Çevrimiçi deneyin! .

Brachylog , 8 bayt

↔?|↔;?+↰

Çevrimiçi deneyin!

Brachylog tanıtım videosunda gördüğüm ve merak ettiğim ilk Brachylog programlarından birine biraz benziyordu .

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

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

Ölçek:

$ php 196.php <<< 5280
23232

Bash (64)

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

Şunu ara: bash <dosyaadı> <sayı>

C # - 103 99 karakter

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

C #, golfde asla iyi iş çıkarmaz. Zarif, ama ayrıntılı.

S (39 karakter)

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

Örnek Kullanım:

q)f 5280
23232

Düzenle:

Şimdi 34'e kadar, aynı kullanım:

{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

Jöle , 9 bayt (rakipsiz)

Çok basit bir cevap, sadece kodlama ve ezoterik bir dilde kodlama için.

ṚḌ+µŒḂ¬$¿

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

Çevrimiçi deneyin!

Bu cevap herhangi bir düzeyde net değilse veya yanlışsa, belirtmekten çekinmeyin.

Bu küçük kod parçasında bana yardım ettiği için Dennis'e teşekkür ederim.

Python. 85 karakter:

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

Her yinelemede çıktı almak istemiyorsanız:

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

(bir az karakter)

Windows PowerShell (63)

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

Hala bir dizgiyi ters çevirmenin kolay bir yolunun olmamasından nefret ediyorum.

Haskell 89 87 karakter

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

Biraz okunabilir versiyonu:

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

Golf versiyonu manuel olarak girilerek ve kalan fonksiyonları tek karakter isimlerine göre değiştirerek oluşturuldu.

befunge, 57 bayt

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

Kod 4x19'lük bir ızgarada yer alsa da 76 olarak adlandırılabilir.

• ilk satır başlatılıyor ve giriş numarası okunuyor
• İkinci satır ilk sayıyı yığına geri koyun ve ikinci yığın konumuna getirin.
• ve üçüncü satır bir sayının palindrom olup olmadığını kontrol eder.

C ++ TMP (256 karakter)

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

Bu sürüm biraz kısaltılabilir, ancak 256 karakterden oluşan bir cevabı geçmek zordur. İşte bir golf versiyonu var:

#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 bayt (rekabetçi olmayan)

D`_b]D$XIsr)h

Burada dene!

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

++ , 57 bayt ekle

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

Çevrimiçi deneyin!

Nasıl çalışır

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 bayt

@AdmBorkBork sayesinde -1 bayt

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

Test komut dosyası:

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

&$f 5280

GNU dc, 46 bayt

GNU dc, minimum sürüm 1.4 ( Rkomut için) gerektirir.

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

Giriş ve çıkış her zamanki gibi üst üste gelir. DC'deki rakamları tersine çevirmek şaşırtıcı miktarda kod alır (imkansız olan bir şeyi kaçırmazsam). Bunlar (örneğin 32-bit işaretsiz aritmetik taşacak) gibi girdilerle iyi davranmak için sayısal aralığa sahiptir:

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

açıklama

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

Giuseppe sayesinde -84 bayt! JayCe sayesinde -4 byes!

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

Çevrimiçi deneyin!