version 1.2.8.1, 2010/08/20 03:52:20
|
version 1.3, 2009/07/06 17:12:47
|
Line 1
|
Line 1
|
<problem> |
<problem> |
<startouttext />Accept an answer of around 90 or -90<endouttext /> |
|
<customresponse answerdisplay="something near 90 or -90"> |
<startouttext /> |
|
Accept an answer of around 90 or -90 |
|
<endouttext /> |
|
|
|
<customresponse answerdisplay="something near 90 or -90"> |
<answer type="loncapa/perl"> |
<answer type="loncapa/perl"> |
# We do not want a vector |
# We do not want a vector |
if ($submission=~/\,/) { return 'EXTRA_ANSWER'; } |
if ($submission=~/\,/) { return 'EXTRA_ANSWER'; } |
# No units needed |
# No units needed |
if ($submission=~/^\d+\s+\w+$/) { return 'UNIT_NOTNEEDED'; } |
if ($submission=~/^\d+\s+\w+$/) { return 'UNIT_NOTNEEDED'; } |
# Need a numerical answer here |
# Need a numerical answer here |
if ($submission!~/^[\d\.\-]+$/) { return 'WANTED_NUMERIC'; } |
if ($submission!~/^\d+$/) { return 'WANTED_NUMERIC'; } |
$difference=abs(90-abs($submission)); |
$difference=abs(90-abs($submission)); |
if ($difference==0) { return 'EXACT_ANS'; } |
if ($difference==0) { return 'EXACT_ANS'; } |
if ($difference < 0.001) { return 'APPROX_ANS'; } |
if ($difference < 0.001) { return 'APPROX_ANS'; } |
return 'INCORRECT'; |
return 'INCORRECT'; |
</answer> |
</answer> |
<textline /> |
<textline /> |
</customresponse> |
</customresponse> |
</problem> |
|
|
|
|
</problem> |