File:
[LON-CAPA] /
loncom /
homework /
templates /
CustomResponse.problem
Revision
1.1:
download - view:
text,
annotated -
select for diffs
Tue Jul 18 17:24:39 2006 UTC (18 years, 1 month ago) by
www
Branches:
MAIN
CVS tags:
version_2_3_X,
version_2_3_2,
version_2_3_1,
version_2_3_0,
version_2_2_X,
version_2_2_99_1,
version_2_2_99_0,
version_2_2_2,
version_2_2_1,
version_2_2_0,
version_2_1_99_3,
version_2_1_99_2,
version_2_1_99_1,
HEAD
Document custom response
1: <problem>
2: <startouttext />Accept an answer of around 90 or -90<endouttext />
3: <customresponse answerdisplay="something near 90 or -90">
4: <answer type="loncapa/perl">
5: # We do not want a vector
6: if ($submission=~/\,/) { return 'ANS_CNT_NOT_MATCH'; }
7: # No units needed
8: if ($submission=~/^\d+\s+\w+$/) { return 'UNIT_NOTNEEDED'; }
9: # Need a numerical answer here
10: if ($submission!~/^\d+$/) { return 'WANTED_NUMERIC'; }
11: $difference=abs(90-abs($submission));
12: if ($difference==0) { return 'EXACT_ANS'; }
13: if ($difference < 0.001) { return 'APPROX_ANS'; }
14: return 'INCORRECT';
15: </answer>
16: <textline />
17: </customresponse>
18: </problem>
19:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>