Draw a sphere: Difference between revisions
Content deleted Content added
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) { |
||