 |
ลองใช้ Mathematica ช่วยครับ
SetSharedFunction[ParallelSow]
ParallelSow[expr_] := Sow[expr]
numbers = {"1", "3", "11", "13", "18", "27", "36", "82", "138", "427" , "999"};
ops = {"+", "-", "*", "/"}; (*เอาแค่บวกลบคูณหาร ครับ*)
opsls = Tuples[ops, 10];
StringJoin @@ Riffle[numbers, opsls[[#]]] & /@
Reap[ParallelTable[If[ToExpression[StringJoin @@ Riffle[numbers3, opsls[[i]]]] == 11, ParallelSow[i]], {i, 1, Length@opsls}]][[2, 1]]
{"1*3-11+13+18*27+36-82+138+427-999"}
| จากคุณ |
:
Santi
|
| เขียนเมื่อ |
:
25 ก.ค. 55 13:00:13
A:203.147.41.226 X: TicketID:044871
|
|
|
|
|
"1 3 11 13 18 27 36 82 138 427 999" นำเลข 11 ตัวใช้การคำนวณทางคณิตศาสตร์ให้ได้คำตอบคือ 11 เป็นไปได้หรือไม่
ความคิดเห็นที่ 1
