Draw a sphere: Difference between revisions
Content added Content deleted
m (→{{header|Perl}}: minor changes) |
(→{{header|Perl}}: remove debugging check) |
||
Line 1,429: | Line 1,429: | ||
use overload q{.} => sub { |
use overload q{.} => sub { |
||
my ($a, $b) = @_; |
my ($a, $b) = @_; |
||
die "wrong type" unless ref($b) eq __PACKAGE__; |
|||
my $sum = 0; |
my $sum = 0; |
||
for (0 .. @$a - 1) { |
for (0 .. @$a - 1) { |