Updated Perl solution to Task #1.

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) = @_;