Cho một số nguyên dương n là đầu vào, đầu ra tổng phạm vi đảo ngược của n.

Tổng phạm vi đảo ngược được tạo bằng cách tạo một phạm vi bao gồm tối đa n, bắt đầu bằng 1 và bao gồm n, đảo ngược từng số bên trong và tính tổng của nó.

Thí dụ:

Đây là những gì sẽ xảy ra cho đầu vào 10:

Phạm vi: [1,2,3,4,5,6,7,8,9,10]

Đảo ngược: [1,2,3,4,5,6,7,8,9,01](Số 1-char bị đảo ngược là chính họ, 10 số đảo ngược là 01 hoặc 1)

Tổng hợp: 46

Các số có hơn 3 chữ số được đảo ngược cùng số với 2 chữ số. Ví dụ, 1234 sẽ trở thành 4321.

Các trường hợp thử nghiệm:

Input -> Output

10 -> 46
5 -> 15
21 -> 519
58 -> 2350
75 -> 3147
999 -> 454545

Có thể tìm thấy các trường hợp văn bản hoàn chỉnh cho đầu vào của 999 ở đây , cảm ơn rất nhiều đến @ fireflame241.

05AB1E , 3 byte

Mã

LíO

Sử dụng mã hóa 05AB1E . Hãy thử trực tuyến!

Giải trình

L       # Range
 í      # Reverse
  O     # Sum

Đồ dùng Bash + GNU, 24

seq $1|rev|paste -sd+|bc

Hãy thử trực tuyến .

Giải trình

seq $1                    # range
      |rev                # reverse (each line)
          |paste -sd+|bc  # sum

JavaScript (ES6), 42 byte

f=n=>n&&+[...n+""].reverse().join``+f(n-1)

Rất tiếc, giải pháp đệ quy yêu thích của tôi không may dài hơn 3 byte:

f=n=>n&&+(g=x=>x?x%10+g(x/10|0):"")(n)+f(n-1)

Perl 6 , 20 byte

{(1..$_)».flip.sum}

Kiểm tra nó

Mở rộng:

{
   ( 1 .. $_ )\  # Range
   ».flip        # flip each value in the Range (possibly in parallel)
   .sum          # sum up the list
}

Võng mạc , 41 36 35 byte

.+
$*
1
1$`¶
1+
$.&
%O^$`.

.+
$*
1

Hãy thử trực tuyến! Liên kết bao gồm các trường hợp thử nghiệm. Chỉnh sửa: Đã lưu 5 byte nhờ @FryAmTheEggman. Đã lưu 1 byte nhờ @ PunPun1000. Giải trình:

.+
$*

Chuyển đổi sang unary.

1
1$`¶

Tạo một phạm vi từ 1đến n.

1+
$.&

Chuyển đổi trở lại thập phân.

%O^$`.

Đảo ngược từng số.

.+
$*

Chuyển đổi trở lại đơn nguyên.

1

Tổng và chuyển đổi trở lại thập phân.

Thạch , 4 byte

Ṛ€ḌS

Hãy thử trực tuyến!

Làm sao?

Ṛ€ḌS - Link: n
Ṛ€   - reverse for €ach (in implicit range)
  Ḍ  - convert from decimal list (vectorises)
   S - sum

Haskell, 34 byte

\n->sum$read.reverse.show<$>[1..n]

Đơn giản và dễ hiểu.

C (gcc) , 63 byte

f(n){int t=0,c=n;for(;c;c/=10)t=t*10+c%10;return n?t+f(n-1):0;}

Hãy thử trực tuyến!

cQuents , 4 byte

;\r$

Hãy thử trực tuyến!

Giải trình

       Implicit input n.
;      Series mode. Outputs the sum of the sequence from 1 to n.
 \r$   Each item in the sequence equals:
 \r    String reverse of
   $                     current index (1-based)

Python 2 , 38 byte

Không thể tính các điều khoản cao hơn giới hạn đệ quy:

f=lambda x:x and int(`x`[::-1])+f(x-1)

Hãy thử trực tuyến!

Brachylog , 4 byte

⟦↔ᵐ+

Hãy thử trực tuyến!

Giải trình

⟦↔ᵐ+
⟦        range from 0 to input
 ↔ᵐ      map reverse
   +     sum

Röda , 56 41 36 byte

15 byte được lưu nhờ @fergusq

{seq 1,_|parseInteger`$_`[::-1]|sum}

Hãy thử trực tuyến!

Đây là một hàm ẩn danh lấy một số nguyên từ luồng đầu vào và xuất một số nguyên cho luồng đầu ra.

Giải trình

{seq 1,_|parseInteger`$_`[::-1]|sum} Anonymous function
 seq 1,_                             Create a sequence 1 2 3 .. input and push each value to the stream
        |                            For each value in the stream:
                     `$_`             Cast it into a string
                         [::-1]       And reverse it
         parseInteger                 And parse the resulting string as an integer, while pushing the value to the stream
                               |sum  Sum all the values in the stream

C # (Lõi .NET) , 103 97 byte

using System.Linq;r=>new int[r+1].Select((_,n)=>int.Parse(string.Concat((n+"").Reverse()))).Sum()

Hãy thử trực tuyến!

Liên kết TIO cho ra tất cả các kết quả từ 1 đến 999, vì vậy hãy kiểm tra công việc của tôi.

Tôi đã dự đoán nó sẽ ngắn hơn một chút, nhưng hóa ra nó Reverse()trả về một IEnumerable<char>chuỗi thay vì một chuỗi khác vì vậy tôi phải thêm một số phụ để biến nó thành chuỗi để tôi có thể phân tích nó thành int. Có lẽ có một cách ngắn hơn để đi từ IEnumerable<char>int đến chính xác.

Lưu ý nhỏ, điều này cũng sử dụng các chức năng Range() Reverse()và Sum()tất cả theo thứ tự.

-6 byte nhờ TheLethalCoder

Hồng ngọc 56, 52, 41, 39 byte

->n{(1..n).sum{|i|i.to_s.reverse.to_i}}

Ruby, 34 byte (nếu lambda param là một chuỗi)

->n{(1..n).sum{|i|i.reverse.to_i}}

Cảm ơn @Unihedron cho giải pháp thứ hai.

Toán học, 47 byte

Tr[FromDigits@*Reverse/@IntegerDigits@Range@#]&

Hãy thử trực tuyến! (để làm việc trên toán học, chúng ta cần thay thế "Tr" bằng "Total")

Than , 14 13 byte

-1 byte nhờ Carlos Alejo

Ｉ∕…·⁰Ｎ«⁺ιＩ⮌Ｉκ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng.

Giải trình

Ｉ                  Cast
  ∕     «           Reduce
   …·⁰Ｎ            Inclusive range from 0 to input as number
         ⁺          Plus
          ι         i
           Ｉ⮌Ｉκ   Cast(Reverse(Cast(k)))

Magneson , 102 byte

Điều đó không hiển thị lắm, vì vậy đây là phiên bản thu nhỏ (Lưu ý: Không thực sự chạy và vẫn không đẹp lắm)

Magneson hoạt động bằng cách phân tích một hình ảnh và đánh giá các lệnh từ màu sắc của các pixel mà nó đọc. Vì vậy, bước qua hình ảnh cho thử thách này, chúng tôi có:

• R: 0, G: 1, B: 1là một lệnh gán số nguyên, lấy một chuỗi cho tên biến và giá trị để gán. Chúng tôi sẽ sử dụng điều này để lưu trữ tổng số.
• R: 0, G: 1, B: 0là một chuỗi dựng sẵn có giá trị VAR_1(Lưu ý: Đây chỉ là khi chúng tôi yêu cầu một chuỗi; mã màu có chức năng riêng khi được sử dụng ở nơi khác).
• R: 3, G: 0, B: 0là một số nguyên. Magneson xử lý các số tiêu chuẩn bằng cách yêu cầu thành phần Đỏ chính xác là 3 và sau đó tạo thành một số bằng cách sử dụng trực tiếp giá trị xanh cộng với giá trị xanh nhân với 256. Trong trường hợp này, chúng ta chỉ nhận được số 0.
• R: 0, G: 1, B: 1là một lệnh gán số nguyên khác. Lần này, chúng tôi đang lưu trữ một biến lặp, để theo dõi số chúng tôi đang sử dụng
• R: 0, G: 1, B: 1là một chuỗi dựng sẵn có giá trị VAR_2(Một lần nữa, chỉ khi chúng ta cần một chuỗi)
• R: 3, G: 0, B: 0là số 0, một lần nữa. Lên các bit thú vị bây giờ.
• R: 1, G: 0, B: 0chỉ ra sự bắt đầu của một vòng lặp. Điều này cần một số và lặp lại đoạn mã sau nhiều lần.
• R: 2, G: 0, B: 0là hàm STDIN, hoặc ít nhất là khi chúng ta cần một số. Điều này đọc một dòng đầu vào từ bàn điều khiển và biến nó thành một số, vì chúng tôi đã yêu cầu một số.
• R: 0, G: 8, B: 0bắt đầu mã lặp của chúng tôi và đó là một lệnh cộng. Điều này thêm một số vào một biến số nguyên và do đó, lấy một chuỗi cho tên biến và số để thêm.
• R: 0, G: 1, B: 1là chuỗi dựng sẵn cho VAR_2, đó là biến lặp của chúng tôi.
• R: 3, G: 0, B: 1 là một số nguyên, nhưng lần này là số 1.
• R: 0, G: 8, B: 0 là một lệnh bổ sung khác.
• R: 0, G: 1, B: 0là chuỗi cho VAR_1, đó là tổng của chúng tôi.
• R: 0, G: 3, B: 0là một hàm đảo ngược một chuỗi. Trong bối cảnh yêu cầu một số, sau đó nó chuyển đổi chuỗi đảo ngược thành một số.
• R: 0, G: 2, B: 1là một lệnh truy xuất số nguyên và sẽ truy xuất số được lưu trữ trong một biến được cung cấp. Trong ngữ cảnh yêu cầu một chuỗi (chẳng hạn như từ lệnh đảo ngược), nó chuyển đổi số thành chuỗi.
• R: 0, G: 1, B: 1là tên VAR_2; biến lặp của chúng tôi.
• R: 1, G: 0, B: 1là điểm đánh dấu để kết thúc vòng lặp và quay trở lại điểm bắt đầu của vòng lặp nếu các tiêu chí không được đáp ứng (vì vậy nếu chúng ta cần tiếp tục lặp). Nếu không, tiến hành trở đi.
• R: 0, G: 0, B: 1 là một lệnh println rất đơn giản và lấy một chuỗi.
• R: 0, G: 2, B: 1 lấy một số nguyên từ một biến

• R: 0, G: 1, B: 0 là tên của tổng biến của chúng tôi, VAR_1

  Tất cả trong tất cả, chương trình:

• Gán giá trị 0 cho VAR_1vàVAR_2
• Vòng lặp từ 0 đến một số được cung cấp trong STDIN
  • Thêm một vào VAR_2
  • Thêm giá trị nguyên của đảo ngược VAR_2vàoVAR_1
• In nội dung của VAR_1

Python 2 , 50 47 byte

-3 byte nhờ chính thức!

lambda n:sum(int(`i+1`[::-1])for i in range(n))

Hãy thử trực tuyến!

CJam , 12 byte

ri){sW%i}%:+

Hãy thử trực tuyến!

-1 cảm ơn Business Cat .

Giải trình:

ri){sW%i}%:+
r            Get token
 i           To integer
  )          Increment
   {sW%i}    Push {sW%i}
    s         To string
     W        Push -1
      %       Step
       i      To integer
         %   Map
          :+ Map/reduce by Add

APL (Dyalog) , 10 7 byte

3 byte được chơi golf nhờ @ Adám bằng cách chuyển đổi sang giao dịch từ tàu

+/⍎⌽⍕⍳⎕

Hãy thử trực tuyến!

⎕          Input (example input: 10)
⍳          Range; 1 2 3 4 5 6 7 8 9 10
⍕          Stringify; '1 2 3 4 5 6 7 8 9 10'
⌽          Reverse; '01 9 8 7 6 5 4 3 2 1'
⍎          Evaluate; 1 9 8 7 6 5 4 3 2 1
+/         Sum; 46

Java 8, 97 byte

IntStream.range(1,n+1).map(i->Integer.valueOf(new StringBuffer(""+i).reverse().toString())).sum()

CHỈNH SỬA

Theo nhận xét của Kevin Cruijssen, tôi muốn cải thiện câu trả lời của tôi.

Java 8, 103 byte

n->java.util.stream.LongStream.range(1,n+1).map(i->new Long(new StringBuffer(""+i).reverse()+"")).sum()

Japt , 7 5 byte

-2 byte nhờ @Shaggy.

õs xw

Hãy thử trực tuyến!

Giải trình

õs xw  Implicit input of integer U
õs     Create range [1,U] and map to strings
    w  Reverse each string
   x   Sum the array, implicitly converting to numbers.

Giải pháp cũ, 7 byte

Giữ điều này vì nó là một cách sử dụng thực sự mát mẻ z2.

õs z2 x

Hãy thử trực tuyến!

Giải trình

õs z2 x  Implicit input of integer U
õs       Create range [1,U] and map to strings
   z2    Rotate the array 180°, reversing strings
      x  Sum the array, implicitly converting back to integers

C ++, 146 byte

#include<string>
using namespace std;int r(int i){int v=0,j=0;for(;j<=i;++j){auto t=to_string(j);reverse(t.begin(),t.end());v+=stoi(t);}return v;}

Husk , 7 6 3 byte

ṁ↔ḣ

Hãy thử trực tuyến!

Ungolfed / Giải thích

  ḣ  -- With the list [1..N] ..
ṁ    -- .. do the following with each element and sum the values:
 ↔   --    reverse it

Perl 5 , 29 27 22 + 1 ( -p) = 23 byte

map$\+=reverse,1..$_}{

Hãy thử trực tuyến!

RProgN 2 , 8 byte

{Ø.in}S+

Giải thích

{Ø.in}S+
{    }S # Create a stack in range 0 through the implicit input, using the function defined
 Ø.     # Append nothing, stringifying the number
   i    # Reverse the string
    n   # Convert back to a number
       +# Get the sum of the stack, and output implicitly.

Hãy thử trực tuyến!

Bình thường , 8 6 byte

^{-2 byte nhờ FryAmTheEggman!}

sms_`h

Hãy thử trực tuyến!

Tcl , 66 byte

time {incr s [regsub ^0+ [string rev $n] ""];incr n -1} $n
puts $s

Hãy thử trực tuyến!

Neim , 4 byte

Δ𝐫)𝐬

Hãy thử trực tuyến!

Giải trình

Δ )              for each element 1 to n (outputs list)
 𝐫               reverse 
   𝐬             sum 

C (gcc) , 71 byte

q(n,x,p){p=n?q(n/10,x*10+n%10):x;}f(w,a,e){for(a=0;w;)a+=q(w--,0);e=a;}

Hãy thử trực tuyến!