distinguish median value

Greater number in case of even lines.

diff --git a/graph b/graph
index 36614cd7f8088263375395e1dcfa902ad4a49daa..40eccb15a4144b73e6b99d86b4e7b27fb4e6ba40 100755 (executable)
--- a/graph
+++ b/graph
@@ -18,6 +18,7 @@ for my $nr (0 .. $#lines) {
        my $color =
                $val == $order[0] ? 32 : # max
                $val == $order[-1] ? 31 : # min
+               $val == $order[$#order >> 1] ? 1 : # median
                90;
        printf "\e[%sm", $color if $color;
        printf "%*s", $lenval, $val;