Görev

İki pozitif tamsayı verildiğinde, 10 bazında uzun ilavelerde bir araya getirilmesi için gereken taşıyıcı sayısını verin.

Örnekler

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

Üç taşıyıcıya ihtiyaç var.

 ¹
 348
+ 91
----
 439

Bir taşıma gerekli.

testcases

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

puanlama

Bu kod golfü . Bayt cinsinden en kısa cevap kazanır. Standart boşluklar uygulanır.

Mathematica, 46 39 bayt

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

giriş

[348,51]

JungHwan'dan -7 bayt

JavaScript (ES6), 50 bayt

Ovs’un Çözümünden Çalınan Sabit

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

açıklama

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

Taşıma açıklaması

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 bayt

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

Çevrimiçi deneyin!

Jelly ,  13 12 11  9 bayt

Jenny_mathy'nin Matematik cevabını yansıtarak -1 byte .
-2 daha iyi golf oynayarak daha fazla byte: p

;SN$DFS:9

Test odasına bakın .

Nasıl?

;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 baytlık çözümüm ...

:⁵+
DUSç\>9S

Bir çift tamsayı alarak ve taşıyıcı sayısını bir tamsayı olarak döndüren monadik bir bağlantı.

Muhtemelen daha kısa bir yol var! Oradaydı!

Çevrimiçi deneyin! veya test odasına bakın .

Nasıl

:⁵+ · 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 bayt

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

Çevrimiçi deneyin!

Her yer değeri için m=1, 10, 100, ..., 10**99, o yer değerinde bir taşıma olup olmadığını kontrol eder. Taşma kontrolü a%m+b%m>=mkısaltıldı ~a%m<b%m.

Yüzen ve aşağı kayan daha güzel 45 baytlık bir değişkenab

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

ne yazık ki şamandıra hassas sorunları ile karşılaşıyor.

JavaScript (ES6), 53 45 byte

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

1'in yerine taşınması için ekstra hiçbir işe yaramaz yineleme ekleyerek 1 bayt kurtarıldı @ Xnor'ın taşıma denetimine göre 7 bayt kurtarıldı. Ayrıca daha zarif bir 45 baytlık versiyonum vardı ama kayar nokta yanlışlığım var; kesin bir ondalık aritmetik ile bir dile tercüme harika olurdu:

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

Python 2,55 bayt

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

Çevrimiçi deneyin!

05AB1E , 11 10 bayt

|DO‚€SOÆ9÷

Çevrimiçi deneyin!

Neim , 10 bayt

𝔸𝐣𝐬₁₂𝔻𝐬𝕊λ𝕍

Açıklama:

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

Dene!

Alternatif çözüm, ayrıca 10 bayt:

𝔸D𝐣𝐬S𝐬𝐬𝕊9𝕍

Açıklama:

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

Dene!

PHP> = 7.1, 81 Bayt

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 bayt kaldırma |0Bu durumda döngü kadar çalışır $iISINF

Test Kılıfları

Braingolf , 20 bayt

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

Çevrimiçi deneyin!

Diğer herkesle aynı yöntemi kullanır.

dAçgözlü değiştiricinin kullanılmasına izin vermeyi öngördüğümde bir bayt kurtarmış olabilirdim , veya bir dahaki sefere ah d<dile değiştirebilirdim &d.

açıklama

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