#! /usr/bin/tclsh
#
-# $Id: elite-salesman,v 1.1 2003/03/07 00:45:51 mdw Exp $
+# $Id: elite-salesman,v 1.2 2003/03/10 23:37:49 mdw Exp $
package require "elite" "1.0.1"
package require "vector" "1.0.0"
set p [lindex $ww 0]
} else {
set p [parse-planet-spec $g [lindex $argv 1]]
- if {[string equal $g ""]} {
- puts stderr "$argv0: bad planet spec `$p'"
+ if {[string equal $p ""]} {
+ puts stderr "$argv0: bad planet spec `[lindex $argv 1]'"
exit 1
}
if {![in-galaxy-p $g $p]} {
set j $index($ss)
$av set $i $j [eval $weight [list $s $ss]]
}
+ $av set $i $i 0
}
destructure {lv pv} [graph-shortest-path $av]
set i $index($p)