22 lines
525 B
Tcl
22 lines
525 B
Tcl
set COSTS {
|
|
W {A 16 B 16 C 13 D 22 E 17}
|
|
X {A 14 B 14 C 13 D 19 E 15}
|
|
Y {A 19 B 19 C 20 D 23 E 50}
|
|
Z {A 50 B 12 C 50 D 15 E 11}
|
|
}
|
|
set DEMAND {A 30 B 20 C 70 D 30 E 60}
|
|
set SUPPLY {W 50 X 60 Y 50 Z 50}
|
|
|
|
set RES [VAM $COSTS $DEMAND $SUPPLY]
|
|
|
|
puts \t[join [dict keys $DEMAND] \t]
|
|
set cost 0
|
|
foreach g [dict keys $SUPPLY] {
|
|
puts $g\t[join [lmap n [dict keys $DEMAND] {
|
|
set c [dict get $RES $g $n]
|
|
incr cost [expr {$c * [dict get $COSTS $g $n]}]
|
|
expr {$c ? $c : ""}
|
|
}] \t]
|
|
}
|
|
puts "\nTotal Cost = $cost"
|