Nп/п : 39 из 100
 От   : Marcel Hendrix                      2:5075/128        27 сен 23 10:55:56
 К    : Marcel Hendrix                                        27 сен 23 20:59:02
 Тема : Re: Simple Forth programs
----------------------------------------------------------------------------------
                                                                                 
@MSGID:
<dbfca034-8ca9-4a9b-b563-3fa9da176386n@googlegroups.com> cb6436b3
@REPLY:
<55f30e3c-a6fe-428c-a95f-02bacf08c1een@googlegroups.com> f4e090e7
@REPLYADDR Marcel Hendrix <mhx@iae.nl>
@REPLYTO 2:5075/128 Marcel Hendrix
@CHRS: CP866 2
@RFC: 1 0
@RFC-References:
<55f30e3c-a6fe-428c-a95f-02bacf08c1een@googlegroups.com>
@RFC-Message-ID:
<dbfca034-8ca9-4a9b-b563-3fa9da176386n@googlegroups.com>
@TZUTC: -0700
@PID: G2/1.0
@TID: FIDOGATE-5.12-ge4e8b94
\\ NAME: kroA100, 100-city problem A (Krolak/Felts/Nelson)
\\ Best distance is 21282

#100 TO #CITIES

distance{{ #CITIES #CITIES }}malloc

node{{ #CITIES 2 }}FREAD
 1380  939
 2848   96
 3510 1671
  457  334
 3888  666
  984  965
 2721 1482
 1286  525
 2716 1432
  738 1325
 1251 1832
 2728 1698
 3815 169
 3683 1533
 1247 1945
  123  862
 1234 1946
  252 1240
  611  673
 2576 1676
  928 1700
   53  857
 1807 1711
  274 1420
 2574  946
  178   24
 2678 1825
 1795  962
 3384 1498
 3520 1079
 1256   61
 1424 1728
 3913  192
 3085 1528
 2573 1969
  463 1670
 3875  598
  298 1513
 3479  821
 2542  236
 3955 1743
 1323  280
 3447 1830
 2936  337
 1621 1830
 3373 1646
 1393 1368
 3874 1318
  938  955
 3022  474
 2482 1183
 3854  923
  376  825
 2519  135
 2945 1622
  953  268
 2628 1479
 2097  981
  890 1846
 2139 1806
 2421 1007
 2290 1810
 1115 1052
 2588  302
  327  265
  241  341
 1917  687
 2991  792
 2573  599
   19  674
 3911 1673
  872 1559
 2863  558
  929 1766
  839  620
 3893  102
 2178 1619
 3822  899
  378 1048
 1178  100
 2599  901
 3416  143
 2961 1605
  611 1384
 3113  885
 2597 1830
 2586 1286
  161  906
 1429  134
  742 1025
 1625 1651
 1187  706
 1787 1009
   22  987
 3640   43
 3756  882
  776  392
 1724 1642
  198 1810
 3950 1558

BUILD-DISTANCE

\\ EOF

Result:

FORTH> ANTS
DECAY_FACTOR 300 m
TWEAK        1
#ANTS        30
#ITERS       70
Best value: 28.556472 K, 0.123 seconds elapsed.
Best value: 27.925072 K, 0.124 seconds elapsed.
Best value: 27.550012 K, 0.124 seconds elapsed.
Best value: 29.279056 K, 0.124 seconds elapsed.
Best tour:
  75 32 12 36 4 51 77 95 47 99 70 40 37 23 17 78 52 87 15
21 93 65 64 3 25 ...
  69 41 88 30 79 55 96 74 18 89 48 5 62 0 57 66 27 92 50 60
24 80 68 63 39 ...
  53 1 43 49 72 67 84 29 38 28 33 54 82 11 6 8 56 19 26 85
34 61 59 22 97 ...
  90 44 10 16 14 58 73 20 71 9 83 98 35 31 46 13 2 42 45 86
81 94 7 91 76 ok
FORTH>
--- G2/1.0
 * Origin: usenet.network (2:5075/128)
SEEN-BY: 5001/100 5005/49 5015/255 5019/40 5020/715
848 1042 4441 12000
SEEN-BY: 5030/49 1081 5058/104 5075/128
@PATH: 5075/128 5020/1042 4441



   GoldED+ VK   │                                                 │   09:55:30    
                                                                                
В этой области больше нет сообщений.

Остаться здесь
Перейти к списку сообщений
Перейти к списку эх