Re: [問題] 迴圈??
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
推
218.162.206.71 10/07, , 1F
218.162.206.71 10/07, 1F
推
221.169.96.188 10/07, , 2F
221.169.96.188 10/07, 2F
推
218.162.206.71 10/08, , 3F
218.162.206.71 10/08, 3F
推
140.123.102.73 10/08, , 4F
140.123.102.73 10/08, 4F
推
210.64.52.146 10/08, , 5F
210.64.52.146 10/08, 5F
推
218.162.211.47 10/08, , 6F
218.162.211.47 10/08, 6F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
