Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
    printf "%5d %5d %5.2f %5.2f %s\n", $toDo, $done, $adjusted, $ratio
+,
        $ratio > $adjusted ? 'Done' : 'Working';
}

Select or download this

10000  9500  0.95  0.95 Done
 1400  1389  0.94  0.99 Done
...
    5     4  0.76  0.80 Done
    2     1  0.75  0.50 Working
    1     0  0.75  0.00 Working