 |
(ลักไก่โดยใช้ Mathematica :P )
จากข้อกำหนด (1) กับ (2) + กับ N เป็นจำนวนที่เล็กที่สุด
ผมทดลองหา N โดยให้เริ่มเลขเล็กที่สุดก็คือมีเลขสองตัวหน้าสุดเป็น 1 กับ 0
ดังนั้นเลขแปดตัวที่เหลือก็มาจากการเรียงสับเปลี่ยน 9,8,7,6,5,4,3,2
(*a เก็บตัวเลขที่เป็นไปได้ทั้งหมด*)
a = FromDigits@({1, 0}~Join~#) & /@
Permutations[{ 9,8,7,6,5,4,3,2}, {8}];
จากนั้นก็หาตัวเลขที่มีเงื่อนไขตรงกับข้อกำหนด (3)
b = Select[Catch[If[
Union[BinCounts[#, {0, 10, 1}] &@IntegerDigits[2 #]] == {1},
Throw[#]]] & /@ a, IntegerQ];
ดังนั้นตัวที่เล็กที่สุดคือ
Min@b
1023456789
| จากคุณ |
:
Santi
|
| เขียนเมื่อ |
:
16 ธ.ค. 54 03:00:46
A:58.8.5.173 X: TicketID:044871
|
|
|
|
|
จะหาจำนวนนับ N ที่เล็กที่สุด ที่มีคุณสมบัติครบทั้ง 3 ข้อต่อไปนี้ได้ยังไงครับ???
