diff options
| -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; |