태스크

두 개의 양의 정수가 주어지면 밑 10에서 더하기에 함께 더하기 위해 필요한 캐리 수를 출력하십시오.

예

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

3 개의 운반이 필요합니다.

 ¹
 348
+ 91
----
 439

한 번의 운반이 필요합니다.

테스트 케이스

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

채점

이것은 code-golf 입니다. 바이트 단위의 최단 답변이 이깁니다. 표준 허점이 적용됩니다.

매스 매 티카, 46 39 바이트

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

입력

[348,51]

JungHwan에서 -7 바이트

자바 스크립트 (ES6), 50 바이트

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 바이트

Jenny_mathy의 수학 답변 을 포팅하여 -1 바이트 .
더 나은 골프를 통해 -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

정수 쌍을 취하고 캐리 수를 정수로 리턴하는 모나드 링크.

그래도 더 짧은 방법이 있습니다! 있었다!

온라인으로 사용해보십시오! 또는 테스트 스위트를 참조하십시오.

방법

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

파이썬 , 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)

슬프게도 float 정밀도 문제가 발생합니다.

자바 스크립트 (ES6), 53 45 바이트

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

별도의 수행 할 작업을 추가하여 1 바이트를 절약했습니다. @xnor의 캐리 검사를 적절히 적용하여 7 바이트를 절약했습니다. 나는 또한 더 우아한 45 바이트 버전을 가지고 있었지만 부동 소수점 부정확성으로 고통받습니다. 정확한 십진 산술로 언어로 번역하면 훌륭하게 작동합니다.

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

파이썬 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 바이트 제거이 |0경우 루프 $i는INF

테스트 사례

Braingolf , 20 바이트

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

온라인으로 사용해보십시오!

다른 사람과 동일한 방법을 사용합니다.

바이트를 저장하거나이 내가 허용하는 선견지명이 있었다 했어 수 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