Help for this page

Select Code to Download

Select or download this

use Data::Dumper;

...
    print Dumper \@dcomp;
    return \@dcomp;
}

Select or download this

$VAR1 = ['X -4 Y','Y 3 Z'];          # For $s1
$VAR1 = ['W 1 X','X -4 Y','Y 3 Z'];  # For $s2
$VAR1 = ['X 2 Y'];                   # For $s3
$VAR1 = ['A -4 B','B -4 C','C -4 A','A -4 B'];  # For $s4