diff options
| author | James Smith <js5@sanger.ac.uk> | 2022-12-13 04:11:40 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-12-13 04:11:40 +0000 |
| commit | 60159b35ec059209d07879b604034f95f0751142 (patch) | |
| tree | 9e3b9220a571457c88891ad645637f17437055a9 /challenge-195 | |
| parent | 9801381b85125dbcb7a501a85337af1d9eee7f03 (diff) | |
| download | perlweeklychallenge-club-60159b35ec059209d07879b604034f95f0751142.tar.gz perlweeklychallenge-club-60159b35ec059209d07879b604034f95f0751142.tar.bz2 perlweeklychallenge-club-60159b35ec059209d07879b604034f95f0751142.zip | |
Create ch-1.pl
Diffstat (limited to 'challenge-195')
| -rw-r--r-- | challenge-195/james-smith/perl/ch-1.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-195/james-smith/perl/ch-1.pl b/challenge-195/james-smith/perl/ch-1.pl new file mode 100644 index 0000000000..9b683e5c35 --- /dev/null +++ b/challenge-195/james-smith/perl/ch-1.pl @@ -0,0 +1,18 @@ +#!/usr/local/bin/perl + +use strict; +use warnings; +use feature qw(say); +use Test::More; +use Benchmark qw(cmpthese timethis); + +my @TESTS = ( + [15,14], [35,32] +); + +is( special( $_->[0] ), $_->[1] ) for @TESTS; +done_testing(); + +sub special { + scalar grep { !m{(\d).*\1} } 1..pop +} |