http://www.perlmonks.org?node_id=1228495

pvfki has asked for the wisdom of the Perl Monks concerning the following question:

I am sort of a beginner to Perl here and I am having problems converting ARRAY() output to string. The code below is a program which computes All subsets (of a set) with a given sum. The only issue is it prints the results in ARRAY() form instead of strings. Does anyone know how to convert ARRAY() --> string?

sub Solve { my ($goal, $elements) = @_; # For extra speed, you can remove this next line my (@results, $RecursiveSolve, $nextValue); $RecursiveSolve = sub { my ($currentGoal, $included, $index) = @_; for ( ; $index < @$elements; ++$index) { $nextValue = $elements->[$index]; # Since elements are sorted, there's no point in trying a # non-final element unless it's less than goal/2: if ($currentGoal > 2 * $nextValue) { $RecursiveSolve->($currentGoal - $nextValue, [ @$included, $nextValue ], $index + 1); } else { print "@$_\n", [ @$included, $nextValue ] if $currentGoal == $nextValue; return if $nextValue >= $currentGoal; } } # end for }; # end $RecursiveSolve $RecursiveSolve->($goal, [], 0); undef $RecursiveSolve; # Avoid memory leak from circular reference return @results; } # end Solve my @results = Solve(869, [15, 43, 51, 56, 60, 67, 122, 152, 193, 204, +229, 271, 293, 301] );

The code prints:

ARRAY(0x2829430) ARRAY(0x2829148) ARRAY(0x28291c0) ARRAY(0x28291a8) ARRAY(0x2829418) ARRAY(0x2829190) ARRAY(0x2828c68) ARRAY(0x2828c50) ARRAY(0x28291c0) ARRAY(0x28291a8) ARRAY(0x2828e78) ARRAY(0x2828bf0) ARRAY(0x2828e60) ARRAY(0x2828bf0)

which is not understandable. Thanks for help!