links in blogs < & >

1 files changed, 24 insertions, 11 deletions

diff --git a/challenge-131/james-smith/perl/ch-2.pl b/challenge-131/james-smith/perl/ch-2.pl
index 5af21335e2..86096aac26 100644
--- a/challenge-131/james-smith/perl/ch-2.pl
+++ b/challenge-131/james-smith/perl/ch-2.pl
@@ -8,20 +8,33 @@ use Test::More;
 use Benchmark qw(cmpthese timethis);
 use Data::Dumper qw(Dumper);
 
-my @TESTS = (
-  [ [ '""[]()', '"I like (parens) and the Apple ][+" they said.' ], [ '"(["','")]"' ] ],
-  [ [ '**//<>', '/* This is a comment (in some languages) */ <could be a tag>' ], [ '/**/<','/**/>' ] ],
+my @player_ages = (
+  [20, "Alex"  ],
+  [28, "Joe"   ],
+  [38, "Mike"  ],
+  [18, "Alex"  ],
+  [25, "David" ],
+  [18, "Simon" ],
 );
 
+my @player_names = (
+  ["Alex", "Stewart"],
+  ["Joe",  "Root"   ],
+  ["Mike", "Gatting"],
+  ["Joe",  "Blog"   ],
+  ["Alex", "Jones"  ],
+  ["Simon","Duane"  ],
+);
 
-is( join( ' - ', find_pairs( @{$_->[0]})), join( ' - ', @{$_->[1]} ) ) foreach @TESTS;
-
-done_testing();
+my $MAX = @ARGV ? $ARGV[0] : 4;
 
-sub find_pairs {
-  map { join '', $_[1] =~m{$_}g }
-  map { '['.quotemeta( $_ ).']' }
-  map { join '', $_[0] =~ /$_/g }
-      qr((.).?), qr(.(.?));
+my @res;
+while( my @pns = splice @player_names, 0, $MAX ) {
+  my %cache = ();
+  push @{$cache{$_->[0]}},$_->[1] foreach @pns;
+  foreach my $p (@player_ages) {
+    push @res, [$p->[0], $p->[1], $_] foreach @{$cache{$p->[1]}};
+  }
 }
+printf "%4d\t%-20s\t%-20s\n", @{$_} foreach @res;