diff options
| -rw-r--r-- | challenge-256/deadmarshal/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-256/deadmarshal/perl/ch-1.pl | 16 | ||||
| -rw-r--r-- | challenge-256/deadmarshal/perl/ch-2.pl | 17 |
3 files changed, 34 insertions, 0 deletions
diff --git a/challenge-256/deadmarshal/blog.txt b/challenge-256/deadmarshal/blog.txt new file mode 100644 index 0000000000..6f27834099 --- /dev/null +++ b/challenge-256/deadmarshal/blog.txt @@ -0,0 +1 @@ +https://deadmarshal.blogspot.com/2024/02/twc256.html diff --git a/challenge-256/deadmarshal/perl/ch-1.pl b/challenge-256/deadmarshal/perl/ch-1.pl new file mode 100644 index 0000000000..591f9475dc --- /dev/null +++ b/challenge-256/deadmarshal/perl/ch-1.pl @@ -0,0 +1,16 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +sub maximum_pairs{ + my ($a) = @_; + my $c = 0; + map{my $i = $_; + map{$c++ if $a->[$i] eq reverse $a->[$_]}$i+1..$#$a}0..$#$a; + $c +} + +printf "%d\n", maximum_pairs(['ab','de','ed','bc']); +printf "%d\n", maximum_pairs(['aa','ba','cd','ed']); +printf "%d\n", maximum_pairs(['uv','qp','st','vu','mn','pq']); + diff --git a/challenge-256/deadmarshal/perl/ch-2.pl b/challenge-256/deadmarshal/perl/ch-2.pl new file mode 100644 index 0000000000..2d342824b7 --- /dev/null +++ b/challenge-256/deadmarshal/perl/ch-2.pl @@ -0,0 +1,17 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +sub merge_strings{ + my ($res,$m,$n) = ('',length $_[0],length $_[1]); + for(my $i = 0; $i < $m || $i < $n; ++$i){ + $res .= substr $_[0],$i,1 if $i < $m; + $res .= substr $_[1],$i,1 if $i < $n; + } + $res +} + +printf "%s\n",merge_strings('abcd','1234'); +printf "%s\n",merge_strings('abc','12345'); +printf "%s\n",merge_strings('abcde','123'); + |