Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
    $val = $val->[ $_ ] for @_;
    printf "[%s] := %s\n", join('][', @_), $val;
} expandDims( $ref );
  2. or download this
    c:\test>junk4
[0][0] := 0
...
[4][3][1][1] := 1
[4][3][2][0] := 0
[4][3][2][1] := 1
  3. or download this
    } sub{ "@_" =~ /2/ ? () : @_ }, expandDims( $ref );
  4. or download this
    c:\test>junk4
[0][0] := 0
...
[1][1] := 1
[3][0] := 0
[3][1] := 1