diff options
| author | Kjetil Skotheim <kjetil.skotheim@sikt.no> | 2023-11-13 16:50:06 +0100 |
|---|---|---|
| committer | Kjetil Skotheim <kjetil.skotheim@sikt.no> | 2023-11-13 16:50:06 +0100 |
| commit | 2f1d27e3fdca63eebd875960c6d9f07af5b4d782 (patch) | |
| tree | 584596eda1e27667793636debc7370417c441bb3 | |
| parent | dee92c70c7a789145e5e8868ef282fb81b1b2573 (diff) | |
| download | perlweeklychallenge-club-2f1d27e3fdca63eebd875960c6d9f07af5b4d782.tar.gz perlweeklychallenge-club-2f1d27e3fdca63eebd875960c6d9f07af5b4d782.tar.bz2 perlweeklychallenge-club-2f1d27e3fdca63eebd875960c6d9f07af5b4d782.zip | |
perl-weekly-challenge-243
| -rw-r--r-- | challenge-243/kjetillll/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-243/kjetillll/perl/ch-2.pl b/challenge-243/kjetillll/perl/ch-2.pl index 6a3c903dcd..1f544f85d2 100644 --- a/challenge-243/kjetillll/perl/ch-2.pl +++ b/challenge-243/kjetillll/perl/ch-2.pl @@ -6,7 +6,7 @@ use strict; use warnings; sub sum_of_floors { eval join '+', - map { /_/; "int($`/$')" } + map { /_/; int($`/$') } glob "{@_}_{@_}" =~ s/ /,/gr } |