งานของคุณคือการสร้างคำที่ n ของลำดับ RATS โดยที่ n คืออินพุต ลำดับ RATS ยังเป็นที่รู้จักในลำดับกลับเพิ่มเรียงแล้ว ลำดับนี้ยังสามารถพบได้ที่นี่: http://oeis.org/A004000

กรณีทดสอบ:

0 > 1
1 > 2
2 > 4
3 > 8
4 > 16
5 > 77
6 > 145
7 > 668

ตัวอย่างเช่นผลลัพธ์สำหรับ 5 คือ 77 เพราะ 16 + 61 = 77 หลังจากนี้ 77 จะเรียงลำดับ

การส่งที่สั้นที่สุดชนะ นี่เป็นความท้าทายครั้งแรกของฉันดังนั้นฉันหวังว่านี่จะไม่ซ้ำกันหรืออะไร

MATL , 11 12ไบต์

1i"tVPU+VSU

การป้อนข้อมูลเป็นสตริง (มีราคาเดียว) คิดเป็นจำนวนเต็มในเอก การป้อนข้อมูล String ที่ได้รับอนุญาตโดยท้าทายและเอกเป็นรูปแบบที่ถูกต้อง

ลองออนไลน์!

คำอธิบาย

1      % push number 1 to the stack
i      % input. Will be a string of "n" ones 
"      % for loop: repeat n times (consumes string)
  t    %   duplicate
  V    %   convert to string
  P    %   reverse
  U    %   convert to number
  +    %   add
  V    %   convert to string
  S    %   sort
  U    %   convert to number
       % loop is implicitly ended
       % stack content is implicitly displayed    

05AB1E , 6 ไบต์

รหัส:

$FDR+{

คำอธิบาย:

$       # Push 1 and input
 F      # For N in range(0, input)
  D     # Duplicate top of the stack
   R    # Reverse top of the stack
    +   # Add top two items
     {  # Sort top of the stack
        # Implicitly print top of the stack

นี้ยังทำงานร่วมกับ0 ไบต์โปรแกรม

CJam, 15 ไบต์

1ri{_sW%i+s$i}*

ทดสอบที่นี่

คำอธิบาย

1     e# Push 1 as the start of the sequence.
ri    e# Read input and convert to integer N.
{     e# Run this block N times...
  _s  e#   Duplicate and convert to string.
  W%  e#   Reverse string.
  i+  e#   Convert back to integer and add to previous value.
  s$  e#   Convert to string and sort.
  i   e#   Convert back to integer for the next iteration.
}*

Pyth, 17 13 12 ไบต์

uS`+vGv_GQ\1

u        Q\1    reduce range(input()) on base case of "1" (string)
   +vG          eval the string (to get a number), and add...
      v_G       the same number, reversed first and then eval'd
 S`             convert back to string and sort

ลองบนล่ามออนไลน์

Python 2, 72

f=lambda x,n=1:x and f(x-1,int(''.join(sorted(`n+int(`n`[::-1])`))))or n

ฟังก์ชั่นแบบเรียกซ้ำใช้ชวเลข Python 2 __repr__ซึ่งจะแตกเมื่อฟังก์ชันมีค่ามาก ( Lจะผนวกเข้ากับสตริงของตัวเลข) ฉันไม่แน่ใจจากข้อมูลจำเพาะหากมีสถานที่ที่เราสามารถหยุด แต่ถ้าไม่เปลี่ยนเป็นstr()เพิ่มเพียง 6 ไบต์ แต่จะสั้นลงเล็กน้อยเมื่อต้องการส่งออกเป็นสตริงที่ 75 ไบต์:

f=lambda x,n='1':x and f(x-1,''.join(sorted(str(int(n)+int(n[::-1])))))or n

บันทึก 1 ไบต์ขอบคุณ trichoplax ในรุ่นนี้

JavaScript ES6, 70 ไบต์

บันทึกแล้ว 1 ไบต์ขอบคุณ @ user81655

f=n=>n?+[...+[...''+(b=f(n-1))].reverse().join``+b+''].sort().join``:1

ถอนหายใจ JavaScript เป็นจริง verbose มาก (> 50%) ของรหัสเป็นเพียงกรณีที่ฟังก์ชั่นสตริง + + อาร์เรย์เข้าร่วมหล่อ + เพื่อ int ฉันได้ลองลดล้างสิ่งต่าง ๆ และสิ่งต่าง ๆ แต่ดูเหมือนว่าจะสั้นที่สุด

ลองออนไลน์ (เบราว์เซอร์ทั้งหมดใช้งานได้)

Brachylogขนาด 19 ไบต์

0,1 .|-1=:0&Rr+R=o.

คำอธิบาย

0,1 .               § If Input is 0, unify the Output with 1
     |              § Else
      -1=:0&R       § unify R with the output of this main predicate, with input = Input - 1
             r+R=o. § Reverse R, add it to itself and order it, then unify with the Output.

Haskell, 67 ไบต์

import Data.List
g i=i:g(sort$show$read i+read(reverse i))
(g"1"!!)

ตัวอย่างการใช้: (g"1"!!) 7->"668" ->

เป็นการใช้งานคำจำกัดความโดยตรง: เริ่มต้น"1"ผนวกผลลัพธ์การเพิ่มกลับเรียงขององค์ประกอบปัจจุบันซ้ำ ๆ ฟังก์ชั่นหลัก(g"1"!!)เลือกiองค์ประกอบที่

Julia, 77 ไบต์

n->(x=1;for _=1:n x=(p=parse)(join(sort(["$(x+p(reverse("$x")))"...])))end;x)

นี่คือฟังก์ชั่นแลมบ์ดาที่รับจำนวนเต็มและคืนค่าจำนวนเต็ม หากต้องการเรียกใช้กำหนดค่าให้กับตัวแปร

Ungolfed:

function f(n::Int)
    # Begin x at 1
    x = 1

    # Repeat this process n times
    for _ = 1:n
        # Add x to itself with reversed digits
        s = x + parse(reverse("$x"))

        # Refine x as this number with the digits sorted
        x = parse(join(sort(["$s"...])))
    end

    # Return x after the process (will be 1 if n was 0)
    return x
end

เยลลี่, 13 12 ไบต์

ฉันแน่ใจว่านี่สามารถเล่นกอล์ฟได้เนื่องจากนี่เป็นคำตอบแรกของฉันในภาษา Jelly / ในภาษาที่มีความหมายโดยนัย

DUḌ+ðDṢḌ Performs RATS
1Ç¡      Loops

D        Converts integer to decimal
 U       Reverses
  Ḍ      Converts back to integer
   +     Adds original and reversed
    ð    Starts new chain
     D   Converts back to decimal
      Ṣ  Sorts
       Ḍ Back to integer again

1        Uses 1 instead of input
 Ḍ       Uses line above
  ¡      For loop

แก้ไข: บันทึก 1 ไบต์ต้องขอบคุณเดนนิส

Java 1.8, 251 ไบต์

interface R{static void main(String[]a){int i,r,n=1,c=0,t=Byte.valueOf(a[0]);while(++c<=t){i=n;for(r=0;i!=0;i/=10){r=r*10+i%10;}n+=r;a[0]=n+"";char[]f=a[0].toCharArray();java.util.Arrays.sort(f);n=Integer.valueOf(new String(f));}System.out.print(n);}}

ขยาย

interface R{
static void main(String[]args){
    int input,reversed,nextValue=1,count=0,target=Byte.valueOf(args[0]);
    while(++count<=target){
        input=nextValue;
        for(reversed=0;input!=0;input/=10){reversed=reversed*10+input%10;}
        nextValue+=reversed;
        args[0]=nextValue+"";
        char[]sortMe=args[0].toCharArray();
        java.util.Arrays.sort(sortMe);
        nextValue=Integer.valueOf(new String(sortMe));
    }
    System.out.print(nextValue);
}
}

อย่างจริงจัง 17 ไบต์

1,`;$R≈+$S≈`n

ลองออนไลน์!

คำอธิบาย:

1,`;$R≈+$S≈`n
1              push 1
 ,`       `n   do the following n times:
   ;$R≈        reverse
       +       add
        $S≈    sort

Lua, 179 156 Bytes

ฉันไม่เห็นว่าฉันจะตีกอล์ฟได้มากขึ้น แต่ฉันแน่ใจว่ามีวิธี ขอบคุณ @LeakyNun ฉันใช้เวลาในการลงสนามและเล่นกอล์ฟในวิธีที่เหมาะสมฉันอาจจะยังคงชนะได้บ้างโดยใช้วิธีการอื่น

k=0z=table
for i=0,io.read()do
t={}(""..k+(""..k):reverse()):gsub("%d",function(d)t[#t+1]=d
end)z.sort(t)k=k<1 and 1or tonumber(z.concat(t,""))
end
print(k)

Ungolfed และคำอธิบาย

k=0                                  
z=table                              -- z is a pointer on the table named table
                                     -- it allows me to use its functions
                                     -- while saving 4 bytes/use

for i=0,io.read()                    -- Iterate n times for the nth element
do
  t={}
  (""..a+(""..a):reverse())          -- we add k with its "reversed" value
                                     -- and convert the whole thing to a string
    :gsub(".",function(d)            -- for each character in it, use an anonymous fucntion
       t[#t+1]=d end)                -- which insert them in the array t
  z.sort(t)                          
  a=a<1 and 1 or                     -- if i==0, k=1
     tonumber(z.concat(t,""))        -- else we concat t in a string and convert it to number
end
print(k)

Brachylog 2, 11 ไบต์, ภาษาลงวันที่ท้าทาย

;1{↔;?+o}ⁱ⁽

ลองออนไลน์!

คำอธิบาย

;1{↔;?+o}ⁱ⁽
  {     }ⁱ  Repeatedly apply the following,
 1            starting at 1,
;         ⁽   a number of times equal to the input:
   ↔            reverse,
    ;?+         add the original input,
       o        then sort the resulting number

ฉันไม่ชัดเจนในสิ่งที่มันทำกับตัวเลขศูนย์ แต่คำถามไม่ได้ระบุการจัดการโดยเฉพาะและพวกเขาอาจไม่ปรากฏในลำดับต่อไป

ES6, 79 ไบต์

n=>eval("r=1;while(n--)r=+[...+[...r+''].reverse().join``+r+''].sort().join``")

82 ไบต์ที่ไม่มีeval:

n=>[...Array(n)].reduce(r=>+[...+[...r+''].reverse().join``+r+''].sort().join``,1)

การแปลงทั้งหมดนั้นเจ็บปวด

@ edc65 ฉันจริงบันทึก 4 ไบต์โดยการเปลี่ยนจากmapเป็นreduceเวลานี้ ... ไม่ต้องสงสัยเลยว่าคุณจะพิสูจน์ฉันผิดอีกครั้ง

Python 2, 91 Bytes

อินพุตเป็นจำนวนเต็มผลลัพธ์จะถูกพิมพ์ไปที่หน้าจอ

def f(n):
 t=1
 for i in range(n):t=int("".join(sorted(str(int(str(t)[::-1])+t))))
 print t

นี่อาจสั้นกว่านี้มากเมื่อใช้เวทย์มนตร์เรียกซ้ำ แต่ฉันไม่สามารถคาดศีรษะได้ จะมีรูปลักษณ์ใหม่ในภายหลังและหวังว่าจะปรับปรุงตัวนี้

Python 2, 83 ไบต์

def f(n):
 v='1'
 for _ in v*n:v=''.join(sorted(str(int(v)+int(v[::-1]))))
 print v

Perl 6 , 40 ไบต์

{(1,{[~] ($_+.flip).comb.sort}...*)[$_]} # 40

(ถ้าคุณต้องการให้มันคืนค่า Int ให้+ก่อน[~])

การใช้งาน:

# give it a lexical name
my &RATS = {…}

say RATS 5; # 77

# This implementation also accepts a list of indexes

# the first 10 of the sequence
say RATS ^10; # (1 2 4 8 16 77 145 668 1345 6677)

Mathematica 10.3, 66 61 bytes

Nest[FromDigits@Sort@IntegerDigits[#+IntegerReverse@#]&,1,#]&

ค่อนข้างง่าย

PHP, 102 ไบต์

$r=[1];$i++<$argn;sort($v),$r[]=join($v))$v=str_split(bcadd(strrev($e=end($r)),$e));echo$r[$argn];

เวอร์ชั่นออนไลน์

PHP, 95 ไบต์

n <= 39

for($r=[1];$i++<$argn;sort($v),$r[]=join($v))$v=str_split(strrev($e=end($r))+$e);echo$r[$argn];

Java , 171 167 163 160 ไบต์

int f(int n){int a=n>0?f(n-1):0,x=10,b[]=new int[x],c=a,d=0;for(;c>0;c/=x)d=d*x+c%x;for(a+=d;a>0;a/=x)b[a%x]++;for(;a<x;c=b[a++]-->0?c*x+--a:c);return n>0?c:1;}

ลองออนไลน์!

ไม่ใช่รายการที่ยาวที่สุด! \ O /

Python 2 , 70 ไบต์

f=lambda n,a=1:n and int(''.join(sorted(`f(n-1)+f(n-1,-1)`))[::a])or 1

ลองออนไลน์!

ความจริง 146 ไบต์

c(r:String):NNI==reduce(+,[(ord(r.i)-48)*10^(#r-i) for i in 1..#r]);f(n:INT):NNI==(n<1=>1;v:=f(n-1);v:=v+c(reverse(v::String));c(sort(v::String)))

การทดสอบและผลลัพธ์ [ลำดับ RATS]

(3) -> [[i, f(i)] for i in 0..20]
   (3)
   [[0,1], [1,2], [2,4], [3,8], [4,16], [5,77], [6,145], [7,668], [8,1345],
    [9,6677], [10,13444], [11,55778], [12,133345], [13,666677], [14,1333444],
    [15,5567777], [16,12333445], [17,66666677], [18,133333444], [19,556667777],
    [20,1233334444]]

Tcl , 91 ไบต์

proc R n {join [lsort [split [expr {$n?[set v [R [expr $n-1]]]+[string rev $v]:1}] ""]] ""}

ลองออนไลน์!