![[BACK]](/icons/back.gif){kind=icon}
Return to default_homework.lcpm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
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"; |