new stuff

1 files changed, 31 insertions, 9 deletions

diff --git a/challenge-161/james-smith/perl/ch-1.pl b/challenge-161/james-smith/perl/ch-1.pl
index d2a8b2adb7..0729dbe48e 100644
--- a/challenge-161/james-smith/perl/ch-1.pl
+++ b/challenge-161/james-smith/perl/ch-1.pl
@@ -4,17 +4,39 @@ use strict;
 
 use warnings;
 use feature qw(say);
+use Test::More;
+use Benchmark qw(cmpthese timethis);
+use Data::Dumper qw(Dumper);
 
 open my $d, q(<), 'dictionary.txt';
+my @list = map { chomp;$_ } <$d>;
+close $d;
 
-my %a;
-
-## Accept it - best film is "Hot Fuzz".
-## Glory begins for forty deft aces!
-
-O:while( my $f = '', chomp( my $w = <$d> // '' ) ) {
-  $f gt $_ ? next O : ( $f = $_ ) for split //, $w;
-  push @{$a{ length $w }}, $w;
+cmpthese( 5, {
+  'mine'  => 'mine',
+  'colin' => 'colin',
+});
+sub mine {
+  my @a;
+  ## Accept it - best film is "Hot Fuzz".
+  ## Glory begins for forty deft aces!
+  O:for my $w (@list) {
+    my $f='';
+    $f gt $_ ? next O : ( $f = $_ ) for split //, $w;
+    push @a,$w;
+  }
+  warn 'mine', scalar @a;
+  return \@a;
 }
 
-say "$_: ", join ', ', @{$a{$_}} for sort { $a<=>$b } keys %a;
+sub colin {
+  my @a;
+  ## Accept it - best film is "Hot Fuzz".
+  ## Glory begins for forty deft aces!
+  O:for my $w (@list) {
+    (substr $w,$_-1,1 gt substr $w,$_,1 ) && (next O) for 1.. (length$w) - 1;
+    push @a,$w;
+  }
+  warn 'colin', scalar @a;
+  return \@a;
+}