280 DAJ

2 files changed, 70 insertions, 0 deletions

diff --git a/challenge-280/dave-jacoby/perl/ch-1.pl b/challenge-280/dave-jacoby/perl/ch-1.pl
new file mode 100644
index 0000000000..2426dd92aa
--- /dev/null
+++ b/challenge-280/dave-jacoby/perl/ch-1.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use experimental qw{ bitwise fc postderef say signatures state };
+
+my @examples = (
+
+    qw{
+        acbddbca
+        abccd
+        abcdabbb
+    },
+);
+
+for my $example (@examples) {
+    my $output  = twice_appearance($example);
+    say <<"END";
+    Input:  \@str = "$example"
+    Output: "$output"
+END
+}
+
+sub twice_appearance ($input) {
+    my $hash;
+    for my $i ( split //, $input ) {
+        $hash->{$i}++;
+        return $i if $hash->{$i} > 1;
+
+    }
+    
+    return '';
+}
diff --git a/challenge-280/dave-jacoby/perl/ch-2.pl b/challenge-280/dave-jacoby/perl/ch-2.pl
new file mode 100644
index 0000000000..e4a6a683a6
--- /dev/null
+++ b/challenge-280/dave-jacoby/perl/ch-2.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use experimental qw{ fc say postderef signatures state };
+
+my @examples = (
+
+    'p|*e*rl|w**e|*ekly|',
+    'perl',
+    'th|ewe|e**|k|l***ych|alleng|e',
+
+);
+
+for my $input (@examples) {
+    my $output = count_asterisks($input);
+
+    say <<"END";
+    Input:  \$str = "$input"
+    Output: $output
+END
+}
+
+sub count_asterisks ($str) {
+    $str =~ s{
+                # if we can comment a regex, we probably should
+        \|      # a pipe character
+        [^\|]*  # zero or more non-pip characters
+        \|      # a pipe character
+        }{  }gmix;
+
+    # the = () = forces it into a list context, and otherwise
+    # you'd get a boolean result.
+    my $c = () = $str =~ /(\*)/gmix;
+    return $c;
+}
+