From f1bc5a2e350ec78327c4224e1144072fa8293196 Mon Sep 17 00:00:00 2001
From: Alexander Pankoff <ccntrq@screenri.de>
Date: Thu, 8 Dec 2022 16:38:30 +0100
Subject: Add solution for task 1 of challenge 193

---
 challenge-193/alexander-pankoff/perl/ch-1.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 challenge-193/alexander-pankoff/perl/ch-1.pl

diff --git a/challenge-193/alexander-pankoff/perl/ch-1.pl b/challenge-193/alexander-pankoff/perl/ch-1.pl
new file mode 100644
index 0000000000..ecac88a835
--- /dev/null
+++ b/challenge-193/alexander-pankoff/perl/ch-1.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+package challenge193::ch1;
+
+use strict;
+use warnings;
+use autodie;
+use feature qw'say state signatures';
+no warnings qw'experimental::signatures';
+
+use Test::More tests => 2;
+
+is_deeply( [ binary_string(2) ], [qw(00 01 10 11)], "Example 1" );
+is_deeply(
+    [ binary_string(3) ],
+    [qw(000 001 010 011 100 101 110 111)],
+    "Example 2"
+);
+
+sub binary_string ($n) {
+    my $max = -1 + 2**$n;
+    map { sprintf( "%0$n" . "b", $_ ) } 0 .. $max;
+}
-- 
cgit