งาน

กำหนดจำนวนเต็มบวกสองตัวเอาท์พุทจำนวนการถือครองที่ต้องการเพื่อรวมเข้าด้วยกันในการเพิ่มความยาวในฐาน 10

ตัวอย่าง

¹¹¹   <-- carries
 999
+  1
----
1000

ต้องมีสามอุ้ม

 ¹
 348
+ 91
----
 439

ต้องพกหนึ่งอัน

Testcases

999,   1 -> 3
398,  91 -> 1
348,  51 -> 0
348,  52 -> 2
  5,  15 -> 1
999, 999 -> 3
505, 505 -> 2

เกณฑ์การให้คะแนน

นี่คือรหัสกอล์ฟ คำตอบที่สั้นที่สุดในการชนะไบต์ ช่องโหว่มาตรฐานใช้

Mathematica, 46 39 ไบต์

x=Tr@*IntegerDigits;(x@#+x@#2-x@+##)/9&

อินพุต

[348,51]

-7 bytes จาก JungHwan

JavaScript (ES6), 50 ไบต์

แก้ไข Stolen จากโซลูชันของ ovs

f=(a,b,c=0)=>a|b|c&&c+f(a/10,b/10,a%10+b%10+c>=10)

คำอธิบาย

f=(a,b,c=0)=>                                      Function taking two numbers and optional carry
             a|b|c                                 If a number or the carry are nonzero
                  &&                               Then
                    c+f(a/10,b/10,a%10+b%10+c>=10) Return carry plus all other carries

ดำเนินการอธิบาย

a%10+b%10+c     Sum of mod 10 of the numbers and c - remember these are not floordiv'ed
           >=10 Greater than or equals to 10 (we can't use greater than 9 here)

f=(a,b,c=0)=>a|b|c&&c+f(a/10,b/10,a%10+b%10+c>=10)
console.log([[999,1],[398,91],[348,51],[348,52],[5,15],[999,999],[256,64],[190192,90909]].map(test=>`${(test[0]+'').padStart(6,' ')}, ${(test[1]+'').padStart(6,' ')} -> ${f(...test)}`).join('\n'));

C (gcc) , 65 ไบต์

i,l;f(a,b){for(i=l=0;a+b;a/=10,b/=10)i+=a%10+b%10+l>9?l=1:0;a=i;}

ลองออนไลน์!

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

-1 ไบต์โดย porting คำตอบวิชาคณิตศาสตร์ Jenny_mathy ของ
-2 ไบต์เพิ่มเติมโดยการเล่นกอล์ฟที่ดีขึ้น: p

;SN$DFS:9

ดูชุดทดสอบ

อย่างไร?

;SN$DFS:9 - Main link: list of numbers, [a,b]     e.g.   [348,53]
   $      - last two links as a monad
 S        -   sum                                            401
  N       -   negate                                        -401
;         - concatenate                             [348,53,-401] 
    D     - convert to decimal lists     [[3,4,8],[5,3],[-4,0,-1]]
     F    - flatten                           [3,4,8,5,3,-4,0,-1]
      S   - sum                                               18
       :9 - integer divide by nine                             2

โซลูชัน 12 ไบต์ของฉัน ...

:⁵+
DUSç\>9S

ลิงก์ monadic ที่จับคู่เป็นจำนวนเต็มและส่งคืนจำนวนการดำเนินการเป็นจำนวนเต็ม

อาจมีวิธีที่สั้นกว่านี้! มี!

ลองออนไลน์! หรือดูชุดทดสอบ

อย่างไร

:⁵+ · Link 1: perform a carry: right-column's-digit-sum, a; left-colum's-digit-sum; b
 ⁵  · literal 10
:   · a integer-divided by 10 - the carry amount
  + · add to b

DUSç\>9S · Main link: list of summands        e.g. [348,52]
D        · convert to decimal lists                [[3,4,8],[5,2]]
 U       · upend (reverse each)                    [[8,4,3],[2,5]]
  S      · sum (add the digits up)                 [10,9,3]
    \    · cumulative reduce with:
   ç     ·   last link (1) as a dyad               [10,10,4]
      9  · literal 9
     >   · greater than?                           [ 1, 1,0]
       S · sum                                     2

Pythonขนาด 48 ไบต์

f=lambda a,b,m=1:m<1e99and(~a%m<b%m)+f(a,b,m*10)

ลองออนไลน์!

สำหรับแต่ละสถานที่ค่าm=1, 10, 100, ..., 10**99ตรวจสอบว่ามีการพกพาที่มูลค่าสถานที่นั้น ที่เช็คล้นจะลงไปa%m+b%m>=m~a%m<b%m

ตัวแปรที่ดีกว่าขนาด45 ไบต์ที่ลอยaและbเลื่อนลงแทน

f=lambda a,b:a+b and(a%1+b%1>=1)+f(a/10,b/10)

น่าเศร้าที่พบปัญหาความแม่นยำลอย

JavaScript (ES6), 53 45 ไบต์

f=(a,b,d=1)=>a+b<d?0:(a%d+b%d>=d)+f(a,b,d*10)

บันทึก 1 ไบต์โดยการเพิ่มการทำซ้ำโดยไม่ทำอะไรเลยเพื่อดำเนินการในสถานที่ของ 1 บันทึกแล้ว 7 ไบต์โดยดำเนินการตรวจสอบการพกพาของ @ xnor ฉันยังมีรุ่น 45 ไบต์ที่หรูหรากว่า แต่ก็มีปัญหาจากความไม่ถูกต้องของเลขทศนิยม มันจะทำงานได้ดีในการแปลเป็นภาษาที่มีเลขทศนิยมที่แน่นอน:

f=(a,b,c=a+b)=>c<1?0:a%1+b%1-c%1+f(a/10,b/10)

Python 2 , 55 ไบต์

f=lambda a,b,c=0:c+a+b and c+f(a/10,b/10,a%10+b%10+c>9)

ลองออนไลน์!

05AB1E , 11 10 ไบต์

|DO‚€SOÆ9÷

ลองออนไลน์!

Neim , 10 ไบต์

𝔸𝐣𝐬₁₂𝔻𝐬𝕊λ𝕍

คำอธิบาย:

𝔸            𝔸ppend the two inputs into a list
 𝐣            𝐣oin them together
  𝐬           𝐬um the characters
   ₁₂         Push the first input, then the second
     𝔻        A𝔻d.
      𝐬       𝐬um the characters
       𝕊      𝕊ubtract
         𝕍    Integer di𝕍ision by
        λ     nine (variable)

ลองมัน!

ทางเลือกอื่น ๆ เช่น 10 ไบต์:

𝔸D𝐣𝐬S𝐬𝐬𝕊9𝕍

คำอธิบาย:

𝔸             𝔸ppend the two inputs into a list
 D            Duplicate
  𝐣            𝐣oin
   𝐬           𝐬um
    S          Swap
     𝐬         𝐬um
      𝐬        𝐬um the characters
       𝕊       𝕊ubtract
         𝕍     integer di𝕍ide by
        λ       nine (variable)

ลองมัน!

PHP> = 7.1, 81 ไบต์

for([,$x,$y]=$argv,$i=1;($x+$y)/$i|0;$i*=10)$d+=$c=$x/$i%10+$y/$i%10+$c>9;echo$d;

-2 Bytes remove |0ในกรณีนี้ลูปจะทำงานจนกว่า$iจะเป็นINF

กรณีทดสอบ

Braingolf , 20 ไบต์

VR{.M}d<d&+v+d&+c-9/

ลองออนไลน์!

ใช้วิธีการเดียวกันกับคนอื่น ๆ

ฉันสามารถบันทึกไบต์หรือ 2 ได้ฉันมีความสุขุมในการอนุญาตให้dใช้ตัวแก้ไขโลภแล้วฉันจะแทนที่d<dด้วย&dอาได้ดีในครั้งต่อไป

คำอธิบาย

VR{.M}d<d&+v+d&+c-9/  Implicit input from commandline args
VR                    Create stack2 and return to stack1
  {..}                Foreach loop, runs on each item in stack1
   .M                 Duplicate and move duplicate to stack2
      d<d             Split both items on stack into digits
         &+           Sum entire stack
           v+         Switch to stack2 and sum last 2 items on stack
             d&+      Split result into digits and sum all digits
                c     Collapse stack2 into stack1
                 -    Subtract last item from 2nd to last
                  9/  Divide by 9
                      Implicit output of last item on stack