[閒聊] 剛剛有一篇文章..

[dryman (dryman)]

是一個解排列組合的問題..
解完後來看，文章居然不見了XD

給定一個hash
%h=('a'=>3, 'b'=>4, 'c'=>5,);
印出他們的排列組合及value相乘值
ab 12
ac 15
bc 20

這是我的解法：
@h=%h;
for $idx (0..$#h/2){
    $_ != $idx and
    print "$h[$idx*2]$h[$_*2] ", $h[$idx*2+1]*$h[$_*2+1], "\n"
    for $idx..$#h/2;
}
這樣就可以出來了..

若print "@h"的話會是
a 3 b 4 c 5

抓index的部份寫的很醜..不知道有沒有人可以寫漂亮一點？

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.4.197
→ dryman:沒有任何註解，這篇好像太過write only了XDDDDD
→ dryman:註解成：# magic, do not touch 好了XDDDD
→ drm343:我寫出很一般的做法，不知道該不該發，話說 bc = 20.....
→ dryman:XD 真的耶，手殘
※ 編輯: dryman          來自: 140.112.4.195        (05/26 09:49)
→ dryman:to drm: There are more than one way to do it XD
→ adu:感謝版大XD
→ dryman:有看不懂的地方可以問，我寫的很短很抽象XD