作者synth ()
看板perl
标题Re: [问题] 回圈??
时间Thu Oct 7 11:08:56 2004
my ($x,$y)=@ARGV;
my $ans=1;
for(1.. $y)
{$ans *= $x;}
print $ans,"\n";
※ 引述《synth ()》之铭言：
: try
: print $x**$y,"\n";
: ※ 引述《krist99 (只爱Calvin Klein)》之铭言：
: : 原理我懂~~
: : 只是不会应用~~
: : 我又有问题了~~
: : use strict;
: : my ($x,$y);
: : chomp($x=<STDIN>);
: : chomp($y=<STDIN>);
: : foreach($y){
: : $x*=$x;
: : }
: : print $x."\n";
: : 我想做出x的y次方~~
: : 但是怎麽改~~
: : 回圈似乎只会跑一次~~也就是说~~
: : 如果输入3
: : 5
: : 答案只有9~~因为他只有做3x3
: : 後面四次都没做~~
: : 请问问题出在哪里??
: : 感谢~~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.134.27.69
1F：推 krist99:ㄟ~~这个run出来的答案是1 ?! 218.162.206.71 10/07
2F：推 synth:你有加参数 @ARGV 吗? 221.169.96.188 10/07
3F：推 krist99:我就把你写的复制贴上!!这样不对吗?? 218.162.206.71 10/08
4F：推 wacca:执行时要加参数设xy 140.123.102.73 10/08
5F：推 synth:嗯.... 你试试 my($x,$y)=(3,3); 210.64.52.146 10/08
6F：推 krist99:设参数~~我懂了~~对不起每次都问笨问题^^ 218.162.211.47 10/08