Nhiệm vụ của bạn là xác định xem hai số có dễ nhân lên không . Điều này có nghĩa là phép nhân dài 10 cơ sở của chúng không có bất kỳ sự mang (tập hợp lại) nào giữa các giá trị địa điểm, xem xét cả các bước nhân và bước bổ sung. Điều này xảy ra khi mỗi cặp chữ số được nhân cho 9 hoặc ít hơn và tổng của mỗi cột là 9 hoặc ít hơn.

Ví dụ, 331và 1021dễ nhân lên:

   331
x 1021
------
+  331
  662
   0
331
------
337951

Và điều tương tự cũng đúng (như mọi khi) nếu chúng ta nhân lên theo thứ tự khác:

  1021
x  331
------
+ 1021
 3063
3063
------
337951

Nhưng, 431và 1021không dễ để nhân lên, với các trường hợp xảy ra giữa các cột được chỉ định:

   431
x 1021
------
+  431
  862
   0
431
------
440051
 ^^^

Ngoài ra, 12và 16không dễ dàng để nhân lên vì việc mang lại xảy ra khi nhân lên 12 * 6để có được 72, mặc dù không có việc thực hiện nào xảy ra trong bước bổ sung.

  12
x 16
----
+ 72
 12
----
 192

Đầu vào: Hai số nguyên dương hoặc biểu diễn chuỗi của chúng. Bạn có thể cho rằng họ sẽ không tràn loại ngôn ngữ của bạn, cũng như sản phẩm của họ.

Đầu ra: Một giá trị nhất quán nếu chúng dễ nhân lên và một giá trị nhất quán khác nếu không.

Các trường hợp kiểm tra: 5 đầu tiên dễ dàng nhân lên, 5 cuối cùng thì không.

331 1021
1021 331
101 99
333 11111
243 201

431 1021
12 16
3 4
3333 1111
310 13

[(331, 1021), (1021, 331), (101, 99), (333, 11111), (243, 201)]
[(431, 1021), (12, 16), (3, 4), (3333, 1111), (310, 13)]

Bảng xếp hạng:

var QUESTION_ID=151130,OVERRIDE_USER=20260;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/151130/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>

Thạch , 7 byte

Dæc/>9Ẹ

Hãy thử trực tuyến!

Sử dụng tích chập (mà tôi đã đóng góp cho Jelly: D)

Làm thế nào nó hoạt động

Dæc/>9Ẹ
D        converts to decimal list
 æc      convolution
    >9Ẹ  checks if any number is greater than 9

JavaScript (ES6), 67 byte

Lấy đầu vào là 2 chuỗi trong cú pháp currying (a)(b). Trả về falsecho dễ hoặctrue không dễ.

a=>b=>[...a].some((x,i,a)=>[...b].some(y=>(a[-++i]=~~a[-i]+x*y)>9))

Các trường hợp thử nghiệm

let f =

a=>b=>[...a].some((x,i,a)=>[...b].some(y=>(a[-++i]=~~a[-i]+x*y)>9))

console.log('[Easy]')
console.log(f('331')('1021'))
console.log(f('1021')('331'))
console.log(f('101')('99'))
console.log(f('333')('11111'))
console.log(f('243')('201'))

console.log('[Not so easy]')
console.log(f('431')('1021'))
console.log(f('12')('16'))
console.log(f('3')('4'))
console.log(f('3333')('1111'))
console.log(f('310')('13'))

Alt. phiên bản (thiếu sót), 64 55 52 byte

Đã lưu 3 byte bằng cách lấy chuỗi, như được đề xuất bởi @Shaggy
Như được chỉ ra bởi @LeakyNun, phương pháp này sẽ thất bại trên một số số nguyên cụ thể lớn

Lấy đầu vào là 2 chuỗi trong cú pháp currying (a)(b). Trả về truecho dễ hoặcfalse không dễ.

a=>b=>/^.(0.)*$/.test((g=n=>[...n].join`0`)(a)*g(b))

Các trường hợp thử nghiệm

let f =

a=>b=>/^.(0.)*$/.test((g=n=>[...n].join`0`)(a)*g(b))

console.log('[Easy]')
console.log(f('331')('1021'))
console.log(f('1021')('331'))
console.log(f('101')('99'))
console.log(f('333')('11111'))
console.log(f('243')('201'))

console.log('[Not so easy]')
console.log(f('431')('1021'))
console.log(f('12')('16'))
console.log(f('3')('4'))
console.log(f('3333')('1111'))
console.log(f('310')('13'))

Làm sao?

Ý tưởng ở đây là phơi bày rõ ràng các carry bằng cách chèn các số 0 trước mỗi chữ số của mỗi yếu tố.

Ví dụ:

• 331 x 1021 trở thành 30301 x 1000201 , mang lại 30307090501 thay vì 337951 . Bằng cách thêm số 0 đứng đầu vào kết quả và nhóm tất cả các chữ số bằng 2, điều này có thể được viết là 03 03 07 09 05 01 . Tất cả các nhóm ít hơn 10 , có nghĩa là sẽ không có bất kỳ sự mang theo nào trong phép nhân tiêu chuẩn.

• 431 x 1021 trở thành 40602 x 1000201 , cung cấp 40309100501 và có thể được viết là 04 03 09 10 05 01 . Lần này, chúng ta có một số 10 cho thấy một phép nhân trong phép nhân tiêu chuẩn.

Alice , 30 byte

/Q.\d3-&+k!*?-n/ o @
\ic/*2&w~

Hãy thử trực tuyến!

Đầu ra 1cho dễ dàng và0 khó.

Các số dễ dàng nhân lên khi và chỉ khi tổng chữ số của sản phẩm bằng với tổng của chữ số.

/i    Input both numbers as a single string
.     Duplicate this string
/*    Coerce into two integers and multiply
2&w   Push return address twice (do the following three times)
~\Q     Swap the top two stack entries, then reverse the stack
        This produces a 3-cycle, and the first iteration coerces
        the original input string into two integers
c       Convert into individual characters
\d3-&+  Add all numbers on the stack except the bottom two (i.e., add all digits)
k     Return to pushed address (end loop)
      At this point, all three numbers are replaced by their digit sums
!*?   Multiply the digit sums of the original two numbers
-     Subtract the digit sum of the product
n     Logical negate: convert to 1 or 0
/o@   Output as character and terminate

MATL , 10 byte

,j!U]Y+9>a

Đầu ra 0cho dễ, 1cho khó.

Hãy thử trực tuyến! Hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình

,       % Do twice
  j     %   Input as a string
  !     %   Transpose into a column vector of characters
  U     %   Convert each character to number. Gives a numeric column vector
]       % End
Y+      % Convolution, full size
9>      % Greatear than 1? Element-wise
a       % Any: true if there is some true entry. Implicitly display

R , 135 110 109 86 byte

function(m,n)any(convolve(m%/%10^(nchar(m):1-1)%%10,n%/%10^(1:nchar(n)-1)%%10,,"o")>9)

Hãy thử trực tuyến!

Lấy đầu vào dưới dạng chuỗi.

Nó xấu nhưng nó hoạt động ™.

Bây giờ sử dụng cách tiếp cận tích chập, như trong câu trả lời của Leaky Nun , do đó, nó lấy đầu vào là số nguyên và trả vềTRUE cho các số khó nhân vàFALSE dễ dàng nhân số.

Tôi đã luôn gặp một số khó khăn trong việc chuyển các cách tiếp cận tích chập trong quá khứ, nhưng hôm nay tôi cuối cùng đã đọc tài liệu :

Lưu ý rằng định nghĩa thông thường về tích chập của hai chuỗi xvà yđược đưa ra bởiconvolve(x, rev(y), type = "o")

Mà chỉ là ngớ ngẩn. Vì vậy, trích xuất chữ số được đảo ngược nvà nó giải quyết thành một câu trả lời của Leaky Nun.

Python 2 , 88 byte

lambda n,m:any(sum(n/10**(k-j)%10*(m/10**j%10)for j in range(k+1))>9for k in range(n+m))

Lấy hai số nguyên là đầu vào và trả về False(dễ nhân) hoặc True(không).

Hãy thử trực tuyến! (quá chậm đối với một trong các trường hợp thử nghiệm)

JavaScript (Node.js) , 43 41 37 36 byte

Cảm ơn @ Dennis về ý tưởng sử dụng phép nội suy chuỗi trong câu trả lời này và tiết kiệm 4 byte!

Cảm ơn @ rjanJohansen cho -1!

a=>b=>eval(`0x${a}*0x${b}<0x${a*b}`)

Hãy thử trực tuyến!

Tất nhiên khi cơ sở đích nhỏ hơn cơ sở ban đầu (như trong câu trả lời Jelly của tôi, cơ sở là 2) < phải lật.

Ngôn ngữ Wolfram (Mathicala) , 75 66 65 56 byte

f:=#~FromDigits~x&
g:=Max@CoefficientList[f@#2f@#,x]<=9&

Hãy thử trực tuyến!

Nhận 2 chuỗi đầu vào

Giải trình:

f:=#~FromDigits~x&                      (* Turns the number to a polynomial
                                           with the digits as coefficients      *)
g:=Max@CoefficientList[f@#2f@#,x]<=9&   (* Polynomial multiplication, and check
                                           whether all coefficients are smaller
                                           than 10                              *)

-9 để thay đổi sử dụng chuỗi làm đầu vào

-1 để sử dụng toán tử infix

-9 Cảm ơn @MartinEnder cho Maxchức năng

Python 2 , 158 135 123 113 byte

^{-12 byte nhờ Leaky Nun -10 byte nhờ vào ovs}

a,b=input()
e=enumerate
l=[0,0]*len(a+b)
for i,x in e(a):
 for j,y in e(b):l[i-~j]+=int(x)*int(y)
print max(l)<10

Hãy thử trực tuyến! hoặc Thử tất cả các trường hợp thử nghiệm

Julia 0,6 , 30 byte

~x=any(conv(digits.(x)...).>9)

Hãy thử trực tuyến!

Đầu vào là một bộ số, đầu ra là trueđể nhân số khó và falsecho số dễ.

. là ứng dụng chức năng phần tử khôn ngoan.

...mở rộng tuple (danh sách các chữ số nguyên) thành hai đầu vào riêng biệt của convhàm.

Python 3 , 58 35 ₁₃ 40 39 byte

lambda n,m:eval(f'0x{n}*0x{m}<0x{n*m}')

Hình như tôi đã có ý tưởng này hai tiếng quá muộn .

Cảm ơn @ rjanJohansen vì đã chơi golf 1 byte!

Hãy thử trực tuyến!

SNOBOL4 (CSNOBOL4) , 268 264 247 246 243 131 byte

	DEFINE('D(A)')
	M =INPUT
	N =INPUT
	OUTPUT =EQ(D(M) * D(N),D(M * N)) 1	:(END)
D	A LEN(1) . X REM . A	:F(RETURN)
	D =D + X	:(D)
END

Hãy thử trực tuyến!

Cổng cách tiếp cận của Nitrodon . Tôi nghĩ rằng đây là lần đầu tiên tôi xác định hàm trong SNOBOL, Dvới tổng số.

	DEFINE('D(A)')					;* function definition
	M =INPUT					;* read input
	N =INPUT					;* read input
	OUTPUT =EQ(D(M) * D(N),D(M * N)) 1	:(END)	;* if D(M)*D(N)==D(M*N),
							;* print 1 else print nothing. Goto End
D	A LEN(1) . X REM . A	:F(RETURN)		;* function body
	D =D + X	:(D)				;* add X to D
END

phiên bản cũ, 243 byte:

	M =INPUT
	N =INPUT
	P =SIZE(M)
	Q =SIZE(N)
	G =ARRAY(P + Q)
Z	OUTPUT =LE(P)	:S(E)
	M LEN(P) LEN(1) . A
	J =Q
Y	GT(J)	:F(D)
	N LEN(J) LEN(1) . B
	W =I + J
	X =G<W> + A * B
	G<W> =LE(A * B,9) LE(X,9) X	:F(E)
	J =J - 1	:(Y)
D	P =P - 1	:(Z)
E
END

Hãy thử trực tuyến!

Đầu vào trên STDIN được phân tách bằng các dòng mới, xuất ra STDOUT: một dòng mới để dễ nhân lên và không có đầu ra nào để không dễ nhân lên.

Điều này sẽ không giành được bất kỳ giải thưởng nào nhưng nó trình bày một cách tiếp cận khác (tốt, thực sự đây là cách tiếp cận ngây thơ). Tôi không nghĩ rằng tôi có thể viết nó thành khối, nhưng SNOBOL đủ cứng để làm việc như vậy.

Vì nó lấy đầu vào là một chuỗi, nên chuỗi này sẽ hoạt động cho bất kỳ đầu vào nào có ít hơn 512 chữ số mỗi chuỗi; Tôi không chắc chắn 100% mức độ lớn ARRAYtrong SNOBOL có thể.

INPUT được đệm trong phiên bản SNOBOL này để có chiều rộng tối đa 1024 ký tự; tất cả các nhân vật khác sau đó bị mất. Dường như một ARRAY có thể khá lớn; tốt hơn 2048 tế bào cần thiết.

	M =INPUT				;*read input
	N =INPUT				;*read input
	P =SIZE(M)				;*P = number of M's digits, also iteration counter for outer loop
	Q =SIZE(N)				;*Q = number of N's digits
	G =ARRAY(P + Q)				;*G is an empty array of length P + Q
Z	GE(P)	:F(T)				;*if P<0, goto T (outer loop condition)
	M LEN(P) LEN(1) . A			;*A = P'th character of M
	J =Q					;*J is the iteration counter for inner loop
Y	GT(J)	:F(D)				;*if J<=0, goto D (inner loop condition)
	N LEN(J) LEN(1) . B			;*B = J'th character of N
	W =I + J				;*W=I+J, column number in multiplication
	X =G<W> + A * B				;*X=G[W]+A*B, temp variable for golfing
	G<W> =LE(A * B,9) LE(X,9) X	:F(END)	;*if A*B<=9 and X<=9, G[W]=X otherwise terminate with no output
	J =J - 1	:(Y)			;*decrement J, goto Y
D	P =P - 1	:(Z)			;*decrement P, goto Z
T	OUTPUT =				;*set output to ''; OUTPUT automatically prints a newline.
END

Than , 38 byte

≔Ｅ⁺θη⁰ζＦＬθＦＬη§≔ζ⁺ικ⁺§ζ⁺ικ×Ｉ§θιＩ§ηκ‹⌈ζχ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Xuất ra một- khi dễ dàng nhân lên. Giải trình:

≔Ｅ⁺θη⁰ζ

Khởi tạo z một mảng đủ lớn (tổng độ dài của đầu vào) của các số không.

ＦＬθＦＬη

Lặp lại các chỉ số của đầu vào qvàh .

§≔ζ⁺ικ⁺§ζ⁺ικ×Ｉ§θιＩ§ηκ

Thực hiện một bước của phép nhân dài.

‹⌈ζχ

Kiểm tra mang.

Pari / GP , 52 byte

f(a,b)=vecmax(Vec(Pol(digits(a))*Pol(digits(b))))<10

Hãy thử trực tuyến!

Haskell, 82 81 byte

q=map$read.pure
f a=any(>9).concat.scanr((.(0:)).zipWith(+).(<$>q a).(*))(0<$a).q

Các số a lấy dưới dạng chuỗi. Trả về Falsenếu số dễ nhân lên vàTrue ngược lại.

Hãy thử trực tuyến!

Tôi nghĩ nó đủ khác với câu trả lời của @ Laikoni . Làm thế nào nó hoạt động:

q                    -- helper function to turn a string into a list of digits

f a =                -- main function, first number is parameter 'a' 
      scanr    .q    -- fold the following function from the right (and collect
                     -- the intermediate results in a list) into the list of
                     -- digits of the second number
            0<$a     --   starting with as many 0s as there are digits in 'a'
                     -- the function is, translated to non-point free:
  \n c->zipWith(+)((*n)<$>q a)$0:c 
                     -- 'n': next digit of 'b'; 'c': value so far
        (*n)<$>a     --    multiplay each digit in 'a' with 'n'
        0:c          --    prepend a 0 to 'c'
        zipWith(+)   --    add both lists element wise
                     --    (this shifts out the last digit of 'c' in every step)
   concat            -- flatten the collected lists into a single list
 any(>9)             -- check if any number is >9

Haskell , 45 44 byte

Chỉnh sửa:

• -1 byte thay đổi ==thành <.

Tôi nghĩ về điều này trước khi nhìn vào các câu trả lời khác, sau đó phát hiện ra rằng người Alice đã sử dụng cùng một ý tưởng cơ bản. Dù sao thì việc đăng cũng vì nó ngắn hơn các câu trả lời của Haskell khác.

?lấy hai số nguyên và trả về a Bool. Sử dụng như 331?1021. Falsecó nghĩa là phép nhân dễ dàng.

a?b=s(a*b)<s a*s b
s=sum.map(read.pure).show

Hãy thử trực tuyến!

• slà một hàm tính tổng các chữ số của một số nguyên. ( read.purechuyển đổi một ký tự một chữ số thành một số nguyên.)
• Nếu một cặp số dễ nhân, tổng số chữ số của sản phẩm bằng với tổng của chữ số.
• Ngược lại, bất kỳ thực hiện nào trong quá trình nhân dài sẽ làm giảm tổng số chữ số của sản phẩm từ lý tưởng đó.

Hồng ngọc , 69 byte

->a,b{(0..a+b=~/$/).all?{|r|(0..r).sum{|w|a[w].to_i*b[r-w].to_i}<10}}

Hãy thử trực tuyến!

Haskell , 123 byte

import Data.List
r=read.pure
a%b|l<-transpose[reverse$map((*r d).r)b++(0<$e)|d:e<-scanr(:)""a]=all(<10)$concat l++map sum l

Hãy thử trực tuyến! Ví dụ sử dụng: "331" % "1021"sản lượng True.

Perl 5 , 100 + 2 ( -F) = 102 byte

push@a,[reverse@F]}{map{for$j(@{$a[0]}){$b[$i++].='+'.$_*$j}$i=++$c}@{$a[1]};map$\||=9>eval,@b;say$\

Hãy thử trực tuyến!

đầu ra sai cho dễ, đúng không dễ.

Thạch , 8 byte

;PDḄµṪ⁼P

Hãy thử trực tuyến!

Một cổng của câu trả lời Javascript của tôi . Không ngắn hơn Jelly hiện có câu trả lời vì Jelly có tích hợp mạnh mẽ tích hợp.

Lấy đầu vào là một danh sách của hai số. Trả lại 1cho dễ dàng,0 cho không dễ.

Giải trình:

;PDḄµṪ⁼P     Main link. Let input = [101, 99]
;P           Concatenate with product. Get [101, 99, 9999]
  D          Convert to decimal. Get [[1,0,1], [9,9], [9,9,9,9]]
   Ḅ         Convert from binary. Get [1 * 2^2 + 0 * 2^1 + 1 * 2^0, 
             9 * 2^1 + 9 * 2^0, 9 * 2^3 + 9 * 2^2 + 9 * 2^1 + 9 * 2^0]
             = [5, 27, 135]
    µ        With that value,
     Ṫ       Take the tail from that value. Get 135, have [5, 27] remain.
      ⁼      Check equality with...
       P       The product of the remaining numbers (5 and 17).

C (gcc) , 104 byte

Về cơ bản thực hiện phép nhân "bằng tay" thành r [] và đặt giá trị trả về nếu bất kỳ cột nào cao hơn 9, vì điều đó có nghĩa là việc thực hiện đã xảy ra.

Đáng ngạc nhiên, điều này ngắn hơn so với nỗ lực đầu tiên của tôi, lấy chuỗi làm đối số.

f(a,b){int*q,r[10]={0},*p=r,R=0,B;for(;a;a/=10)for(q=p++,B=b;B;B/=10)R|=(*q+++=a%10*(B%10))>9;return R;}

Hãy thử trực tuyến!