From 9ad40376962f2aaf94cf25c452bb7a740ab80413 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 30 Sep 2009 12:23:05 -0500
Subject: script to add a series of numbers from stdin

---
 bin/sum | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100755 bin/sum

(limited to 'bin/sum')

diff --git a/bin/sum b/bin/sum
new file mode 100755
index 0000000..df7cd81
--- /dev/null
+++ b/bin/sum
@@ -0,0 +1,4 @@
+#!/usr/bin/env perl
+use 5.010;
+use List::Util 'sum';
+say sum map { s/^((?:\d|[-+\.])+).*/$1/; $_ } <>;
-- 
cgit v1.2.3-54-g00ecf