From 5c261d09314f08e9851d667ac796adcf9225c6f5 Mon Sep 17 00:00:00 2001
From: Lubos Kolouch <lubos@kolouch.net>
Date: Sat, 13 Nov 2021 14:00:19 +0100
Subject: Challenge 137 Task2 Perl LK

---
 challenge-138/lubos-kolouch/perl/ch-2.pl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 challenge-138/lubos-kolouch/perl/ch-2.pl

diff --git a/challenge-138/lubos-kolouch/perl/ch-2.pl b/challenge-138/lubos-kolouch/perl/ch-2.pl
new file mode 100644
index 0000000000..1579dd7984
--- /dev/null
+++ b/challenge-138/lubos-kolouch/perl/ch-2.pl
@@ -0,0 +1,30 @@
+use strict;
+use warnings;
+use Algorithm::Combinatorics qw/partitions/;
+
+sub is_split_number {
+  my $what = shift;
+  my $sqr = int(sqrt($what));
+
+  my @what_arr = split //, $what;
+  my @what_partitions = partitions(\@what_arr);
+
+  for my $part (@what_partitions) {
+    my $result = 0;
+
+    for my $item(@$part) {
+      $result += join '',@$item;
+    }
+
+    return 1 if $result == $sqr;
+  }
+
+  return 0;
+}
+
+use Test::More;
+is(is_split_number(81), 1);
+is(is_split_number(9801), 1);
+is(is_split_number(36), 0);
+
+done_testing;
-- 
cgit