modified: challenge-260/mattneleigh/perl/ch-2.pl

1 files changed, 4 insertions, 6 deletions

diff --git a/challenge-260/mattneleigh/perl/ch-2.pl b/challenge-260/mattneleigh/perl/ch-2.pl
index 66e9af673c..9f2bff975d 100755
--- a/challenge-260/mattneleigh/perl/ch-2.pl
+++ b/challenge-260/mattneleigh/perl/ch-2.pl
@@ -127,8 +127,8 @@ sub determine_dictionary_rank{
 #   recommended that this argument be shift()ed out of @_ (or @ARG) so the
 #   array contains only the permutation to be processed
 # * A list containing the current permutation of the supplied list
-#   NOTE: This list is passed as an array slice from an array used internally
-#   by permutations_iterative_lexicographical(); any changes made to these list
+#   NOTE: This list is passed as an array used internally by
+#   permutations_iterative_lexicographical(); any changes made to these list
 #   values will be reflected in subsequent permutations and should be avoided
 #   (see 'man perlsub' for more information on argument aliasing)
 # Return values expected from the callback subroutine:
@@ -187,10 +187,8 @@ sub permutations_iterative_lexicographical{
         $largest_k = undef;
 
         # Call the supplied subroutine on the data
-        # arg and a slice of the list of things to
-        # permute, with indices calculated from the
-        # current value of $i, thus determining the
-        # current permutation
+        # arg and the list of things representing
+        # the current permutation
         $rval = &{$callback}(
             $data_arg,
             @items