Select Code to Download

pdl> p $x

[
...
 [1 0 0 0 0 1]
 [0 0 0 0 1 1]
]

pdl> $s = cc8compt $x

pdl> p $s
...
 [1 0 0 0 0 3]
 [0 0 0 0 3 3]
]

p Dumper map { 
    $obj = whichND( $s == $_ );
    [
...
            6
          ]
        ];