Multiplication tables: Difference between revisions

Added Perl code
(Added Perl code)
Line 222:
where f n s = putStrLn $ fmt n ++ s ++ concatMap (fmt . (*n)) [n..12]
fmt n = printf "%4d" (n :: Int)</lang>
 
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
 
my $max = 12;
 
print " x|";
for ($a=1; $a<=12; $a++) { printf(" %3d", $a); }
print "\n---+";
while ($b<48) { print "-"; $b++; }
print "\n";
for ($i=1; $i<=$max; $i++) {
printf (" %2d", $i) ;
print "|";
for ($j=1; $j<=$max; $j++) {
if ($j >= $i) { printf(" %3d", $j*$i); }
else { print " "; }
}
print "\n";
}
</lang>
Output:
<pre>
x| 1 2 3 4 5 6 7 8 9 10 11 12
---+------------------------------------------------
1| 1 2 3 4 5 6 7 8 9 10 11 12
2| 4 6 8 10 12 14 16 18 20 22 24
3| 9 12 15 18 21 24 27 30 33 36
4| 16 20 24 28 32 36 40 44 48
5| 25 30 35 40 45 50 55 60
6| 36 42 48 54 60 66 72
7| 49 56 63 70 77 84
8| 64 72 80 88 96
9| 81 90 99 108
10| 100 110 120
11| 121 132
12| 144
</pre>
 
=={{header|Python}}==
Anonymous user