From 76826f342c29635483cb6b2e6faded58d5fffbd4 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Sun, 19 May 2019 13:21:48 +0200
Subject: [008#2]

---
 008/ch2.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 008/ch2.pl

(limited to '008/ch2.pl')

diff --git a/008/ch2.pl b/008/ch2.pl
new file mode 100755
index 0000000..d9857bf
--- /dev/null
+++ b/008/ch2.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use List::Util qw(max reduce);
+
+sub center {
+    # Get length of the longest string
+    my $maxlen = reduce { max($a, length $b) } 0, @_;
+
+    # Add the needed spaces to the beginning of each string
+    return map { ' ' x (($maxlen - length) / 2) . $_ } @_;
+}
+
+my @lines;
+while (<>) {
+    chomp;
+    push @lines, $_;
+}
+for (center(@lines)) {
+    print $_, "\n";
+}
-- 
cgit v1.2.3