blob: 761f07455c66c07816dc85017e88b7e5750cf5e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
#!/usr/bin/perl
# Challenge 033
#
# Task #2
# Formatted Multiplication Table
# Write a script to print 11x11 multiplication table, only the top half triangle.
#
# x| 1 2 3 4 5 6 7 8 9 10 11
# ---+--------------------------------------------
# 1| 1 2 3 4 5 6 7 8 9 10 11
# 2| 4 6 8 10 12 14 16 18 20 22
# 3| 9 12 15 18 21 24 27 30 33
# 4| 16 20 24 28 32 36 40 44
# 5| 25 30 35 40 45 50 55
# 6| 36 42 48 54 60 66
# 7| 49 56 63 70 77
# 8| 64 72 80 88
# 9| 81 90 99
# 10| 100 110
# 11| 121
use Modern::Perl;
# header
print " x|";
printf "%4d", $_ for 1..11;
print "\n";
print "---+", "-"x(11*4), "\n";
# print table
for my $row (1..11) {
printf "%3d|", $row;
print " "x(4*($row-1));
printf "%4d", $row*$_ for $row..11;
print "\n";
}
|
