กำหนดตัวเลขเป็นอินพุตพิมพ์ผลรวมโดยรวม

จำนวนรวมคืออะไร?

พิจารณาจำนวน13214การป้อนข้อมูล

วนผ่านตัวเลขแต่ละตัวเริ่มจากด้านซ้ายเราจะสามารถได้รับผลรวมของมัน

1 หมายถึงดูที่ตัวเลขตัวแรกและเพิ่มลงในผลรวม, sum = 1

3 หมายถึงดูที่ "ตัวเลข 3 ตัวแรก" และเพิ่มลงในผลรวม, sum = 1 + 132

2 หมายถึงดูที่ "ตัวเลข 2 ตัวแรก" และเพิ่มลงในผลรวม, sum = 1 + 132 + 13

1 หมายถึงดูตัวเลขตัวแรกและเพิ่มลงในผลรวม sum = 1 + 132 + 13 + 1

4 หมายถึงดูที่ "ตัวเลข 4 ตัวแรก" และเพิ่มลงในผลรวม, sum = 1 + 132 + 13 + 1 + 1321

ยอดรวม = 1468และนี่คือผลลัพธ์ของคุณ

กรณีพิเศษ:

หากเราพบกับ a 0แล้วชัดเจนว่าเราเก็บผลรวมเดียวกัน

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

หากเราพบตัวเลขที่มีขนาดใหญ่กว่าความยาวของอินพุตเราจะเพิ่มทั้งหมด

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

กรณีทดสอบ:

collectiveSum(0) = 0

collectiveSum(2) = 2

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

จำนวนไบต์ที่สั้นที่สุดชนะ มีความสุขในการเล่นกอล์ฟ!

05AB1E ,  4  3 ไบต์

-1 ต้องขอบคุณ Kevin Cruijssen (การ€หลีกเลี่ยงก})

€£O

ลองออนไลน์!

อย่างไร?

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

Python 2 , 43 ไบต์

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

ลองออนไลน์!

Python 2, 72 ไบต์

ส่งครั้งแรก! ขอบคุณ @DestructibleLemon สำหรับความช่วยเหลือ!

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]

ลองออนไลน์!

หมายเลขอินพุตถูกใช้เป็นสตริง

   [        |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 ไบต์

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

ลองออนไลน์!

JavaScript, 42 40 ไบต์

ขอบคุณ @Shaggy สำหรับการเล่นกอล์ฟ 2 ไบต์

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

รับอินพุตเป็นสตริงและส่งคืนเลขจำนวนเต็ม ตามที่เขียนไว้ในปัจจุบันรหัสนี้จะปล่อยศูนย์เป็นศูนย์ในจำนวนเต็มใด ๆ

R, 57 ไบต์

บันทึกอีกหนึ่งรายการขอบคุณ @Vlo

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

คือ: บันทึกแล้ว 4 ไบต์ขอบคุณคำแนะนำของ @Robert Hacken

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

วิธีการสตริงที่เรียบง่าย

C (gcc) , 106 ไบต์

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

ลองออนไลน์!

ถ่าน 10 ไบต์

ＩΣＩＥθ✂θ⁰Ｉι

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

   Ｅθ       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

อ็อกเทฟ 56 ไบต์

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

ฟังก์ชันไม่ระบุชื่อที่รับสตริงเป็นอาร์กิวเมนต์อินพุตและส่งคืนตัวเลขเป็นเอาต์พุต

ลองออนไลน์!

รุ่นที่สั้นกว่า

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

ทำงานใน Matlab เพราะchar(0)ถือว่าเป็นพื้นที่

เยลลี่ ,  7  5 ไบต์

-2 ต้องขอบคุณเดนนิส (หัวเวกเตอร์>. <)

^{4 ถ้าเราอาจใช้รายการตัวเลข *}

Dḣ`ḌS

ลองออนไลน์!

* * * * ḣ`ḌS

อย่างไร?

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 ไบต์

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

ทดสอบมัน

ขยาย:

{  # 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 ไบต์

จะต้องมีการรวบรวมด้วย-lmสวิตช์หรือ GCC ไม่รู้จักฟังก์ชั่นคณิตศาสตร์

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

ลองออนไลน์!

dc , 55 ไบต์

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

ไม่มีสตริงหรืออาร์เรย์! แน่นอนตัวเลขที่ต้องการจะได้รับเพียงผ่านการจัดการทางคณิตศาสตร์

ลองออนไลน์!

Husk , 6 ไบต์

ṁd´M↑d

ลองออนไลน์!

คำอธิบาย

ṁ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 ไบต์

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

คำอธิบาย

รับสตริงเป็นอินพุต

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

ลองออนไลน์!

Japt, 5 ไบต์

รับอินพุตเป็นสตริง

¬x@¯X

ลองมัน

คำอธิบาย

          :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 ไบต์

ç╫&º±å

เรียกใช้และตรวจแก้จุดบกพร่องออนไลน์

การแสดง ascii ที่สอดคล้องกันของโปรแกรมเดียวกันคือสิ่งนี้

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

ที่จริงแล้ว 10 ไบต์

╝ß⌠≈╛H≈⌡MΣ

ลองออนไลน์!

คำอธิบาย

╝          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

จาวาสคริปต์, 43 ไบต์

หลังจาก 3 โมงเช้าแล้วทำไมฉันถึงยังเล่นกอล์ฟอยู่!

รับอินพุตเป็นสตริง

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

ลองออนไลน์

Perl 5, 26 ไบต์

รวม+1สำหรับp

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

K4 , 22 ไบต์

วิธีการแก้:

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

ตัวอย่าง:

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

คำอธิบาย:

เจาะเข้าไปในฐาน 10 ใช้เวลาน้อยที่สุดของแต่ละหมายเลขและความยาวของรายการจากนี้ แปลงกลับมาแล้วสรุป

+/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 ไบต์

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

คำอธิบาย:

ลองออนไลน์

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 ไบต์

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                                 

ลองที่นี่
ระบุค่าป้อนเข้าในแท็บ STDIN

Python 3 , 66 ไบต์

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

ลองออนไลน์!

เยลลี่ 6 ไบต์

DµḣµVS

ลองออนไลน์!

รับDigits ของอินพุตจากนั้นรับองค์ประกอบ [แต่ละหลักแรกของอินพุต ( ḣead) จากนั้นVรวมอัลแต่ละผลรวมเพื่อทำให้ตัวเลขอีกครั้งและSเอ่อ