Help for this page

Select Code to Download


  1. or download this
    $paths->[0][0][0] = [
   [ 3, 0, 0 ],
...
];

...
  2. or download this
    $paths->{0,0,0} = [
   join($;, 3,0,0),
...
];

...
  3. or download this
    sub to_key {
   my ($x, $y, $s) = @_;
...
);

...