薯條旁的主角 wrote:
參考各位大大寫的範例...(恕刪)
剛洗澡時候突然想到一個必殺寫法....
一行perl就解決了
my $num=13;
print "*" x ($_>$num?($num-$_%$num):$_),"\n" for (1...$num*2-1);
little_5 wrote:
真是無聊又沒挑戰性的...(恕刪)


雙子貓 wrote:嗯! 這算是最佳最簡的 for + if 判斷式解了.
for(
LoopCount0=1;
LoopCount0<=100;
LoopCount0++
) {
if((LoopCount0%3)==0) {
if((LoopCount0%5)==0) {
Print("FizzBuzz...");
}else {
Print("Fizz...");
}
}else if((LoopCount0%5)==0) {
Print("Buzz...");
}else {
Print(LoopCount0);
}
}
薯條旁的主角 wrote:沒錯! perl 就是這麼強, 因為它內建就支援 print "*" x n 來 print n 個 "*".
print "*" x ($_>$num?($num-$_%$num):$_),"\n" for (1...$num*2-1);
1, 獲得一個亂數 array, 找出中間數值
例 > {1,3,5,7,9,2,4,6,8} 答案會是5
2, 同樣是亂數 array, 不過裡面的數值都是成對的, 除了特別的一個. 找出特別那個
例 > {1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,8,9} 答案會是 7
出來的 algorithm 會是 O
kenl wrote:
3, 找出字串中最長的重複字
例 > "yzabcdefghijhlabcdefiuabc" 答案會是 "abcdef"