script to add a series of numbers from stdin

1 files changed, 4 insertions, 0 deletions

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/; $_ } <>;