Anonymous user
Multiplication tables: Difference between revisions
→{{header|Perl}}
Line 225:
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
use strict;
our $max = 12;
print " x|";
print "\n---+"
printf (" %2d", $i) ;
print "|";
if ($j >= $i) { printf(" %3d", $j*$i); }
else { print " "; }
}
print "\n";
}</lang>▼
▲</lang>
Output:
<pre>
| |||