Re: Perl ARRAY() result


Just another Perl shrine
	PerlMonks

Re: Perl ARRAY() result

by pme (Monsignor)

on Jan 13, 2019 at 21:54 UTC ( [id://1228496]=note: print w/replies, xml )

Need Help??

in reply to Perl ARRAY() result

Hi pvfki

      ...

      } else {
        print join(',', @$included, $nextValue), "\n"
            if $currentGoal == $nextValue;
        return if $nextValue >= $currentGoal;
      }
      ...
[download]

Update And you can push the result to @results.

      ...

      } else {
        if ($currentGoal == $nextValue) {
          print join(',', @$included, $nextValue), "\n";
          push @results, [@$included, $nextValue];
        }
        return if $nextValue >= $currentGoal;
      }
      ...
[download]

HTH