## DBsubject('WeBWorK')
## DBchapter('Demos')
## DBsection('Problem')
## KEYWORDS()
## Author('Davor Cubranic')
## Institution('University of British Columbia')

DOCUMENT();
loadMacros(
"PGstandard.pl",
"MathObjects.pl",
);


### Problem setup

Context("Numeric");

$meaning_of_life = Real(42);


### Displayed text

TEXT(beginproblem());
Context()->texStrings;
BEGIN_TEXT
What is the meaning of life?
$PAR
\{ ans_rule(35) \}
END_TEXT
Context()->normalStrings;


### Answer and solution

ANS($meaning_of_life->cmp(checker => sub {
    my ($correct, $student) = @_;
    my $cv = $correct->value;
    my $sv = $student->value;
    return $sv > ($cv * .9) &&
        $sv < ($cv * 1.2);
}));

Context()->texStrings;
BEGIN_SOLUTION
According to Douglas Adams, the meaning of life is \( $meaning_of_life \).

END_SOLUTION
Context()->normalStrings;

ENDDOCUMENT();