diff options
Diffstat (limited to 'bin/.bin/sum')
-rwxr-xr-x | bin/.bin/sum | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/bin/.bin/sum b/bin/.bin/sum new file mode 100755 index 0000000..cf21bfd --- /dev/null +++ b/bin/.bin/sum @@ -0,0 +1,8 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.014; + +use List::Util 'sum'; + +say sum map { s/^([-+\.\d]+).*/$1/r } <>; |