งานของคุณคือการพิจารณาว่าตัวเลขสองตัวนั้นง่ายต่อการคูณหรือไม่ ซึ่งหมายความว่าการคูณยาว 10 ฐานของพวกเขาไม่มีการถือครอง (การจัดกลุ่มใหม่) ระหว่างค่าสถานที่โดยดูที่ขั้นตอนการคูณและขั้นตอนการบวก สิ่งนี้จะเกิดขึ้นเมื่อตัวเลขแต่ละคู่ถูกคูณให้ 9 หรือน้อยกว่าและผลรวมของแต่ละคอลัมน์คือ 9 หรือน้อยกว่า

ตัวอย่างเช่น331และ1021ง่ายต่อการคูณ:

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

และเหมือนกันคือจริง (เช่นเคย) ถ้าเราคูณในลำดับอื่น ๆ :

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

แต่431และ1021ไม่ใช่เรื่องง่ายที่จะคูณด้วยการดำเนินการเกิดขึ้นระหว่างคอลัมน์ที่ระบุ:

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

นอกจากนี้12และ16ไม่ใช่เรื่องง่ายที่จะคูณเพราะการพกพาเกิดขึ้นเมื่อคูณ12 * 6เพื่อรับ72แม้ว่าจะไม่มีการพกติดตัวในขั้นตอนการบวก

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

อินพุต:จำนวนเต็มบวกสองค่าหรือการแทนค่าสตริง คุณอาจคิดว่าพวกเขาจะไม่ล้นประเภทจำนวนเต็มของภาษาของคุณและจะไม่ผลิตภัณฑ์ของพวกเขา

เอาท์พุท:หนึ่งค่าที่สอดคล้องกันถ้าพวกเขาจะง่ายต่อการคูณและอีกมูลค่าที่สอดคล้องกันถ้าไม่

กรณีทดสอบ: 5 ตัวแรกนั้นง่ายต่อการคูณ 5 ตัวสุดท้ายไม่ใช่

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

ลีดเดอร์บอร์ด:

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>

เยลลี่ขนาด 7 ไบต์

Dæc/>9Ẹ

ลองออนไลน์!

ใช้การโน้มน้าวใจ (ซึ่งฉันสนับสนุนให้ Jelly: D)

มันทำงานอย่างไร

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

JavaScript (ES6), 67 ไบต์

จะเข้าเป็น 2 (a)(b)สายในไวยากรณ์ ผลตอบแทนที่falseง่ายหรือtrueไม่ง่าย

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

กรณีทดสอบ

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 รุ่น (มีข้อบกพร่อง), 64 55 52 ไบต์

บันทึก 3 ไบต์โดยการใช้สตริงตามที่แนะนำโดย @Shaggy
ตามที่ชี้ให้เห็นโดย @LeakyNun วิธีนี้จะล้มเหลวในจำนวนเต็มเฉพาะจำนวนมาก

จะเข้าเป็น 2 (a)(b)สายในไวยากรณ์ ผลตอบแทนที่trueง่ายหรือfalseไม่ง่าย

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

กรณีทดสอบ

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

อย่างไร?

ความคิดที่นี่คือการเปิดเผยการดำเนินการอย่างชัดเจนโดยการแทรกศูนย์ก่อนแต่ละหลักของแต่ละปัจจัย

ตัวอย่าง:

• 331 x 1021กลายเป็น30301 x 1000201ซึ่งจะช่วยให้30307090501แทน337951 โดยการเพิ่มศูนย์นำไปสู่ผลและการจัดกลุ่มตัวเลขทั้งหมด 2 นี้สามารถเขียนเป็น03 03 07 09 05 01 ทุกกลุ่มมีค่าน้อยกว่า10ซึ่งหมายความว่าจะไม่มีการพกพาใด ๆ ในการคูณมาตรฐาน

• 431 x 1021จะกลายเป็น40,301 x 1000201ซึ่งจะช่วยให้40309100501และสามารถเขียนเป็น04 03 09 10 05 01 เวลานี้เรามี10ซึ่งเผยให้เห็นการพกพาในการคูณมาตรฐาน

อลิซ 30 ไบต์

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

ลองออนไลน์!

เอาต์พุต1สำหรับง่ายและ0ยาก

ตัวเลขนั้นง่ายต่อการคูณหากว่าจำนวนรวมของผลิตภัณฑ์เท่ากับผลคูณของจำนวนหลัก

/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 ไบต์

,j!U]Y+9>a

เอาต์พุต0ให้ง่ายและ1ยาก

ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย

,       % 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 86 ไบต์

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

ลองออนไลน์!

รับอินพุตเป็นสตริง

มันน่าเกลียด แต่ก็ใช้งานได้

ตอนนี้ใช้วิธีการสนทนาเช่นเดียวกับในคำตอบของ Leaky Nunดังนั้นมันจึงป้อนข้อมูลเป็นจำนวนเต็มและส่งกลับTRUEสำหรับการคูณที่ยากต่อการคูณและFALSEง่ายต่อการคูณ

ฉันมักจะมีปัญหาในการพูดถึงวิธีการโน้มน้าวในอดีต แต่วันนี้ฉันอ่านเอกสารในที่สุด:

โปรดทราบว่าคำนิยามตามปกติของการบิดของสองลำดับxและyได้รับโดยconvolve(x, rev(y), type = "o")

ซึ่งมันช่างงี่เง่า ดังนั้นการสกัดหลักจะกลับด้านnและจะแก้ไขลงในพอร์ตของคำตอบของ Leaky Nun

Python 2 , 88 ไบต์

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

ใช้จำนวนเต็มสองจำนวนเป็นอินพุตและส่งคืนFalse(ง่ายต่อการคูณ) หรือTrue(ไม่ใช่)

ลองออนไลน์! (ช้าเกินไปสำหรับหนึ่งในกรณีทดสอบ)

JavaScript (Node.js) , 43 41 37 36 ไบต์

ขอบคุณ @ Dennisสำหรับความคิดในการใช้การแก้ไขสตริงในคำตอบนี้และบันทึก 4 ไบต์!

ขอบคุณ @ ØrjanJohansenสำหรับ -1!

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

ลองออนไลน์!

แน่นอนเมื่อฐานปลายทางนั้นต่ำกว่าฐานเดิม (เช่นในคำตอบ Jelly ของฉันฐานคือ 2) <ต้องพลิก

ภาษา Wolfram (Mathematica) , 75 66 65 56 ไบต์

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

ลองออนไลน์!

รับอินพุต 2 สตริง

คำอธิบาย:

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 สำหรับการเปลี่ยนการใช้สตริงเป็นอินพุต

-1 สำหรับการใช้ตัวดำเนินการมัด

-9 ขอบคุณ @MartinEnder สำหรับMaxฟังก์ชั่น

Python 2 , 158 135 123 113 ไบต์

^{-12 bytes ขอบคุณแม่ชี Leaky -10 bytes ขอบคุณ 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

ลองออนไลน์! หรือลองกรณีทดสอบทั้งหมด

Julia 0.6 , 30 ไบต์

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

ลองออนไลน์!

อินพุตเป็น tuple ของตัวเลขเอาต์พุตtrueสำหรับตัวเลขที่ยากต่อการคูณและfalseเพื่อให้ง่าย

. เป็นฟังก์ชั่นการใช้งานองค์ประกอบที่ชาญฉลาด

...ขยาย tuple (ของรายการตัวเลขจำนวนเต็ม) เป็นสองอินพุตแยกของconvฟังก์ชั่น

Python 3 , 58 35 ₁₃ 40 39 ไบต์

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

หน้าตาเหมือนฉันมีความคิดนี้สองชั่วโมงสายเกินไป

ขอบคุณ @ ØrjanJohansenสำหรับการเล่นกอล์ฟ 1 ไบต์!

ลองออนไลน์!

SNOBOL4 (CSNOBOL4) , 268 264 247 246 243 131 ไบต์

	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

ลองออนไลน์!

พอร์ตวิธีโดยNitrodon ฉันคิดว่านี่เป็นครั้งแรกที่ฉันเคยกำหนดฟังก์ชั่นใน SNOBOL Dสำหรับผลรวมหลัก

	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

รุ่นเก่า 243 ไบต์:

	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

ลองออนไลน์!

อินพุตบน STDIN คั่นด้วยบรรทัดใหม่เอาท์พุทไปยัง STDOUT: ขึ้นบรรทัดใหม่เดียวเพื่อให้ง่ายต่อการคูณและไม่มีเอาต์พุตสำหรับการคูณที่ไม่ง่าย

นี่จะไม่ชนะรางวัลใด ๆ แต่มันนำเสนอแนวทางอื่น (ดีจริงๆนี่คือแนวทางที่ไร้เดียงสา) ฉันไม่คิดว่าฉันจะเขียนสิ่งนี้ได้ใน cubix แต่ SNOBOL นั้นแข็งแกร่งพอที่จะทำงานด้วยเหมือนเดิม

เนื่องจากมันใช้อินพุตเป็นสตริงสิ่งนี้จะทำงานสำหรับอินพุตใด ๆ ที่มีน้อยกว่า 512 หลักแต่ละตัว ฉันไม่แน่ใจ 100% ว่าARRAYSNOBOL จะใหญ่ขนาดไหน

อินพุตถูกบัฟเฟอร์ใน SNOBOL เวอร์ชันนี้มีความกว้างสูงสุด 1024 อักขระ ตัวละครอื่น ๆ ทั้งหมดจะสูญหายไป ดูเหมือนว่า ARRAY อาจมีขนาดค่อนข้างใหญ่ ดีกว่าเซลล์ 2048 ที่จำเป็น

	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

ถ่านขนาด 38 ไบต์

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

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด เอาต์พุต a -เมื่อตัวเลขนั้นง่ายต่อการคูณ คำอธิบาย:

≔Ｅ⁺θη⁰ζ

กำหนดค่าเริ่มต้นzเป็นอาร์เรย์ขนาดใหญ่ (ผลรวมของความยาวของอินพุต) ที่มีค่าศูนย์

ＦＬθＦＬη

ห่วงกว่าดัชนีของปัจจัยการผลิตที่และqh

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

ดำเนินการหนึ่งขั้นตอนของการคูณแบบยาว

‹⌈ζχ

ตรวจสอบการพกพา

Pari / GP , 52 ไบต์

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

ลองออนไลน์!

Haskell, 82 81 ไบต์

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

ตัวเลขที่นำมาเป็นสตริง ส่งคืนFalseถ้าตัวเลขนั้นง่ายต่อการคูณและTrueอื่น ๆ

ลองออนไลน์!

ฉันคิดว่ามันเพียงพอที่แตกต่างจาก@ คำตอบของ มันทำงานอย่างไร:

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 ไบต์

แก้ไข:

• -1 ไบต์ที่เปลี่ยนแปลงไป==<

ฉันคิดถึงสิ่งนี้ก่อนที่จะดูคำตอบอื่น ๆ จากนั้นค้นพบว่าอลิซใช้แนวคิดพื้นฐานเดียวกัน การโพสต์ต่อไปเนื่องจากสั้นกว่าคำตอบของ Haskell อื่น ๆ

?Boolใช้เวลาสองจำนวนเต็มและผลตอบแทน 331?1021ใช้เป็น Falseหมายถึงการคูณนั้นง่าย

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

ลองออนไลน์!

• sคือฟังก์ชันที่คำนวณผลรวมของตัวเลขของจำนวนเต็ม ( read.pureแปลงอักขระหลักเดียวเป็นจำนวนเต็ม)
• หากคู่ของตัวเลขง่ายต่อการคูณผลรวมหลักของผลิตภัณฑ์จะเท่ากับผลคูณของจำนวนเงินหลัก
• ในทางกลับกันการพกพาใด ๆ ในระหว่างการคูณที่ยาวนานจะช่วยลดผลรวมหลักของผลิตภัณฑ์จากอุดมคตินั้น

Ruby , 69 ไบต์

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

ลองออนไลน์!

Haskell , 123 ไบต์

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

ลองออนไลน์! ตัวอย่างการใช้งาน: อัตราผลตอบแทน"331" % "1021"True

Perl 5 , 100 + 2 ( -F) = 102 ไบต์

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

ลองออนไลน์!

เอาต์พุตเป็นเท็จเพื่อความง่าย, เป็นจริงสำหรับไม่ใช่เรื่องง่าย

เยลลี่ขนาด 8 ไบต์

;PDḄµṪ⁼P

ลองออนไลน์!

พอร์ตจาวาสคริของฉันคำตอบ ไม่สั้นกว่าคำตอบของเยลลี่ที่มีอยู่เพราะเจลลี่มีการโน้มน้าวในตัว

รับอินพุตเป็นรายการของตัวเลขสองตัว ผลตอบแทน1สำหรับง่าย0ไม่ง่าย

คำอธิบาย:

;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 ไบต์

โดยทั่วไปทำการคูณ "ด้วยมือ" เป็น r [] และตั้งค่าส่งคืนหากคอลัมน์ใด ๆ ได้สูงกว่า 9 เนื่องจากนั่นหมายถึงการพกพาเกิดขึ้น

น่าแปลกที่นี่สั้นกว่าความพยายามครั้งแรกของฉันที่ใช้สตริงเป็นอาร์กิวเมนต์

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

ลองออนไลน์!