diff options
| -rw-r--r-- | challenge-113/adam-russell/perl/ch-1.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/challenge-113/adam-russell/perl/ch-1.pl b/challenge-113/adam-russell/perl/ch-1.pl index 6f9714010d..ca77eb766d 100644 --- a/challenge-113/adam-russell/perl/ch-1.pl +++ b/challenge-113/adam-russell/perl/ch-1.pl @@ -1,7 +1,10 @@ use strict; use warnings; ## -# +# You are given a positive integer $N and a digit $D. +# Write a script to check if $N can be represented as +# a sum of positive integers having $D at least once. +# If the check passes print 1 otherwise 0. ## sub is_represented{ my($n, $d) = @_; |