5 use feature 'multidimensional';
8 my ($tx, $ty) = (11,718);
11 sub gi2el($gi) { ($gi + $depth) % 20183 }
15 for my $n (1 .. $tx + $ty) {
19 if (($x == 0 && $y == 0) || ($x == $tx && $y == $ty)) {
22 $gi{$x,$y} = 16807*$x;
24 $gi{$x,$y} = 48271*$y;
26 $gi{$x,$y} = $el{$x-1,$y} * $el{$x,$y-1};
28 $el{$x,$y} = gi2el($gi{$x,$y});
29 $sum += $el{$x,$y} % 3
30 if $x <= $tx && $y <= $ty;