Multiplication tables: Difference between revisions

Content added Content deleted

Inline

@@ Line 225: / Line 225: @@
 =={{header|Perl}}==
 <lang perl>#!/usr/bin/perl
+use strict;
-$max = 12;
+our $max = 12;
 print "  x|";
-for ($a=1; $a<=$max; $a++) { printf(" %3d", $a); }
+foreach my $a (1..$max) { printf(" %3d", $a); }
-print "\n---+";
+print "\n---+", "-" x ($max*4), "\n";
-while ($b<($max*4)) { print "-"; $b++; }
+foreach my $i (1..$max) {
-print "\n";
-for ($i=1; $i<=$max; $i++) {
 	printf (" %2d", $i) ;
 	print "|";
-	for ($j=1; $j<=$max; $j++) {
+	foreach my $j (1..$max) {
 		if ($j >= $i) { printf(" %3d", $j*$i); }
 		else { print "    "; }
 	}
 	print "\n";
+}</lang>
-}
-</lang>
 Output:
 <pre>