Re: [閒聊] 不使用if的寫法
應該是最短的寫法in perl:
$i = 1;
$j = 2;
print+(No,Yes)[$i==1],$/; # ==> Yes
print+(No,Yes)[$j==1],$/; # ==> No
用到了bare words, 只當作間格用的+, ()是array literal, []是array operator
$/是STDIO input separator, 預設綁定"\n"
可以用它把,"\n"換成,$/省下兩個字元
可以在終端機試試:
perl -e 'print+(No,Yes)[1],$/'
在Perl monks上面看寫FizzBuzz題目偷學的
http://www.perlmonks.org/?node_id=602901
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.36.70.123
推
01/11 21:37, , 1F
01/11 21:37, 1F
討論串 (同標題文章)
完整討論串 (本文為第 18 之 18 篇)：
閒聊
5
9