Return to default_homework.lcpm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.4, 2000/10/12 20:36:05 | version 1.5, 2000/10/12 21:51:03 |
---|---|
Line 66 sub format { | Line 66 sub format { |
my ($value,$fmt)=@_; | my ($value,$fmt)=@_; |
$SCRIPT_RESULT.=sprintf('%.'.$fmt,$value); | $SCRIPT_RESULT.=sprintf('%.'.$fmt,$value); |
} | } |
sub map { | |
my $num = $#_/2; | |
my $i; | |
for ( $i=1 ; $i<$num+1 ; $i++ ) { | |
${$_[$i]}=$_[$i+$num] | |
} | |
} | |
sub choose { | |
my $num = $_[0]; | |
return $_[$num]; | |
} | |
#$a=2; | |
#$b=2; | |
#&map(1,\$a,\$b,3,4); | |
#print $a."\n".$b."\n"; |