Re: [閒聊] 不使用if的寫法

[dryman (dryman)]

應該是最短的寫法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
推 xatier:用 bare words 高招！