gistfile1.txt

    bessarabov@air:~/tmp/delete_after_2017-02-03/swift$ git log --author="clattner@apple.com" --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); }'
    00 -  324 **************************************
    01 -  185 *********************
    02 -   79 *********
    03 -   77 *********
    04 -  265 *******************************
    05 -  426 **************************************************
    06 -  313 ************************************
    07 -  113 *************
    08 -   20 **
    09 -   17 *
    10 -   21 **
    11 -   29 ***
    12 -   18 **
    13 -   31 ***
    14 -   72 ********
    15 -  108 ************
    16 -  209 ************************
    17 -  232 ***************************
    18 -  233 ***************************
    19 -  142 ****************
    20 -  271 *******************************
    21 -  373 *******************************************
    22 -  363 ******************************************
    23 -  337 ***************************************
    0 1s
    bessarabov@air:~/tmp/delete_after_2017-02-03/swift$