Merge pull request #5548 from oWnOIzRi/week148

add solution week 148 task 2 in perl

1 files changed, 31 insertions, 0 deletions

diff --git a/challenge-148/steven-wilson/perl/ch-02.pl b/challenge-148/steven-wilson/perl/ch-02.pl
new file mode 100644
index 0000000000..f1beb1d333
--- /dev/null
+++ b/challenge-148/steven-wilson/perl/ch-02.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+# Week 148 Task 2
+# Cardano Triplets
+# Write a script to generate first 5 Cardano Triplets.
+#    A triplet of positive integers (a,b,c) is called
+#    a Cardano Triplet if it satisfies the below condition.
+
+use strict;
+use warnings;
+use feature qw/ say /;
+use POSIX qw/ cbrt sqrt /;
+
+my $max     = 117;
+my $counter = 0;
+
+FIRST_FIVE: for my $a ( 1 .. $max ) {
+    for my $b ( 1 .. $max ) {
+        for my $c ( 1 .. $max ) {
+            if ( ( cbrt( $a + $b * sqrt($c) ) + cbrt( $a - $b * sqrt($c) ) )
+                == 1 )
+            {
+                say "($a, $b, $c)";
+                $counter++;
+                if ( $counter == 5 ) {
+                    last FIRST_FIVE;
+                }
+            }
+        }
+    }
+}
+