Multiplication tables: Difference between revisions

→‎{{header|Perl}}: -- Noticed 12 was hard set in a couple places, fixed.
(Added Perl code)
(→‎{{header|Perl}}: -- Noticed 12 was hard set in a couple places, fixed.)
Line 229:
 
print " x|";
for ($a=1; $a<=12$max; $a++) { printf(" %3d", $a); }
print "\n---+";
while ($b<48($max*4)) { print "-"; $b++; }
print "\n";
for ($i=1; $i<=$max; $i++) {
Anonymous user