diff options
| author | Bob Lied <boblied+github@gmail.com> | 2025-05-17 08:14:06 -0500 |
|---|---|---|
| committer | Bob Lied <boblied+github@gmail.com> | 2025-05-17 08:14:06 -0500 |
| commit | 4efb4284df1013fe4420f77e519b9572516576b3 (patch) | |
| tree | fd1546e36cf5b08bb9021082546af99b6288db7d | |
| parent | cd07ac019f010d16ec5fbf8ae0423677a4c2e198 (diff) | |
| download | perlweeklychallenge-club-4efb4284df1013fe4420f77e519b9572516576b3.tar.gz perlweeklychallenge-club-4efb4284df1013fe4420f77e519b9572516576b3.tar.bz2 perlweeklychallenge-club-4efb4284df1013fe4420f77e519b9572516576b3.zip | |
Week 321 final answer with blog reference
| -rw-r--r-- | challenge-321/bob-lied/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-321/bob-lied/perl/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-321/bob-lied/perl/ch-2.pl | 6 |
3 files changed, 5 insertions, 4 deletions
diff --git a/challenge-321/bob-lied/blog.txt b/challenge-321/bob-lied/blog.txt new file mode 100644 index 0000000000..4d8af974f5 --- /dev/null +++ b/challenge-321/bob-lied/blog.txt @@ -0,0 +1 @@ +https://dev.to/boblied/pwc-321-every-average-tells-a-story-dont-it-bj0 diff --git a/challenge-321/bob-lied/perl/ch-1.pl b/challenge-321/bob-lied/perl/ch-1.pl index 2b74da51e9..a36ddd29ae 100644 --- a/challenge-321/bob-lied/perl/ch-1.pl +++ b/challenge-321/bob-lied/perl/ch-1.pl @@ -66,7 +66,7 @@ sub distAvg(@ints) $average{ (shift @ints)+(pop @ints) } = true; } - return scalar keys %average; + return scalar %average; } sub runTest diff --git a/challenge-321/bob-lied/perl/ch-2.pl b/challenge-321/bob-lied/perl/ch-2.pl index b282ad6636..ad5b21c294 100644 --- a/challenge-321/bob-lied/perl/ch-2.pl +++ b/challenge-321/bob-lied/perl/ch-2.pl @@ -70,15 +70,15 @@ sub bsp($str) sub bspSTR($str) { my $out = ''; - for ( split(//, $str) ) + while ( (my $c = substr($str, 0, 1, '')) ne '' ) { - if ( $_ eq '#' ) + if ( $c eq '#' ) { substr($out, -1, 1, ''); } else { - $out .= $_; + $out .= $c; } } return $out; |