Revision 78694255 hbal.hs
| b/hbal.hs | ||
|---|---|---|
| 272 | 272 |
nmlen imlen [] oneline min_cv |
| 273 | 273 |
let (Cluster.Table fin_nl _ fin_cv fin_plc) = fin_tbl |
| 274 | 274 |
ord_plc = reverse fin_plc |
| 275 |
sol_msg = if null fin_plc |
|
| 276 |
then printf "No solution found\n" |
|
| 277 |
else (if verbose > 2 |
|
| 278 |
then printf "Final coefficients: overall %.8f, %s\n" |
|
| 279 |
fin_cv (Cluster.printStats fin_nl) |
|
| 280 |
else printf "Cluster score improved from %.8f to %.8f\n" |
|
| 281 |
ini_cv fin_cv |
|
| 282 |
)
|
|
| 275 |
sol_msg = (if null fin_plc
|
|
| 276 |
then printf "No solution found\n"
|
|
| 277 |
else (if verbose > 2
|
|
| 278 |
then printf "Final coefficients: overall %.8f, %s\n"
|
|
| 279 |
fin_cv (Cluster.printStats fin_nl)
|
|
| 280 |
else printf "Cluster score improved from %.8f to %.8f\n"
|
|
| 281 |
ini_cv fin_cv
|
|
| 282 |
))::String
|
|
| 283 | 283 |
|
| 284 | 284 |
unless oneline $ putStr sol_msg |
| 285 | 285 |
|
Also available in: Unified diff