|
(when (= 7 (truncate-remainder i 8))
(newline))))
(displaylet ((x (vector-ref vec 0)))
(when (< x 10)
(display " "))
(display x)))
(define kT 1)
k T E(s)
-----------------------------
0 1.0 388422.5815571361
100000 0.9 201185.4816928073
200000 0.8 177171.9802670817
300000 0.7 163156.9170366104
400000 0.6 157145.8877507621
500000 0.5 138130.8335788759
600000 0.4 128115.7624534219
700000 0.3 111112.5071927113
800000 0.2 104105.4852837820
900000 0.1 102103.2426489949
1000000 0.0 102103.6502889949
Final path:
0 -> 10 1 -> 20 2 -> 21 3 -> 22 4 -> 32 6 -> 31 7 -> 30 8 ->
40 9 -> 5019 -> 6229 -> 5239 -> 5338 -> 6337 -> 7347 -> 7248 ->
8249 -> 9258 -> 9159 -> 9069 -> 8079 -> 8189 -> 7199 -> 7098 ->
6097 -> 6196 -> 5195 -> 4194 -> 4284 -> 4383 -> 3393 -> 3492 ->
3582 -> 4572 -> 4462 -> 5471 -> 6481 -> 6591 -> 6690 -> 7680 ->
7770 -> 6760 -> 5761 -> 5850 -> 5940 -> 6941 -> 6851 -> 7852 ->
7963 -> 8973 -> 9974 -> 9875 -> 8885 -> 8786 -> 9776 -> 9677 ->
8687 -> 8588 -> 9578 -> 9468 -> 9367 -> 8357 -> 8456 -> 7466 ->
7565 -> 5564 -> 5655 -> 4645 -> 3646 -> 2636 -> 2735 -> 3725 ->
4726 -> 4827 -> 4928 -> 3918 -> 3817 -> 2816 -> 2915 -> 19 5 ->
914 -> 813 -> 1823 -> 1724 -> 734 -> 644 -> 1654 -> 1553 ->
2543 -> 2433 -> 2342 -> 1332 -> 1431 -> 530 -> 420 -> 321 ->
222 -> 12 -> 11 -> 110 -> 0
Final E(s): 102103.6502889949
</pre>
=={{header|Sidef}}==
|