diff options
| author | Matthias Muth <matthias.muth@gmx.de> | 2024-09-23 01:34:59 +0200 |
|---|---|---|
| committer | Matthias Muth <matthias.muth@gmx.de> | 2024-09-23 01:34:59 +0200 |
| commit | 2be5c69b6526543304fd0d10c7d6a58e2eb3a329 (patch) | |
| tree | a2b557dff43efd3687c6f4a27d4450ebb5bb5de5 | |
| parent | 2083b68e738a6e887636228a69f7059c4133d3a8 (diff) | |
| download | perlweeklychallenge-club-2be5c69b6526543304fd0d10c7d6a58e2eb3a329.tar.gz perlweeklychallenge-club-2be5c69b6526543304fd0d10c7d6a58e2eb3a329.tar.bz2 perlweeklychallenge-club-2be5c69b6526543304fd0d10c7d6a58e2eb3a329.zip | |
Challenge 287 Task 1 and 2 solutions in Perl by Matthias Muth - Silly typo!
| -rwxr-xr-x | challenge-287/matthias-muth/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-287/matthias-muth/perl/ch-2.pl b/challenge-287/matthias-muth/perl/ch-2.pl index 757747f5d3..1dcd770c7d 100755 --- a/challenge-287/matthias-muth/perl/ch-2.pl +++ b/challenge-287/matthias-muth/perl/ch-2.pl @@ -16,7 +16,7 @@ sub valid_number( $str ) { return $str =~ /^$RE{num}{real}$/; } -sub valid_number_usimg_re( $str ) { +sub valid_number_using_re( $str ) { return $str =~ /^ [+-]? (?: \.\d+ | \d+(?:\.\d*)? ) (?: [Ee] [+-]? \d+ )? $/xa; } |