作者dryman (dryman)
看板Perl
標題[閒聊] 剛剛有一篇文章..
時間Tue May 25 16:38:59 2010
是一個解排列組合的問題..
解完後來看，文章居然不見了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
1F：→ dryman:沒有任何註解，這篇好像太過write only了XDDDDD 05/25 16:41
2F：→ dryman:註解成：# magic, do not touch 好了XDDDD 05/25 16:42
3F：→ drm343:我寫出很一般的做法，不知道該不該發，話說 bc = 20..... 05/25 21:05
4F：→ dryman:XD 真的耶，手殘 05/26 09:48
※ 編輯: dryman 來自: 140.112.4.195 (05/26 09:49)
5F：→ dryman:to drm: There are more than one way to do it XD 05/26 09:49
6F：→ adu:感謝版大XD 05/26 13:36
7F：→ dryman:有看不懂的地方可以問，我寫的很短很抽象XD 05/26 14:00