From d48082057e95d265cb72f38fc4cf3c91ffa12cc1 Mon Sep 17 00:00:00 2001
From: Lubos Kolouch <lubos@kolouch.net>
Date: Sat, 30 Jan 2021 11:25:30 +0100
Subject: Task 2 Challenge 097 LK Perl

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

diff --git a/challenge-097/lubos-kolouch/perl/ch-2.pl b/challenge-097/lubos-kolouch/perl/ch-2.pl
new file mode 100644
index 0000000000..9294a08f79
--- /dev/null
+++ b/challenge-097/lubos-kolouch/perl/ch-2.pl
@@ -0,0 +1,54 @@
+#!/usr/bin/perl 
+#===============================================================================
+#
+#         FILE: ch-2.pl
+#
+#        USAGE: ./ch-2.pl  
+#
+#  DESCRIPTION: Perl Weekly Challenge 097
+#               Task 2
+#               Binary Substrings
+#
+#       AUTHOR: Lubos Kolouch
+#      CREATED: 01/30/2021 10:11:26 AM
+#===============================================================================
+
+use strict;
+use warnings;
+use feature qw/say/;
+use Data::Dumper;
+use List::Util qw/min/;
+
+sub binary_substrings {
+    my $what = shift;
+
+    my $inp_bin = $what->[0];
+    my $split_nr = $what->[1];
+
+
+    # count 0s and 1s at each position
+
+    my %counts;
+    
+    my $pos = 0;
+    for (split '', $inp_bin) {
+        $counts{$pos}{$_}++;
+        $pos++;
+        $pos = $pos % $split_nr;
+    }
+
+    # if both positions exist, count the smaller one
+    my $flips = 0;
+
+    for my $key (keys %counts) {
+        $flips += min(values %{$counts{$key}}) if (defined $counts{$key}{'0'}) and (defined $counts{$key}{'1'});
+    }
+
+    return $flips;
+}
+
+use Test::More;
+
+is(binary_substrings(['101100101', 3]), 1);
+is(binary_substrings(['10110111', 4]), 2);
+done_testing;
-- 
cgit