[閒聊] 剛剛有一篇文章..
是一個解排列組合的問題..
解完後來看，文章居然不見了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
→
05/25 16:41, , 1F
05/25 16:41, 1F
→
05/25 16:42, , 2F
05/25 16:42, 2F
→
05/25 21:05, , 3F
05/25 21:05, 3F
→
05/26 09:48, , 4F
05/26 09:48, 4F
※ 編輯: dryman 來自: 140.112.4.195 (05/26 09:49)
→
05/26 09:49, , 5F
05/26 09:49, 5F
→
05/26 13:36, , 6F
05/26 13:36, 6F
→
05/26 14:00, , 7F
05/26 14:00, 7F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
10
113