Multiplication tables: Difference between revisions

our $width = length($max**2) + 1;

 

print "\n", '-' x ($width - 1), '+', '-' x ($max*$width), "\n";

foreach my $i (1..$max) {

foreach "$i|", map { $_ >= $i and $_*$i } 1..$max;

print "\n";