Girdi olarak n pozitif bir tamsayı verildiğinde, n'nin tersine çevrilmiş toplamı çıkar.

Tersine çevrilmiş bir aralık toplamı, 1'e kadar başlayan ve n'yi içeren, içindeki sayıların her birini tersine çevirerek ve toplayarak n'e kadar kapsayıcı bir aralık oluşturarak oluşturulur.

Örnek:

İşte 10 girdi için ne olacağını:

aralık: [1,2,3,4,5,6,7,8,9,10]

Ters Çevir: [1,2,3,4,5,6,7,8,9,01]( Tersine çevrilmiş 1 karakterlik numaralar kendileri, tersine çevrilmiş 10 sayı 01 veya 1'dir)

Toplam: 46

3+ rakamlı sayılar, 2 rakamlı sayılarla aynı şekilde ters çevrilir. Örneğin, 1234, 4321 olur.

Test durumları:

Input -> Output

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

@ Fireflame241'e çok teşekkürler, burada 999'un girişini tamamlayan metin durumlarını burada bulabilirsiniz.

05AB1E , 3 bayt

kod

LíO

05AB1E kodlamasını kullanır . Çevrimiçi deneyin!

açıklama

L       # Range
 í      # Reverse
  O     # Sum

Bash + GNU yardımcı programları, 24

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

Çevrimiçi deneyin .

açıklama

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

JavaScript (ES6), 42 bayt

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

En sevdiğim çift özyinelemeli çözüm maalesef 3 byte daha uzun:

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

Perl 6 , 20 bayt

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

Dene

Expanded:

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

Retina , 41 36 35 bayt

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

.+
$*
1

Çevrimiçi deneyin! Link, test durumlarını içerir. Düzenleme: @ FryAmTheEggman sayesinde 5 bayt kaydedildi. @ PunPun1000 sayesinde 1 bayt kaydedildi. Açıklama:

.+
$*

Birliğe dönüştür.

1
1$`¶

Bir dizi oluşturma 1için n.

1+
$.&

Ondalık basamağa dönüştür.

%O^$`.

Her numarayı ters çevirin.

.+
$*

Birliğe geri dön.

1

Toplayın ve ondalık basamağa dönüştürün.

Jöle , 4 bayt

Ṛ€ḌS

Çevrimiçi deneyin!

Nasıl?

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

Haskell, 34 bayt

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

Basit ve anlaşılır.

C (gcc) , 63 bayt

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

Çevrimiçi deneyin!

cQuents , 4 bayt

;\r$

Çevrimiçi deneyin!

açıklama

       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 bayt

Özyineleme sınırından daha yüksek terimler hesaplanamıyor:

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

Çevrimiçi deneyin!

Brachylog , 4 bayt

⟦↔ᵐ+

Çevrimiçi deneyin!

açıklama

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

Röda , 56 41 36 bayt

@Fergusq sayesinde 15 bayt kurtarıldı

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

Çevrimiçi deneyin!

Bu, giriş akışından bir tamsayı alan ve çıkış akışına bir tamsayı çıkaran isimsiz bir fonksiyondur.

açıklama

{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 # (.NET Core) , 103 97 bayt

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

Çevrimiçi deneyin!

TIO bağlantısı tüm sonuçları 1'den 999'a çıkarır, bu yüzden işimi kontrol etmekten çekinmeyin.

Bunun biraz daha kısa olmasını bekliyordum, ancak başka bir dize yerine Reverse()geri döndürdüğü ortaya çıktı , IEnumerable<char>böylece tekrar bir dizgeye dönüştürmek için fazladan bir miktar eklemek zorunda kaldım, böylece bir int'ye ayrıştırdım. Belki de gidilmesi gereken daha kısa bir yol vardır.IEnumerable<char> int'den doğru .

Küçük notta, bu aynı zamanda işlevleri Range() Reverse()ve Sum()hepsini sırayla kullanır .

TheLethalCoder sayesinde -6 bayt

Yakut, 56, 52, 41, 39 bayt

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

Yakut, 34 bayt (lambda param bir dize ise)

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

İkinci çözüm için @Unihedron'a teşekkürler.

Mathematica, 47 bayt

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

Çevrimiçi deneyin! (matematik üzerinde çalışmak için "Tr" yerine "Toplam" yazmamız gerekir)

Kömür , 14 13 bayt

Carlos Alejo sayesinde -1 bayt

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

Çevrimiçi deneyin! Bağlantı ayrıntılı versiyonudur.

açıklama

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

Magneson , 102 bayt

Bu çok görünür değil, bu yüzden ölçeklendirilmiş bir sürümü var (Not: Gerçekten çalışmaz ve hala çok hoş değildir)

Magneson, bir görüntüyü ayrıştırıp okuduğu piksellerin renklerinden komutları değerlendirerek çalışır. Yani bu meydan okuma için görüntü adım adım, biz var:

• R: 0, G: 1, B: 1değişken bir ad ve atanacak değer için bir dize alan bir tamsayı atama komutudur. Toplamı depolamak için bunu kullanacağız.
• R: 0, G: 1, B: 0değeri önceden oluşturulmuş bir dizedir VAR_1(Not: Bu yalnızca bir dize isterken; renk kodu başka yerde kullanıldığında ayrı bir işleve sahiptir).
• R: 3, G: 0, B: 0Ham bir sayıdır. Magneson, Red bileşeninin tam olarak 3 olmasını zorunlu kılarak standart sayıları ele alır ve ardından doğrudan mavi değeri artı 256 ile çarpılan yeşil değeri kullanarak bir sayı oluşturur . Bu durumda, sadece 0 sayısını alıyoruz.
• R: 0, G: 1, B: 1başka bir tamsayı atama komutu. Bu sefer, hangi sayıda olduğumuzu takip etmek için bir yineleme değişkenini saklıyoruz
• R: 0, G: 1, B: 1değeri önceden oluşturulmuş bir dizedir VAR_2(Bir kez daha, yalnızca bir dizeye ihtiyacımız olduğunda)
• R: 3, G: 0, B: 00, bir kez daha sayıdır. Şimdi ilginç parçalara.
• R: 1, G: 0, B: 0bir döngünün başlangıcını gösterir. Bu bir sayı alır ve aşağıdaki kod pasajını birçok kez döndürür.
• R: 2, G: 0, B: 0STDIN işlevi veya en azından bir numaraya ihtiyacımız olduğunda olduğu gibi. Bu, konsoldan bir girdi satırı okur ve sayı istediğimizden beri sayıya çevirir.
• R: 0, G: 8, B: 0döngü kodumuzu başlatır ve ek bir komuttur. Bu bir tamsayı değişkenine bir sayı ekler ve bu nedenle değişken adı ve eklenecek sayı için bir dize alır.
• R: 0, G: 1, B: 1VAR_2yineleme değişkenimiz olan önceden oluşturulmuş dize .
• R: 3, G: 0, B: 1 Ham bir sayıdır, ancak bu sefer 1 sayı.
• R: 0, G: 8, B: 0 başka bir ekleme komutu.
• R: 0, G: 1, B: 0VAR_1toplamın toplamı olan dizedir .
• R: 0, G: 3, B: 0bir dizgeyi tersine çeviren bir işlevdir. Bir sayı istemek bağlamında, ters çevrilen dizeyi bir sayıya dönüştürür.
• R: 0, G: 2, B: 1bir tamsayı alma komutudur ve verilen bir değişkende saklanan sayıyı alır. Bir dize isteme bağlamında (örneğin ters komutundan), sayıyı bir dizeye dönüştürür.
• R: 0, G: 1, B: 1isim VAR_2; yineleme değişkenimiz.
• R: 1, G: 0, B: 1Döngüyü sona erdirmek için belirteçtir ve ölçütler karşılanmadığında döngünün başlangıcına geri dönersiniz (yani döngü devam etmemiz gerekiyorsa). Aksi takdirde, devam edin.
• R: 0, G: 0, B: 1 çok basit bir println komutu ve bir dize alır.
• R: 0, G: 2, B: 1 bir değişkenden bir tam sayı alır

• R: 0, G: 1, B: 0 toplam toplam değişkenimizin adı, VAR_1

  Sonuçta, program:

• 0 değerini VAR_1ve atar.VAR_2
• STDIN'de verilen bir numaradan 0'a döngüler
  • Bir ekler VAR_2
  • İçin tamsayı değerini ekler VAR_2.VAR_1
• İçeriğini yazdırır VAR_1

Python 2 , 50 47 bayt

Officialaimm sayesinde -3 bayt !

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

Çevrimiçi deneyin!

CJam , 12 bayt

ri){sW%i}%:+

Çevrimiçi deneyin!

Business Cat sayesinde -1 .

Açıklama:

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 bayt

@ Adám sayesinde 3 byte golf oynadı

+/⍎⌽⍕⍳⎕

Çevrimiçi deneyin!

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

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

DÜZENLE

Yorumuna göre Kevin Cruijssen cevabımı geliştirmek istiyorum.

Java 8, 103 bayt

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

Japt , 7 5 bayt

@Shaggy sayesinde -2 bayt.

õs xw

Çevrimiçi deneyin!

açıklama

õ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.

Eski çözüm, 7 bayt

Bunu tutmak gerçekten güzel bir kullanım olduğundan beri z2.

õs z2 x

Çevrimiçi deneyin!

açıklama

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

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

Kabuğu , 7 6 3 bayt

ṁ↔ḣ

Çevrimiçi deneyin!

Ungolfed / Açıklama

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

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

Çevrimiçi deneyin!

RProgN 2,8 bayt

{Ø.in}S+

Açıklaması

{Ø.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.

Çevrimiçi deneyin!

Pyth , 8 6 bayt

^{FryAmTheEggman sayesinde -2 bayt !}

sms_`h

Çevrimiçi deneyin!

Tcl , 66 bayt

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

Çevrimiçi deneyin!

Neim , 4 bayt

Δ𝐫)𝐬

Çevrimiçi deneyin!

açıklama

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

C (gcc) , 71 bayt

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

Çevrimiçi deneyin!