From 1c3bd5b76575eaecc235163752053d307f0d289d Mon Sep 17 00:00:00 2001
From: John Barrett <john@jbrt.org>
Date: Mon, 15 Apr 2019 21:36:59 +0100
Subject: Print pi to $filesize digits

---
 challenge-004/john-barrett/perl5/ch-1.pl | 1 +
 1 file changed, 1 insertion(+)
 create mode 100644 challenge-004/john-barrett/perl5/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 100644
index 0000000000..51356fba61
--- /dev/null
+++ b/challenge-004/john-barrett/perl5/ch-1.pl
@@ -0,0 +1 @@
+printf'%.0'.((stat'ch-1.pl')[7]-1).'f',pi;
-- 
cgit 


From 60e3e497a47959c2e13f900379a06bb133d7bb32 Mon Sep 17 00:00:00 2001
From: John Barrett <john@jbrt.org>
Date: Mon, 15 Apr 2019 21:44:25 +0100
Subject: Challenge 4 part 1

---
 challenge-004/john-barrett/perl5/README.md | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 challenge-004/john-barrett/perl5/README.md

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`
+
-- 
cgit 


From 1a973fe01229adfce9a048893fb894030c4ac2c4 Mon Sep 17 00:00:00 2001
From: John Barrett <john@jbrt.org>
Date: Mon, 15 Apr 2019 22:09:57 +0100
Subject: Challenge 4 part 2

---
 challenge-004/john-barrett/perl5/ch-1.pl |  0
 challenge-004/john-barrett/perl5/ch-2.pl | 31 +++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 mode change 100644 => 100755 challenge-004/john-barrett/perl5/ch-1.pl
 create mode 100755 challenge-004/john-barrett/perl5/ch-2.pl

diff --git a/challenge-004/john-barrett/perl5/ch-1.pl b/challenge-004/john-barrett/perl5/ch-1.pl
old mode 100644
new mode 100755
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;
-- 
cgit 


From 29a2314ec091e02a4c3a02cc5d54e7dc7055a440 Mon Sep 17 00:00:00 2001
From: John Barrett <john@jbrt.org>
Date: Mon, 15 Apr 2019 22:22:09 +0100
Subject: Remove hardcoded path

---
 challenge-004/john-barrett/perl5/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-004/john-barrett/perl5/ch-1.pl b/challenge-004/john-barrett/perl5/ch-1.pl
index 51356fba61..945ae5ca13 100755
--- a/challenge-004/john-barrett/perl5/ch-1.pl
+++ b/challenge-004/john-barrett/perl5/ch-1.pl
@@ -1 +1 @@
-printf'%.0'.((stat'ch-1.pl')[7]-1).'f',pi;
+printf'%.0'.((stat$0)[7]-1).'f',pi;
-- 
cgit