swift

git log --author="Chris Lattner" --date=iso-local | 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; 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 -   40 ***
01 -    5
02 -    6
03 -    6
04 -    8
05 -    2
06 -    9
07 -   61 *****
08 -  116 **********
09 -  243 *********************
10 -  245 *********************
11 -  247 *********************
12 -  161 **************
13 -  303 **************************
14 -  380 *********************************
15 -  345 ******************************
16 -  359 *******************************
17 -  376 *********************************
18 -  126 ***********
19 -   66 *****
20 -  170 **************
21 -  383 *********************************
22 -  567 **************************************************
23 -  312 ***************************