From 653bd448d12db06a2de15e5d06d786bb31f6436c Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 23 Mar 2007 16:08:59 +0100
Subject: [PATCH 1/1] draw bar graph for input values

Written as one-liner to visualise output from uniq -c (i.e. git history).
---
 graph | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100755 graph

diff --git a/graph b/graph
new file mode 100755
index 0000000..fbc1248
--- /dev/null
+++ b/graph
@@ -0,0 +1,6 @@
+#!/usr/bin/perl -l
+use List::Util 'max';
+chomp for my @r = <>;
+my $len = 1 + max map length, @r;
+my $size = (80 - $len) / max @r;
+print $_, ' 'x($len-length), '#'x($_*$size) for @r;
-- 
2.30.0