diff options
| author | Paulo Custodio <pauloscustodio@gmail.com> | 2021-11-11 17:22:18 +0000 |
|---|---|---|
| committer | Paulo Custodio <pauloscustodio@gmail.com> | 2021-11-11 17:22:18 +0000 |
| commit | 60e9cb0fcbf3a557ffa17a2243e309e8489847c3 (patch) | |
| tree | 75b8f035e28b754ac23799e095cb9c5aed79d451 /challenge-085 | |
| parent | c0d9658341be76934b2a8881ccaf7aeb5acbf9fa (diff) | |
| download | perlweeklychallenge-club-60e9cb0fcbf3a557ffa17a2243e309e8489847c3.tar.gz perlweeklychallenge-club-60e9cb0fcbf3a557ffa17a2243e309e8489847c3.tar.bz2 perlweeklychallenge-club-60e9cb0fcbf3a557ffa17a2243e309e8489847c3.zip | |
Add Python solution to challenge 84
Diffstat (limited to 'challenge-085')
| -rw-r--r-- | challenge-085/paulo-custodio/test.pl | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/challenge-085/paulo-custodio/test.pl b/challenge-085/paulo-custodio/test.pl deleted file mode 100644 index b32170a073..0000000000 --- a/challenge-085/paulo-custodio/test.pl +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/bin/perl - -use Modern::Perl; -use Test::More; - -is capture("perl/ch-1.pl 1.2 0.4 0.1 2.5"), "1\n"; -is capture("perl/ch-1.pl 0.2 1.5 0.9 1.1"), "0\n"; -is capture("perl/ch-1.pl 0.5 1.1 0.3 0.7"), "1\n"; - -is capture("perl/ch-2.pl 8"), "1\n"; -is capture("perl/ch-2.pl 15"), "0\n"; -is capture("perl/ch-2.pl 125"), "1\n"; - -done_testing; - -sub capture { - my($cmd) = @_; - my $out = `$cmd`; - $out =~ s/[ \t\v\f\r]*\n/\n/g; - return $out; -} |