diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-01-03 11:50:55 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-01-03 11:50:55 +0000 |
| commit | 8854eef5ab6c362a8281c83004a5427695ed3a16 (patch) | |
| tree | 3852a40b646c7f5347559c99179b190a905093c8 | |
| parent | fb55c47fe6cba78cf8bac12ff0fc9caa1fbe44c8 (diff) | |
| download | perlweeklychallenge-club-8854eef5ab6c362a8281c83004a5427695ed3a16.tar.gz perlweeklychallenge-club-8854eef5ab6c362a8281c83004a5427695ed3a16.tar.bz2 perlweeklychallenge-club-8854eef5ab6c362a8281c83004a5427695ed3a16.zip | |
adding blog link
| -rw-r--r-- | challenge-146/james-smith/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-146/james-smith/perl/ch-2.pl | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/challenge-146/james-smith/blog.txt b/challenge-146/james-smith/blog.txt new file mode 100644 index 0000000000..358813fa75 --- /dev/null +++ b/challenge-146/james-smith/blog.txt @@ -0,0 +1 @@ +https://github.com/manwar/perlweeklychallenge-club/tree/master/challenge-146/james-smith diff --git a/challenge-146/james-smith/perl/ch-2.pl b/challenge-146/james-smith/perl/ch-2.pl index d3f552e849..04a53ff1b0 100644 --- a/challenge-146/james-smith/perl/ch-2.pl +++ b/challenge-146/james-smith/perl/ch-2.pl @@ -5,8 +5,6 @@ use strict; use warnings; use feature qw(say); use Test::More; -use Benchmark qw(cmpthese timethis); -use Data::Dumper qw(Dumper); my @TESTS = ( [ 3,5, '3/5 3/2 1/2 1/1' ], @@ -25,6 +23,6 @@ sub tree { } sub stringify { - join ' ', map { "$_->[0]/$_->[1]" } @{$_[0]}; + join q( ), map { "$_->[0]/$_->[1]" } @{$_[0]}; } |