 |
ลองเขียนด้วย Mathematica ครับ
<< Combinatorica`
a = {1, 2, 3, 4, 5, 6, 7, 8, 9};
If[ Fold[Plus, 0, #] <= 100, Print[{0}~Join~#, " = ", Fold[Plus, 0, #]]] & /@ ({FromDigits[#]}~Join~Complement[a, #] & /@ KSubsets[a, 2]);
{0,12,3,4,5,6,7,8,9} = 54 {0,13,2,4,5,6,7,8,9} = 54 {0,14,2,3,5,6,7,8,9} = 54 {0,15,2,3,4,6,7,8,9} = 54 {0,16,2,3,4,5,7,8,9} = 54 {0,17,2,3,4,5,6,8,9} = 54 {0,18,2,3,4,5,6,7,9} = 54 {0,19,2,3,4,5,6,7,8} = 54 {0,23,1,4,5,6,7,8,9} = 63 {0,24,1,3,5,6,7,8,9} = 63 {0,25,1,3,4,6,7,8,9} = 63 {0,26,1,3,4,5,7,8,9} = 63 {0,27,1,3,4,5,6,8,9} = 63 {0,28,1,3,4,5,6,7,9} = 63 {0,29,1,3,4,5,6,7,8} = 63 {0,34,1,2,5,6,7,8,9} = 72 {0,35,1,2,4,6,7,8,9} = 72 {0,36,1,2,4,5,7,8,9} = 72 {0,37,1,2,4,5,6,8,9} = 72 {0,38,1,2,4,5,6,7,9} = 72 {0,39,1,2,4,5,6,7,8} = 72 {0,45,1,2,3,6,7,8,9} = 81 {0,46,1,2,3,5,7,8,9} = 81 {0,47,1,2,3,5,6,8,9} = 81 {0,48,1,2,3,5,6,7,9} = 81 {0,49,1,2,3,5,6,7,8} = 81 {0,56,1,2,3,4,7,8,9} = 90 {0,57,1,2,3,4,6,8,9} = 90 {0,58,1,2,3,4,6,7,9} = 90 {0,59,1,2,3,4,6,7,8} = 90 {0,67,1,2,3,4,5,8,9} = 99 {0,68,1,2,3,4,5,7,9} = 99 {0,69,1,2,3,4,5,7,8} = 99
จากคุณ |
:
Santi
|
เขียนเมื่อ |
:
29 ก.พ. 55 08:21:38
A:58.8.227.54 X: TicketID:044871
|
|
|
|
 |