Re: [問題] 迴圈??

[synth ()]

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
推 krist99:ㄟ~~這個run出來的答案是1 ?!
推 synth:你有加參數 @ARGV 嗎?
推 krist99:我就把你寫的複製貼上!!這樣不對嗎??
推 wacca:執行時要加參數設xy
推 synth:嗯....  你試試 my($x,$y)=(3,3);
推 krist99:設參數~~我懂了~~對不起每次都問笨問題^^