Re: [問題] for loop裡的一個小問題
※ 引述《yingwan (yingwan)》之銘言：
: 大家好
: 最近在寫迴圈時又遇到一個問題了
: 我想要讓每個使用者有五次輸入幸運數字的機會
: 輸入五次後系統會說你輸入第幾次是對的數字(如果你猜對幸運數字)
: 如果都沒猜對，系統就會你都沒猜中
: 但是有個情境我一直無法寫好
: 假設A五次中不只猜中一次，他第一次跟最後一次都猜中
: 但我的程式只能顯示他猜中的最後一次，這到底要怎麼修正啊?
: 我想了好幾天都想不太出來，希望各位大大可以給我一點意見，謝謝
: 我把我的指令貼在下面以供大家參考
: #!usr/bin/perl
: #-----------------------------------------------
: #Write a program that asks users to guess
: #the lucky number five times using a for loop.
: #-----------------------------------------------
: for ($count=0; $count<5; $count++){
: print "Please enter your lucky number.\n";
: chomp ($num=<STDIN>);
: if ($num==8514) {$flag=$count+1; next;}
: }
: $f=($flag);
: if ($flag!=0) {print "Great! You guessed the lucky number in guess #$f.\n";}
: else {print "All your guesses were wrong. Goodbye.\n";}
#!usr/bin/perl
#-----------------------------------------------
#Write a program that asks users to guess
#the lucky number five times using a for loop.
#-----------------------------------------------
$Ans = 8514;
undef @flag;
for ($count=0; $count<5; $count++){
print "Please enter your lucky number.\n";
chomp ($num=<STDIN>);
# if ($num==8514) {$flag=$count+1; next;}
if($num==$Ans) { push(@flag, $count+1); }
}
#$f=($flag);
#if ($flag!=0) {print "Great! You guessed the lucky number in guess #$f.\n";}
if($#flag != -1) { for(@flag) {
print "Great! You guessed the lucky number in guess #$_.\n"; } }
else {print "All your guesses were wrong. Goodbye.\n";}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.236.185
推
10/04 06:43, , 1F
10/04 06:43, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：