Return to sampleexternal.problem CVS log

Up to [LON-CAPA] / loncom / homework / templates

Annotation of loncom/homework/templates/sampleexternal.problem, revision 1.5

1.1       www         1: <problem>
1.5     ! www         2: <parameter name="externalurl" type="string" description="URL for external testing" />
1.1       www         3: <script type="loncapa/perl">
                      4: sub fact {
                      5:    my $n=shift;
                      6:    if ($n==1) {
                      7:       return $n;
                      8:    } else {
                      9:       return $n*&fact($n-1);
                     10:    }
                     11: }
                     12: 
                     13: $testvalues='0=1';
1.2       www        14: foreach $i (1..3) {
1.1       www        15:    $rand=&random(3,8,1);
                     16:    $testvalues.=','.$rand.'='.&fact($rand);
                     17: }
1.4       www        18: 
1.5     ! www        19: #
        !            20: # Set anything else you want to pass in this hash.
        !            21: # Name-value pairs will be passed as posted form parameters.
        !            22: #
1.4       www        23: %args=('somecode' => (<<'ENDCODE')
                     24: sub negative {
                     25:    my ($number)=@_;
                     26:    return $number<0;
                     27: }
                     28: ENDCODE
                     29: );
1.5     ! www        30: # Get a URL if it is externally set
        !            31: $externalurl=&parameter_setting('externalurl');
        !            32: #
        !            33: # Important: set your default URL here
        !            34: #
        !            35: unless ($externalurl=~/\w/) { $externalurl='http://localhost/cgi-bin/sampleexternal.pl'; }
        !            36: #
1.1       www        37: </script>
                     38: 
                     39: 
1.4       www        40: <startouttext />Write a Perl subroutine called <tt>factorial</tt>, which returns the factorial of its argument, e.g. <tt>&amp;factorial(17)=17!</tt>. You can use the
                     41: boolean function <tt>&amp;negative(number)</tt>, which returns <tt>true</tt> if the argument is negative.
1.1       www        42: <instructorcomment>
                     43: Sample code for an evaluation script can be found <a href="/res/adm/includes/templates/sampleexternal.pl">here.</a></instructorcomment>
                     44: <endouttext />
1.5     ! www        45: <externalresponse url="$externalurl" answer="$testvalues" form="%args" answerdisplay="The most elegant (and dangerous) solution is recursive.">
1.1       www        46: <textfield />
                     47: 
                     48: </externalresponse>
                     49: </problem>