作者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