From 84ea53edf5431d382844da8fcaa47626c8e2b6b2 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Tue, 23 Apr 2019 20:35:15 +0200
Subject: [perl] p4, p5

---
 perl/p4.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 perl/p4.pl

(limited to 'perl/p4.pl')

diff --git a/perl/p4.pl b/perl/p4.pl
new file mode 100755
index 0000000..9982fa5
--- /dev/null
+++ b/perl/p4.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use List::Util qw(max);
+
+# Functional
+
+# Imperative
+my $resp;
+for my $x (100 .. 999) {
+	for my $y ($x .. 999) {
+		my $cand = $x*$y;
+		$resp = max($resp, $cand) if $cand eq reverse($cand);
+	}
+}
+print "$resp\n";
-- 
cgit v1.2.3