gistfile1.txt

    bessarabov@air:~/tmp/delete_after_2017-02-03/go$ git log --author="bradfitz@golang.org" --date=iso | perl -nalE 'if (/^Date:\s+[\d-]{10}\s(\d{2})/) { say $1+0 }' | sort | uniq -c|perl -MList::Util=max -nalE '$h{$F[1]} = $F[0]; }{ $m = max values %h; say $m; foreach (0..23) { $h{$_} = 0 if not exists $h{$_} } foreach (sort {$a <=> $b } keys %h) { say sprintf "%02d - %4d %s", $_, $h{$_}, "*"x ($h{$_} / $m * 50); }'
    157
    00 -   34 **********
    01 -   23 *******
    02 -   14 ****
    03 -   16 *****
    04 -   21 ******
    05 -   19 ******
    06 -   13 ****
    07 -   38 ************
    08 -   66 *********************
    09 -  109 **********************************
    10 -  143 *********************************************
    11 -  157 **************************************************
    12 -  123 ***************************************
    13 -  127 ****************************************
    14 -  139 ********************************************
    15 -  143 *********************************************
    16 -  129 *****************************************
    17 -  111 ***********************************
    18 -  106 *********************************
    19 -   73 ***********************
    20 -   69 *********************
    21 -   56 *****************
    22 -   72 **********************
    23 -   45 **************
    bessarabov@air:~/tmp/delete_after_2017-02-03/go$