Geben Sie eine Zahl als Eingabe ein und drucken Sie die Gesamtsumme aus

Was ist eine kollektive Summe?

Betrachten Sie die Zahl 13214, die Eingabe

Durchlaufen Sie jede der Ziffern ab der linken Seite, um die Gesamtsumme zu erhalten.

1 bedeutet, schauen Sie sich die erste Ziffer an und addieren Sie sie zur Summe, Summe = 1

3 bedeutet, schauen Sie sich die "ersten 3 Ziffern" an und addieren Sie sie zur Summe, Summe = 1 + 132

2 bedeutet, schauen Sie sich die "ersten 2 Ziffern" an und addieren Sie sie zur Summe, Summe = 1 + 132 + 13

1 Das heißt, Sie sehen sich die erste Ziffer an und addieren sie zur Summe, Summe = 1 + 132 + 13 + 1

4 bedeutet, schauen Sie sich die "ersten 4 Ziffern" an und addieren Sie sie zur Summe, Summe = 1 + 132 + 13 + 1 + 1321

Gesamtsumme = 1468und dies ist Ihre Ausgabe

Spezialfälle:

Wenn wir auf eine stoßen 0, halten wir die Summe natürlich gleich

The number 1301 would have a sum = 1 + 130 + 1 = 132

Wenn wir auf eine Zahl stoßen, die größer ist als die Länge der Eingabe, addieren wir alles

The number 251 would have a sum = 25 + 251 + 2 = 278

Testfälle:

collectiveSum(0) = 0

collectiveSum(2) = 2

collectiveSum(2315) = 23 + 231 + 2 + 2315 = 2571

Die kürzeste Anzahl von Bytes gewinnt. Viel Spaß beim Golfen!

05AB1E ,  4  3 Bytes

-1 dank Kevin Cruijssen (Verwendung von a zu €vermeiden })

€£O

Probieren Sie es online!

Wie?

€£O - implicit input   e.g. 2315
€   - map with:
 £  -   head to             23, 231, 2, 2315
  O - sum                   2571

Python 2 , 43 Bytes

lambda n:sum(int('0'+n[:int(x)])for x in n)

Probieren Sie es online!

Python 2, 72 Bytes

Erste Einreichung! Danke an @DestructibleLemon für die Hilfe!

import sys;d=sys.argv[1];s=0;for e in d:s+=int(d[:int(e)]);print str(s)

Haskell, 43 37 Bytes

f l=sum[read$'0':take(read[d])l|d<-l]

Probieren Sie es online!

Die eingegebene Nummer wird als Zeichenfolge verwendet.

   [        |d<-l]      -- for every digit d in the input string
        read[d]         -- convert to a number
      take     l        -- and take that many digits from l
     0:                 -- prepend a 0 (to handle 0s)
   read                 -- convert to a number
sum                     -- sum all numbers

Ruby , 36 Bytes

->n{n.sum{|x|n[0,x.to_i].join.to_i}}

Probieren Sie es online!

JavaScript, 42 bis 40 Bytes

Vielen Dank an @Shaggy für das Golfen mit 2 Bytes

f=
x=>[...x].map(y=>a+=+x.slice(0,y),a=0)|a

console.log(f("2315"))
console.log(f("0100"))
console.log(f("2"))
console.log(f("01025"))

Erhält Eingaben als Zeichenfolge und gibt eine Ganzzahl zurück. Wie derzeit geschrieben, hinterlässt dieser Code führende Nullen in allen Ganzzahlen.

R, 57 Bytes

hat dank @Vlo noch eins gespart

sum(strtoi(substring(i<-scan(,""),1,el(strsplit(i,"")))))

was: 4 Bytes gespart dank @Robert Hackens Vorschlag.

i=scan(,"");sum(strtoi(substring(i,1,el(strsplit(i,"")))))

Ein einfacher String-Ansatz.

C (gcc) , 106 Bytes

j,k,c,t;f(char*S){for(t=j=0;S[j];j++)c=S[k=S[j]-48<(c=strlen(S))?S[j]-48:c],S[k]=0,t+=atoi(S),S[k]=c;S=t;}

Probieren Sie es online!

Kohle , 10 Bytes

ＩΣＩＥθ✂θ⁰Ｉι

Probieren Sie es online! Link ist eine ausführliche Version des Codes. Erläuterung:

   Ｅθ       Map over input string
        Ｉι  Cast current character to integer
     ✂θ⁰    Slice input string to that length
 ΣＩ         Cast slices to integer and take the sum
Ｉ           Cast result to string and implicitly print

Oktave , 56 Bytes

@(n)sum(str2num(['' 32+char(n.*(find(n)<=(n'-48))-32)]))

Anonyme Funktion, die eine Zeichenfolge als Eingabeargument und eine Zahl als Ausgabe zurückgibt.

Probieren Sie es online!

Die kürzere Version

@(n)sum(str2num(['' char(n.*(find(n)<=(n'-48)))]))

arbeitet in Matlab, weil char(0)es als Leerzeichen behandelt wird.

Gelee ,  7  5 Bytes

-2 dank Dennis (Kopf vektorisiert>. <)

^{4 wenn wir Ziffernlisten nehmen dürfen *}

Dḣ`ḌS

Probieren Sie es online!

* ḣ`ḌS

Wie?

Dḣ`ḌS - Link: integer, n   e.g. 2315
D     - to decimal list         [2,3,1,5]
  `   - repeat left as right    [2,3,1,5]
 ḣ    - head                    [2,3], [2,3,1], [2], [2,3,1,5]
   Ḍ  - from decimal lists      23, 231, 2, 2315
    S - sum                     2571

Perl 6 , 27 Bytes

{sum $_ X[&substr]^«.comb}

Probier es aus

Erweitert:

{  # bare block lambda with implicit param ｢$_｣

  sum

    $_           # the input

      X[&substr] # crossed using &substr sub as if it was an infix operator

    ^«\          # upto ｢^｣ for each of the following ｢«｣ (creates Range objects)
    .comb        # the input split into digits (implicit method call on ｢$_｣
}

C (gcc) , 77 75 Bytes

Muss mit dem -lmSchalter kompiliert werden oder GCC erkennt die mathematischen Funktionen nicht.

r,q,i;f(n){for(r=0,i=n;i;i/=10)q=log10(n)+1-i%10,r+=n/pow(10,q>0?q:0);n=r;}

Probieren Sie es online!

dc , 55 Bytes

[0*]sq?dsfZ1-se[lfddZrIle^/I%-d0>qIr^/+led1-se0<a]dsaxp

Keine Zeichenfolgen oder Arrays! In der Tat werden die erforderlichen Ziffern nur durch mathematische Manipulation erfasst.

Probieren Sie es online!

Schale , 6 Bytes

ṁd´M↑d

Probieren Sie es online!

Erläuterung

ṁd´M↑d  -- example input: 1301
     d  -- decimal digits: [1,3,0,1]
  ´M    -- map over it using it as argument (example with 3):
    ↑   -- | take: [1,3,0]
        -- : [[1],[1,3,0],[],[1]]
ṁ       -- map and then sum the result (example on [1,3,0]):
 d      -- | as decimal: 130
        -- : 1 + 130 + 0 + 1 = 132

J , 18 Bytes

[:+/"."0".@{."0 1]

Erläuterung

Nimmt einen String als Eingabe

           {."0 1  - take
    "."0           - current char as int items
                 ] - from the argument
         ".        - and convert them to an integer  
[:+/               - add them up

Probieren Sie es online!

Japt, 5 Bytes

Übernimmt die Eingabe als Zeichenfolge.

¬x@¯X

Versuch es

Erläuterung

          :Implicit input of integer string U
¬         :Split to an array of characters/digits
  @       :Pass each X through a function
   ¯X     :Slice U from the first to the Xth character
 x        :Reduce by addition

Stax , 6 Bytes

ç╫&º±å

Führen Sie es online aus und debuggen Sie es

Dies ist die entsprechende ASCII-Darstellung desselben Programms.

EZFy(e+

E        get array of digits
 Z       push 0 under array of digits
  F      for each digit, run the rest of the program
   y     input as a string
    (    get start of string for specified number of characters
     e   evaluate substring as integer
      +  add

Eigentlich 10 Bytes

╝ß⌠≈╛H≈⌡MΣ

Probieren Sie es online!

Erläuterung

╝          Push input to register 1
 ß         Push n-th input (0 by default)
        M  Map
  ⌠    ⌡   Function
   ≈       Cast current character of input to int
    ╛      Get value of register 1 (input)
     H     Push input[:current character]
      ≈    Cast to int
         Σ Sum

JavaScript, 43 Bytes

Es ist gut nach 3 Uhr morgens, warum spiele ich noch Golf ?!

Übernimmt die Eingabe als Zeichenfolge.

s=>(g=x=>s[x]?+s.slice(0,s[x])+g(++x):0)(0)

Probieren Sie es online aus

Perl 5, 26 Bytes

Enthält +1fürp

perl -pE 's%.%/.{0,$&}/;$\+=$&%eg}{' <<< 2315; echo

K4 , 22 Bytes

Lösung:

+/10/:'(x&#x)#\:x:10\:

Beispiele:

q)k)+/10/:'(x&#x)#\:x:10\:13214
1468
q)k)+/10/:'(x&#x)#\:x:10\:1301
132
q)k)+/10/:'(x&#x)#\:x:10\:251
278
q)k)+/10/:'(x&#x)#\:x:10\:2315
2571

Erläuterung:

Brechen Sie in die Basis 10 ein, nehmen Sie von jeder Zahl min und daraus die Länge der Liste. Rechne zurück und fasse zusammen.

+/10/:'(x&#x)#\:x:10\: / the solution
                  10\: / to base 10, 123 => 1 2 3
                x:     / save as x
             #\:       / take (#) each left
       (    )          / the left
          #x           / count (#) length of x
        x&             / min of x and the length
  10/:'                / from base 10 each
+/                     / sum up the results

Java 8, 92 Bytes

n->n.chars().map(c->(c-=48)>0?new Integer(n.substring(0,c<n.length()?c:n.length())):0).sum()

Erläuterung:

Probieren Sie es online aus.

n->                                  // Method with String parameter and int return-type
  n.chars()                          //  Loop over the characters
   .map(c->(c-=48)                   //   Convert character to digit
        >0?                          //    And if it's larger than 0
         new Integer(n.substring(0,  //     Take the first `x` digits, where `x` is:
          c<n.length()?              //      If the digit higher than the total a.o. digits
           c                         //       Take the first `c` digits
          :                          //      Else:
           n.length()))              //       Take all digits
         :                           //    Else:
          0)                         //     Take 0
   .sum()                            //   And sum everything

REXX 118 Bytes

pull n                           
l=length(n)                      
a=0                              
j=1                              
do while (j<=l)                  
if substr(n,j,1)==0 then m=0;    
else m=substr(n,1,substr(n,j,1));
a=a+m                            
j=j+1                            
end                              
say a                                 

Versuchen Sie es hier.
Geben Sie auf der Registerkarte STDIN einen Eingabewert ein.

Python 3 , 66 Bytes

lambda n:sum([int(str(n)[:int(i)])if i!='0'else 0for i in str(n)])

Probieren Sie es online!

Gelee , 6 Bytes

DµḣµVS

Probieren Sie es online!

Holen Sie sich die DZiffern der Eingabe, dann holen Sie sich die ersten [jede Ziffer] Elemente der Eingabe ( ḣead), dann Valle Summen, um es wieder eine Zahl zu machen und Sum.