From: Mike G. v. a. <we...@ma...> - 2008-06-24 21:47:55
|
Log Message: ----------- formatting changes Modified Files: -------------- pg/macros: PG.pl parserFunction.pl Revision Data ------------- Index: PG.pl =================================================================== RCS file: /webwork/cvs/system/pg/macros/PG.pl,v retrieving revision 1.37 retrieving revision 1.38 diff -Lmacros/PG.pl -Lmacros/PG.pl -u -r1.37 -r1.38 --- macros/PG.pl +++ macros/PG.pl @@ -612,9 +612,6 @@ (\$STRINGforOUTPUT, \$STRINGforHEADER_TEXT,\%PG_ANSWERS_HASH,eval(q!\%main::PG_FLAGS!)); } -=back - -=cut ################################################################################ Index: parserFunction.pl =================================================================== RCS file: /webwork/cvs/system/pg/macros/parserFunction.pl,v retrieving revision 1.12 retrieving revision 1.13 diff -Lmacros/parserFunction.pl -Lmacros/parserFunction.pl -u -r1.12 -r1.13 --- macros/parserFunction.pl +++ macros/parserFunction.pl @@ -160,9 +160,14 @@ return (($Df->substitute($x=>$g))*($g->D(@_)))->{tree}->reduce; } +=head3 NameForNumber($number) + # # Get the name for a number # + +=cut + sub NameForNumber { my $n = shift; my $name = ('zeroth','first','second','third','fourth','fifth', |