Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re^12: Travelling problem (Anyone better 86850?)

by BrowserUk (Pope)
on Dec 28, 2013 at 01:43 UTC ( #1068571=note: print w/ replies, xml ) Need Help??


in reply to Re^11: Travelling problem (Anyone better 86850?)
in thread Travelling problem

successfully completed the restricted branching based on the shortest two or three next available edges

My threaded C version has now completed restricted branching at shortest 2,3,4,5,6,7 available edges and the best it found are:

2 - 134842 1s 14e5 perms. 3 - 114847 23s 30e6 perms. 4 - 102428 4m .5e9 perms. 5 - 99505 15m 5e9 perms. 6 - 99056 1h 53m 30e9 perms. 7 - 92705 4h 7m 69e9 perms.

Note: The numbers are provisional in as much as I have repeated them to check they are repeatable; given the possibility of non-determinacy due to threading.

I'll leave it running overnight on 8.


With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.


Comment on Re^12: Travelling problem (Anyone better 86850?)
Download Code
Re^13: Travelling problem (Anyone better 86850?)
by hdb (Prior) on Dec 28, 2013 at 07:41 UTC

    My Perl code does find 84860 when restricting to the 2 or 3 shortest edges, so something seems to be wrong with your code...

      Hm. If we sort the edges of the OP data

      [ [[ 0, 0],*[ 3812, 1], [ 3267, 20], [ 5015, 5], [ 5230, 6], [ +5409, 16], [ 6170, 11], [ 6812, 12], [ 7575, 10], [ 8030, 15], [ 8619 +, 3], [ 9487, 13], [ 9615, 7], [10624, 8], [11078, 23], [11223, 22 +], [12822, 18], [12882, 21], [13346, 9], [13902, 2], [15811, 4], [ +17136, 19], [17959, 17], [18135, 14]], [[ 0, 1],*[ 3764, 10], [ 3812, 0], [ 4519, 6], [ 5154, 15], [ +6668, 11], [ 7056, 20], [ 7266, 23], [ 8057, 5], [ 8276, 16], [ 8761 +, 7], [ 9367, 18], [ 9698, 21], [10603, 12], [11117, 13], [11527, 2 +], [12431, 3], [12569, 9], [13603, 22], [14398, 8], [14805, 14], [ +14840, 19], [15446, 4], [18175, 17]], [[ 0, 2],*[ 3236, 18], [ 3457, 19], [ 4611, 7], [ 6381, 15], [ +6655, 23], [ 6859, 14], [ 7602, 17], [ 8226, 11], [ 8675, 6], [ 8798 +, 10], [ 8830, 21], [10220, 4], [11223, 16], [11527, 1], [11970, 9 +], [12993, 8], [13638, 3], [13902, 0], [14535, 20], [14748, 22], [ +15087, 12], [16591, 13], [18405, 5]], [[ 0, 3], [ 1926, 12],*[ 2157, 8], [ 5402, 20], [ 5555, 5], [ +5737, 16], [ 5765, 22], [ 7111, 13], [ 8619, 0], [ 9378, 17], [ 9609 +, 11], [ 9965, 4], [10917, 9], [11256, 6], [11549, 7], [11899, 19 +], [12431, 1], [12565, 14], [13638, 2], [14906, 15], [15921, 21], [ +16194, 10], [16868, 18], [19675, 23]], [[ 0, 4], [ 2940, 9],*[ 3517, 14], [ 3627, 17], [ 5155, 22], [ +6374, 13], [ 6475, 21], [ 7077, 19], [ 7873, 8], [ 9965, 3], [10220 +, 2], [10235, 23], [10307, 18], [11057, 12], [11122, 5], [13119, 10 +], [14478, 20], [14599, 7], [14973, 15], [15446, 1], [15565, 16], [ +15811, 0], [17793, 11], [18683, 6]], [[ 0, 5],*[ 3811, 12], [ 3881, 20], [ 4858, 13], [ 5015, 0], [ +5555, 3], [ 6210, 22], [ 6744, 8], [ 7186, 16], [ 8057, 1], [ 9617 +, 9], [10109, 6], [10270, 11], [11122, 4], [11348, 10], [12658, 21 +], [12975, 15], [13212, 17], [13856, 7], [14138, 23], [14594, 14], [ +17106, 19], [17301, 18], [18405, 2]], [[ 0, 6],*[ 2299, 11], [ 3741, 15], [ 4519, 1], [ 4584, 7], [ +5230, 0], [ 5549, 16], [ 6018, 10], [ 6865, 20], [ 8377, 18], [ 8600 +, 23], [ 8675, 2], [10109, 5], [10267, 12], [11256, 3], [11981, 19 +], [12543, 21], [13284, 8], [14709, 13], [15205, 14], [15863, 17], [ +16177, 22], [16923, 9], [18683, 4]], [[ 0, 7], [ 3619, 11],*[ 4584, 6], [ 4611, 2], [ 4627, 15], [ +6102, 18], [ 6948, 16], [ 7523, 19], [ 8240, 10], [ 8550, 23], [ 8761 +, 1], [ 9615, 0], [ 9992, 20], [11282, 17], [11444, 14], [11549, 3 +], [11888, 12], [12321, 21], [12503, 8], [13856, 5], [14599, 4], [ +16548, 9], [16782, 22], [18524, 13]], [[ 0, 8], [ 2157, 3], [ 3813, 12],*[ 4374, 22], [ 6447, 13], [ +6744, 5], [ 7340, 17], [ 7492, 20], [ 7735, 16], [ 7873, 4], [ 9231 +, 9], [10421, 19], [10427, 14], [10624, 0], [11405, 11], [12503, 7 +], [12993, 2], [13284, 6], [14151, 21], [14398, 1], [15982, 18], [ +16699, 15], [18070, 10], [18092, 23]], [[ 0, 9],*[ 2940, 4], [ 4874, 13], [ 5008, 21], [ 5170, 22], [ +5269, 14], [ 6543, 17], [ 9146, 23], [ 9231, 8], [ 9458, 19], [ 9617 +, 5], [10709, 18], [10917, 3], [11052, 10], [11199, 12], [11970, 2 +], [12569, 1], [13346, 0], [13488, 20], [14093, 15], [16358, 16], [ +16548, 7], [16923, 6], [19220, 11]], [[ 0, 10], [ 3508, 23],*[ 3614, 15], [ 3764, 1], [ 5954, 18], [ +6018, 6], [ 6649, 21], [ 7575, 0], [ 8220, 11], [ 8240, 7], [ 8798 +, 2], [10801, 20], [11052, 9], [11186, 14], [11306, 16], [11348, 5 +], [11533, 19], [12490, 13], [13119, 4], [14354, 12], [14452, 17], [ +14987, 22], [16194, 3], [18070, 8]], [[ 0, 11], [ 2299, 6], [ 3619, 7],*[ 3975, 16], [ 5330, 15], [ +6170, 0], [ 6469, 20], [ 6668, 1], [ 8220, 10], [ 8226, 2], [ 9100 +, 18], [ 9124, 12], [ 9609, 3], [10270, 5], [10326, 23], [10994, 19 +], [11405, 8], [14165, 17], [14453, 21], [15059, 14], [15115, 13], [ +15268, 22], [17793, 4], [19220, 9]], [[ 0, 12],*[ 1926, 3], [ 3728, 20], [ 3811, 5], [ 3813, 8], [ +5168, 16], [ 6168, 22], [ 6645, 13], [ 6812, 0], [ 9124, 11], [10267 +, 6], [10603, 1], [11057, 4], [11153, 17], [11199, 9], [11888, 7 +], [13808, 19], [13999, 15], [14126, 14], [14354, 10], [15087, 2], [ +15782, 21], [17749, 23], [17968, 18]], [[ 0, 13], [ 2621, 22], [ 4858, 5],*[ 4874, 9], [ 6374, 4], [ +6447, 8], [ 6645, 12], [ 7111, 3], [ 8652, 20], [ 9157, 21], [ 9288 +, 17], [ 9487, 0], [ 9754, 14], [11117, 1], [11588, 16], [12490, 10 +], [12782, 23], [13331, 19], [14709, 6], [15115, 11], [15400, 18], [ +15942, 15], [16591, 2], [18524, 7]], [[ 0, 14],*[ 3379, 17], [ 3517, 4], [ 4250, 19], [ 5269, 9], [ +5311, 21], [ 6859, 2], [ 6883, 18], [ 7729, 23], [ 8643, 22], [ 9754 +, 13], [10427, 8], [11186, 10], [11444, 7], [11725, 15], [12565, 3 +], [14126, 12], [14594, 5], [14805, 1], [15059, 11], [15205, 6], [ +16484, 16], [17835, 20], [18135, 0]], [[ 0, 15], [ 3614, 10], [ 3741, 6],*[ 4627, 7], [ 4874, 18], [ +5003, 23], [ 5154, 1], [ 5330, 11], [ 6381, 2], [ 8030, 0], [ 9122 +, 21], [ 9173, 16], [ 9780, 19], [10451, 20], [11725, 14], [12975, 5 +], [13841, 17], [13999, 12], [14093, 9], [14906, 3], [14973, 4], [ +15942, 13], [16699, 8], [18555, 22]], [[ 0, 16],*[ 3450, 20], [ 3975, 11], [ 5168, 12], [ 5409, 0], [ +5549, 6], [ 5737, 3], [ 6948, 7], [ 7186, 5], [ 7735, 8], [ 8276 +, 1], [ 9173, 15], [11223, 2], [11293, 22], [11306, 10], [11588, 13 +], [12642, 19], [12955, 18], [13413, 17], [14142, 23], [15565, 4], [ +16358, 9], [16484, 14], [17931, 21]], [[ 0, 17], [ 3379, 14], [ 3627, 4],*[ 4145, 19], [ 6543, 9], [ +7147, 22], [ 7340, 8], [ 7602, 2], [ 8581, 21], [ 9181, 18], [ 9288 +, 13], [ 9378, 3], [10945, 23], [11153, 12], [11282, 7], [13212, 5 +], [13413, 16], [13841, 15], [14165, 11], [14452, 10], [14775, 20], [ +15863, 6], [17959, 0], [18175, 1]], [[ 0, 18], [ 3236, 2], [ 3419, 23], [ 4874, 15], [ 5593, 19], [ +5954, 10], [ 6102, 7],*[ 6278, 21], [ 6883, 14], [ 8377, 6], [ 9100 +, 11], [ 9181, 17], [ 9367, 1], [10307, 4], [10709, 9], [12822, 0 +], [12955, 16], [15242, 20], [15400, 13], [15447, 22], [15982, 8], [ +16868, 3], [17301, 5], [17968, 12]], [[ 0, 19],*[ 3457, 2], [ 4145, 17], [ 4250, 14], [ 5593, 18], [ +7077, 4], [ 7523, 7], [ 8453, 23], [ 8478, 21], [ 9458, 9], [ 9780 +, 15], [10421, 8], [10994, 11], [11291, 22], [11533, 10], [11899, 3 +], [11981, 6], [12642, 16], [13331, 13], [13808, 12], [14840, 1], [ +15914, 20], [17106, 5], [17136, 0]], [[ 0, 20], [ 3267, 0], [ 3450, 16], [ 3728, 12],*[ 3881, 5], [ +5402, 3], [ 6469, 11], [ 6865, 6], [ 7056, 1], [ 7492, 8], [ 8652 +, 13], [ 9326, 22], [ 9992, 7], [10451, 15], [10801, 10], [13488, 9 +], [14308, 23], [14478, 4], [14535, 2], [14775, 17], [15242, 18], [ +15624, 21], [15914, 19], [17835, 14]], [[ 0, 21],*[ 4139, 23], [ 5008, 9], [ 5311, 14], [ 6278, 18], [ +6475, 4], [ 6649, 10], [ 8478, 19], [ 8581, 17], [ 8830, 2], [ 9122 +, 15], [ 9157, 13], [ 9698, 1], [10157, 22], [12321, 7], [12543, 6 +], [12658, 5], [12882, 0], [14151, 8], [14453, 11], [15624, 20], [ +15782, 12], [15921, 3], [17931, 16]], [[ 0, 22],*[ 2621, 13], [ 4374, 8], [ 5155, 4], [ 5170, 9], [ +5765, 3], [ 6168, 12], [ 6210, 5], [ 7147, 17], [ 8643, 14], [ 9326 +, 20], [10157, 21], [11223, 0], [11291, 19], [11293, 16], [13603, 1 +], [14265, 23], [14748, 2], [14987, 10], [15268, 11], [15447, 18], [ +16177, 6], [16782, 7], [18555, 15]], [[ 0, 23], [ 3419, 18], [ 3508, 10], [ 4139, 21], [ 5003, 15], [ +6655, 2], [ 7266, 1], [ 7729, 14], [ 8453, 19], [ 8550, 7], [ 8600 +, 6], [ 9146, 9], [10235, 4], [10326, 11], [10945, 17], [11078, 0 +], [12782, 13], [14138, 5], [14142, 16], [14265, 22], [14308, 20], [ +17749, 12], [18092, 8], [19675, 3]], ]

      And consider the values for 84860:

      84860 [ 0 1 10 15 7 6 11 16 20 5 12 3 8 22 13 9 4 14 17 19 2 18 21 23 +]

      We find that the 18-21 edge is ranked 8th.


      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
        The n shortest remaining edges¹!

        You don't wanna visit a node again you've already seen. So it's not 8th cause the previous ones aren't possible anymore.

        - marks already excluded nodes

        ! marks target node

        84860 [ 0 1 10 15 7 6 11 16 20 5 12 3 8 22 13 9 4 14 17 19 2 18 21 23 +] [ - [ 0, 18], - [ 3236, 2], ! [ 3419, 23], - [ 4874, 15], - [ 5593, 19], - [ 5954, 10], - [ 6102, 7], * [ 6278, 21], ... [ 6883, 14], [ 8377, 6], [ 9100, 11], [ 9181, 17], [ 9367, 1], [103 +07, 4], [10709, 9], [12822, 0], [12955, 16], [15242, 20], [15400, +13], [15447, 22], [15982, 8], [16868, 3], [17301, 5], [17968, 12] ],

        So it's effectively the shortest remaining possibility.

        Cheers Rolf

        ( addicted to the Perl Programming Language)

        ¹) successively take the shortest edge to a yet unvisited node

Re^13: Travelling problem (Anyone better 86850?)
by LanX (Canon) on Dec 28, 2013 at 07:41 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1068571]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (4)
As of 2014-12-22 06:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (111 votes), past polls