exercism-perl5

Repository for my Perl 5 Exercism exercises
git clone git://git.samirparikh.com/exercism-perl5
Log | Files | Refs | README

commit 799b07abf77124af54971203c68fc0274c8cc630
parent 77088c91dee3c5c6869806e2ff00518f27271b9b
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Sat,  5 Mar 2022 14:06:47 +0000

get all tests to pass for Raindrops

Diffstat:
Mraindrops/Raindrops.pm | 6+++++-
1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/raindrops/Raindrops.pm b/raindrops/Raindrops.pm @@ -6,7 +6,11 @@ our @EXPORT_OK = qw<raindrop>; sub raindrop { my ($number) = @_; - return undef; + my $result = ''; + $result .= 'Pling' unless $number % 3; + $result .= 'Plang' unless $number % 5; + $result .= 'Plong' unless $number % 7; + return $result ? $result : $number; } 1;