Revision db1bcfe8 hn1.hs
| b/hn1.hs | ||
|---|---|---|
| 145 | 145 |
hPutStrLn stderr "Error: this program doesn't take any arguments." |
| 146 | 146 |
exitWith $ ExitFailure 1 |
| 147 | 147 |
|
| 148 |
(nl, il, csf, ktn, kti) <- CLI.loadExternalData opts
|
|
| 148 |
(nl, il, csf, _, _) <- CLI.loadExternalData opts
|
|
| 149 | 149 |
|
| 150 | 150 |
printf "Loaded %d nodes, %d instances\n" |
| 151 | 151 |
(Container.size nl) |
| ... | ... | |
| 197 | 197 |
(Cluster.printStats ns) |
| 198 | 198 |
|
| 199 | 199 |
printf "Solution (delta=%d):\n" $! min_d |
| 200 |
let (sol_strs, cmd_strs) = Cluster.printSolution il ktn kti solution
|
|
| 200 |
let (sol_strs, cmd_strs) = Cluster.printSolution ns il solution
|
|
| 201 | 201 |
putStr $ unlines $ sol_strs |
| 202 | 202 |
when (optShowCmds opts) $ |
| 203 | 203 |
do |
Also available in: Unified diff