Merge pull request #59 from jbarrett/jbarrett/challenge4

Week 4

3 files changed, 40 insertions, 0 deletions

diff --git a/challenge-004/john-barrett/perl5/README.md b/challenge-004/john-barrett/perl5/README.md
new file mode 100644
index 0000000000..9a98597b12
--- /dev/null
+++ b/challenge-004/john-barrett/perl5/README.md
@@ -0,0 +1,8 @@
+# How I cheated this week...
+
+## Part 1:
+
+You need to run...
+
+`$ perl -MMath::Trig ch-1.pl`
+
diff --git a/challenge-004/john-barrett/perl5/ch-1.pl b/challenge-004/john-barrett/perl5/ch-1.pl
new file mode 100755
index 0000000000..945ae5ca13
--- /dev/null
+++ b/challenge-004/john-barrett/perl5/ch-1.pl
@@ -0,0 +1 @@
+printf'%.0'.((stat$0)[7]-1).'f',pi;
diff --git a/challenge-004/john-barrett/perl5/ch-2.pl b/challenge-004/john-barrett/perl5/ch-2.pl
new file mode 100755
index 0000000000..840eeba777
--- /dev/null
+++ b/challenge-004/john-barrett/perl5/ch-2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+print "Usage: $0 letters to find in dict\n" and exit unless @ARGV;
+
+my $fn = '/usr/share/dict/words';
+my $findletters;
+$findletters->{$_}++ for map { map { lc } split '' } @ARGV;
+
+my @found;
+
+open my $fh, '<', $fn;
+
+WORD: while ( my $word = <$fh> ) {
+    chomp $word;
+    my $wordletters;
+    $wordletters->{$_}++ for map { lc } split '', $word;
+    # Change this to 'keys %{ $findletters }' to find
+    # all words containing the specified letters.
+    # This finds all words composed of the specified letters
+    # which I think fulfills "you don’t have to use all the letters"
+    for my $letter ( keys %{ $wordletters } ) {
+        no warnings 'uninitialized';
+        next WORD unless $wordletters->{ $letter } <= $findletters->{ $letter };
+    }
+    push @found, $word;
+}
+
+print "$_\n" for @found;