use v6;

################################################################################
=begin comment

Perl Weekly 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

=end comment
################################################################################

#--------------------------------------#
# Copyright © 2019 PerlMonk Athanasius #
#--------------------------------------#

my UInt constant $MAX = 11;

BEGIN say '';

#===============================================================================
sub MAIN()
#===============================================================================
{
    # Print the multipliers

    '  x|'.print;
    ' %3d'.printf: $_ for 1 .. $MAX;
        ''.say;

    # Print the horizontal divider

    "---+%s\n".printf: '-' x (4 * $MAX);

    # Print the body of the multiplication table

    for 1 .. $MAX -> UInt $row
    {
        # Print one row: the multiplicand, followed by those products for which
        #                the multiplier does not exceed the multiplicand

        '%3d|'.printf: $row;
       ' %3s' .printf: $row > $_ ?? '' !! $row * $_ for 1 .. $MAX;
            ''.say;
    }
}

################################################################################