DataTables.pg

# where the data goes in as an array ref of array refs.  The first row can
@rows = ([ '\(x\)', '\(y\)' ]);
for $i (1 .. 5) {
    push(@rows, [ $i, random(1, 10) ]);
}

$tab1 = DataTable(~~@rows);

$a = non_zero_random(-4, 4);
$f = Compute("x/(x-[$a])")->reduce;

$tab2 = DataTable(
    [
        [ '\(x\)', '\(f(x)\)' ],
        [ $a - 2,    ans_rule(10) ],
        [ $a - 1,    ans_rule(10) ],
        [ $a + 1,    ans_rule(10) ],
        [ $a + 2,    ans_rule(10) ]
    ],
    align           => '|r|l|',
    horizontalrules => 1
);

BEGIN_PGML
Here's some data:

[$tab1]*

Fill out the following table for [``f(x)=[$f]``].

[$tab2]*
END_PGML

for $i (-2, -1, 1, 2) {
    ANS($f->eval(x => $a + $i)->cmp);
}

Setup

We use the DataTable function from niceTables.pl to demonstrate some of it’s features. A DataTable is meant to display data in a tabular format.

The basic form of a DataTable is

$table = DataTable([
   [row1],
   [row2],
   ...
   [rowN]
 ],
 options);

(and is often) used for a header row. We will show some of the options here, but the full listing and explantion is in the niceTables.pl POD

The first use is meant to show some tabular data and the data is filled in randomly and stored in the @rows array. Also, note that since a DataTable needs an array ref and typically in perl \@rows would be the arrayref, however, in a PG problem, to get a \, we use ~~

The second table uses ans_rule for answer blanks. This example has rows hardcoded instead of in a loop.

Data Table

Complete Code

POD for Macro Files

PG problem file

Explanation