ゼリー、 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