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